Page 1 sur 1

Trasncription VBS en AU3

Posté : ven. 24 janv. 2020 13:50
par guenfood
Bonjour,

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

Re: Trasncription VBS en AU3

Posté : ven. 24 janv. 2020 15:23
par DimVar
Hello,

Une solution parmi tant d'autres, se servir du registre pour recuperer les path des users (Ordinateur\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\) avec les fonction du registre ex: regread

Les fonctions de mappage ex : DriveMapAdd

Personnellement, j'avais deja travaillé sous Win7 avec "Transfert de fichiers et paramètres Windows". Je pense que l'on peut aussi scripter certains points avec cet outil.

Cdlt, Dimvar.

Re: Trasncription VBS en AU3

Posté : ven. 24 janv. 2020 20:57
par jguinch
Sinon, il existe un outil chez Microsoft, nommé USMT, qui fait très bien le job (il est fait pour ça).
Sinon, pour la liste des profils à partir du registre, il y a ça : viewtopic.php?p=92220#p92220