VBS: rendre vos utilisateurs autonomes (Mapper le lecteur personnel s'il saute)

Petit script en VBS pour remapper le lecteur personnel (ici U:) selon les informations fournies par l'AD

'On Error Resume Next
Dim objSysInfo, objUser, status
Set objSysInfo = CreateObject("ADSystemInfo")

' Currently logged in User
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)



msgbox(objUser.displayName & vbCrLf & "----------------------" & vbCrLf & objUser.homeDirectory)

set objShell = CreateObject( "WScript.Shell" )
set objScriptExec = objShell.Exec("net use u: /delete")
set objScriptExec = objShell.Exec("net use u: " & objUser.homeDirectory & " /p:o")


Wscript.Quit