Dans le cadre de mon activité, je dois mettre en place un outil de récupération de données de profils itinérants pour W7 vers un profil local en W10.
Pour cela, je dois d'abord mapper le profilepath des personnes via le LDAP, avant d'initier une copie des données sur le nouvel environnement.
Pour la copie des données, j'ai déjà le code.
Mais pour la partie mappage du profilepath, j'avais ça en VBS, tel qu'indiqué dans le code ci-dessous.
Comment le retranscrire en autoit afin de tout avoir en un seul et même exécutable ?
Merci par avance pour votre aide.
Set objNetwork = CreateObject("WScript.Network")
Set objSysInfo = CreateObject("ADSystemInfo")
strUserCn = objSysInfo.UserName
strUsername = objNetwork.Username
On Error Resume Next
strUserPath = "LDAP://" & strUserCn
set objUser = GetObject(strUserPath)
If Err.Number Then
Wscript.Echo "Erreur lors de la connexion au domaine : " & vbCrlf &_
"Code d'erreur : " & Hex(Err.Number) & vbCrlf & _
Err.Description
Wscript.quit 1000
End If
Err.Clear
Set Network = CreateObject("Wscript.Network")
Network.MapNetworkDrive "P:", objUser.ProfilePath &".V2"
If Err.Number Then
Wscript.Echo "Erreur lors du montage du " & "P:" & " : " & vbCrlf &_
"Code d'erreur : " & Hex(Err.Number) & vbCrlf & _
Err.Description
Wscript.Quit 2000
End If
WScript.Echo "P:" & " monté avec succès sur " & objUser.ProfilePath