Carlos ..segue script em vbs abs
'FileName : mapdrive.vbs
'Purpose : To map a local drive to a network path
'Usage : cscript //nologo mapdrive.vbs
'To Debug : cscript //D //X //nologo mapdrive.vbs
'Example : cscript //nologo mapdrive.vbs i: \\myserver\data\myshare
administrator mypassword
' This code creates a mapped drive to a network path.
Function mapdrive()
' -- SCRIPT CONFIGURATION --
strDrive = WScript.Arguments(0) ' e.g. i:
strPath = WScript.Arguments(1)
strUser = WScript.Arguments(2) ' e.g. Administrator
strPassword = WScript.Arguments(3)
boolPersistent = True ' True = Persistent ; False = Not Persistent
' -- END CONFIGURATION ---
set objNetwork = WScript.CreateObject("WScript.Network")
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
'Check and disconnect if the drive is already mapped.
if(ObjFSO.DriveExists(strDrive)) then
objNetwork.RemoveNetworkDrive strDrive, True, True
end if
objNetwork.MapNetworkDrive strDrive, strPath, boolPersistent, _
strUser, strPassword
if(ObjFSO.DriveExists(strDrive)) then
WScript.Echo "Successfully mapped drive : " & strDrive & " to " & strPath
end if
Set ObjFSO = nothing
Set objNetwork = nothing
end function
Function parseArgs()
Dim filelen
filelen = WScript.Arguments.length
if filelen < 4 Then
WScript.Echo("Usage : cscript //nologo mapdrive.vbs ")
WScript.Echo("Example : cscript //nologo mapdrive.vbs i:
\\myserver\data\myshare administrator mypassword")
WScript.Quit()
end if
mapdrive()
End function
parseArgs()
Post by Carlos RamosBom dia preciso de um script que faça o mapeamento de uma unidade na minha
rede quando o usuário logar.
Espero ter sido claro, desde já grato pela resposta.