Discussion :

[Babybel54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[ced600]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cela ne marche pas cela.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[Babybel54]

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.

[ced600]

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 :

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
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)

[Babybel54]

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

[ced600]

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.