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:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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