Post-conf de poste - ajout du WorkGroup

Bonjour,

Bon je vous explique toute ma galère,
Je suis étudiant en licence info réseau/système et je fais un stage, mon projet est de mettre en place un système qui restaure automatiquement des postes pour la plus part en XP (85%) et des W98.
Mon serveur DRBL/Clonezilla(Debian) fonctionne bien, mais je coince un peu sur la post-configuration des postes clients.

J'ai commencé par créer un script kixtart qui change le nom et l'ip du pc en fonction de son @Mac (correspondance de configuration dans un .txt sur le serveur), et je cherche à changer le workgroup.
Kixtart n'ayant pas l'air d'en donner la possibilité j'ai pensé à VBS car je sais que c'est possible.
Là 2 solutions s'offrent à moi :

- exécuter change_workgroup.vbs param1(nom_du_WG) depuis mon script monkixtart.kix
- exécuter monkixtart.kix depuis un batch et change_workgroup.vbs param1(nom_du_WG) depuis mon batch après l'execution du .kix

Bon j'ai choisi la solution numéro 2 car je ne trouve pas comment faire la solution 1 (donc si vous savez ca m'interesse en passant ^^)

La j'utilise :

Code:

---

call %chemin%\monvbs.vbs parametre

---

Je viens de me rendre compte que mon VBS ne fonctionne pas pourtant j'ai essayé de suivre un tuto sur le net... si vous pouviez jetter un oeil.
Bon pour l'instant je veux juste que ce script change le nom du workgroup d'un pc, et après je souhaiterai que mon script récupère un parametre à l'appel qui soit le futur nom du workgroup.

Voici mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'Option Explicit Dim oWsh 'Windows Script Host Shell object   Set oWsh = CreateObject("WScript.Shell") Set oWshEnvironment = oWsh.Environment("Process") Set oWshnet= Wscript.CreateObject("WScript.Network")   strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem") For Each objComputer in colCompSystems intunjoindomain=objComputer.JoinDomainOrWorkgroup("test","","",0) next

---

Merci d'avance et bon appetit.

Cordialement,

L'étudiant qui galère à fond avec sa post-configuration !

Code:

---

Set oWshnet= Wscript.CreateObject("WScript.Network")

---

Cela ne marche pas cela.

Code:

---

Set oWshnet= CreateObject("WScript.Network")

---

Cela devrait marcher.

Au passage, si tu as posté le script entier, alors ces lignes ne te servent à rien :

Code:

---

1 2 3 4 5 6

'Option Explicit Dim oWsh 'Windows Script Host Shell object   Set oWsh = CreateObject("WScript.Shell") Set oWshEnvironment = oWsh.Environment("Process") Set oWshnet= Wscript.CreateObject("WScript.Network")

---

Désolé j'étais parti du boulot je test ca tout de suite et te dit si cela a marcher mais déjà merci d'avoir aider :)


EDIT :

Bon le script ne me pose pu d'erreur mais le soucis est qu'il ne me change pas le WorkGroup ^^.

Donc si quelqu'un sait pourquoi cela ne marche pas ou si queklqu'un a déjà fait un script ressemblant ca m'interesse.

Tu ne sembles pas avoir passe les bon paramètre à la méthode.
Regarde ici :
http://msdn.microsoft.com/en-us/libr...54(VS.85).aspx
Il y a aussi un exemple de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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 = "FABRIKAM" strPassword = "ls4k5ywA" strUser = "shenalan" 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)

---

A quoi correspondent les underscores dans les lignes du code que tu as posté ?
Car je ne comprend pas la différence entre _strComputer et strComputer.

Bon en réfléchissant ca doit etre des trucs qui spécifie qu'on passe à la ligne en pleine commande. Moi j'vais tout mettre sur une ligne pour ne pas m'embéter :p

MS dans ses exemples utilises les _ pour marquer un saut à la ligne.
Dans ton code tu dois les supprimer ainsi que le saut de ligne.
Je ne sais pas si c'est compris par l'interpréteur et que c'est utilisé pour lui dire que la suite est en dessous, mais perso j'ai toujours préféré les enlever.

Bon j'ai testé, ce script en le modifiant un peu, car l'exemple était pour un domain et l'on peut lire sur le site de MS que si l'on veut modifier de WorkGroup à WorkGroup il suffit de ne pas renseigner de numéro.

Code:

---

1 2 3 4 5 6 7 8 9 10

Set objNetwork = CreateObject("Wscript.Network")   strComputer = objNetwork.ComputerName   Set objComputer= GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer & "'")   intunjoindomain = objComputer.JoinDomainOrWorkGroup("test","","","")

---

Je n'ai pu d'erreur le script s'exécute bien, mais le WorkGroup ne change pas même après redémarrage.

Peut être sais tu comment j'peux affichier la valeur de retour de la fonction JoinDomainOrWorkGroup dans ma console CMD, car cela me permettrait de voir le code de d'erreur, car rien n'apparait dans le journal d'evenement.

Dans un MessageBox :

Code:

---

msgbox intunjoindomain

---

ou
Sur la sortie standard :

Code:

---

wscript.echo intunjoindomain

---

Ça retourne 2695 ...
Ce chiffre n'est même pas spécifié sur le site de MS :P
Je ne vois pu du tout comment faire et c'ets dommage car cela pourrait aider un grand nombre de personnes :P

J'ai testé de tout ce que j'ai trouvé comme script qui ressemblait et ait testé la fonction avec des utilisateurs aussi ... (je tiens à préciser que j'exécute bien ce script en administrateur de la machine)

Oui mais sur le site de MS on voit que la méthode attend 5 paramètres et tu n'en mets que 4, alors ...

Je vais te décevoir mais ca me rend 2695 même avec les 5 paramètres :P

Bon bah je n'ai jamais utilisé l'objet alors je ne sais pas plus que MSDN

Oki bah quand même un grand merci pour t'être interessé à mon problème :)

Au fait juste un rappel, la méthode ne fait qu'attacher un PC à un workgroup précis.
Cela ne renomme pas, ne supprime pas, le workgroup courant.

cela veut dire qu'il ne sert qu'a l'installe de windows ce script ?

Car sinon il est impossible de mettre le Workgroup à Null, sauf en cas de domaine biensur... bon bah tanpis j'vais essayer avec un domaine ^^.
Merci beaucoup à la prochaine ced:P