Bonjour,
Je suis actuellement bloqué sur le dev d un script VBS, en gros au premier démarrage une machine sous XP doit faire 2 actions:
1 - renommer le poste Windows avec le numéros de série de la machine = ca c est OK ( un fichier EXE )
2 - entrer la machine (renommer précédemment) dans un domaine = j'ai déjà trouvé un script vbs qui fait ca et ca fonctionne
Maintenant je bloque sur les étape a appliquer, après avoir renommer la machine cela nécessite un redémarrage de Windows, puis de reprendre le script pour entrer dans le domaine, puis un second redémarrage pour valider l entrée dans le domaine, et pour finir un 3 eme redémarrage pour supprimer l autologon et laisser la possibilité a l utilisateur de se logger avec son compte.
Si quelqun pouvait me filer un coup de patte sur ce script je suis preneur : ) je n arrive pas a mettre en place les flags a placer aux differentes etapes.
Pour résumer les actions:
1ere démarrage de la machine
exécution du script : renommer la machine
redémarrer
passer al etape suivante du script : entrée dans le domaine
redémarrage
suppression de l autologon
redémarrage
Ci-dessous le script pour entrée dans le domaine:
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144
strDomain = "blabla.fr"
strPassword = "pasword"
strUser = "administrator"
Set objNetwork = CreateObject("WScript.Network" )
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'" )
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\" & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
Merci d'avance 
