Test

strUser = textInput( "Nazwa użytkownika:" )
strPassword = textInput( "Hasło:" )
'WScript.Echo "U¿ytkownik: " & strUser & " hasło " & strPassword
strProfile = "false"

strDriveLetter1 = "S:"
strRemotePath1 = "\\" & strServer1 & "\" & strUser
strNewName1 = "DyskUcznia"



Set objNetwork = WScript.CreateObject("WScript.Network")
strUserDomain = objNetwork.UserDomain
'Wscript.Echo strUserDomain

strUserWithdomain = strUserDomain & "\" & strUser


Set clDrives = objNetwork.EnumNetworkDrives
For i = 0 to clDrives.Count -1 Step 2
objNetwork.RemoveNetworkDrive clDrives.Item(i), True, True
Next

WScript.sleep 300

'Set objShell = CreateObject("WScript.Shell")
'objShell.Run strCommand1, 0, True
'objShell.Run strCommand2, 0, True

objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1, strProfile, strUserWithDomain , strPassword

Set objShell1 = CreateObject("Shell.Application")
objShell1.NameSpace(strDriveLetter1).Self.Name = strNewName1

if  Err.Number <> 0  then
Err.Raise 6   ' Raise an overflow error.
'WScript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
WScript.Echo " Wpisz poprawnie Użytkownika i Hasło - dysk nie został podłączony!! "
else
WScript.Echo "Zamapowalem dyski "
end if
Err.Clear
WScript.Quit