Citation :
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUsername, strComputerName, strServeur
Set objNetwork = CreateObject("WScript.Network" )
strUserName = objNetwork.UserName
strComputerName = objNetwork.ComputerName
strDriveLetter = "W:"
strServeur = "\\" & strComputerName
strRemotePath = "\Documents And Settings\" & strUserName
objNetwork.MapNetworkDrive strDriveLetter, strServeur & strRemotePath
WScript.Quit
|