Trasncription VBS en AU3

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
guenfood
Niveau 1
Niveau 1
Messages : 11
Enregistré le : lun. 31 mars 2014 13:28
Status : Hors ligne

Trasncription VBS en AU3

#1

Message 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
Avatar du membre
DimVar
Niveau 10
Niveau 10
Messages : 867
Enregistré le : ven. 30 mai 2008 15:08
Status : Hors ligne

Re: Trasncription VBS en AU3

#2

Message 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.
N'évoquons pas la pierre, les jeunes risqueraient d'en poire !
Avatar du membre
jguinch
Modérateur
Modérateur
Messages : 2511
Enregistré le : lun. 14 févr. 2011 22:12
Status : Hors ligne

Re: Trasncription VBS en AU3

#3

Message 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
Le script, ça fait gagner beaucoup de temps... à condition d'en avoir beaucoup devant soi !
Répondre