Salut tt le monde,
je souhaite automatiser l'ajout du client microsoft sur ds stations Windows_XP :
je crois que c'est possible si j'arrive a creer et demarrer le service lanmanworkstation :

Voici le script que j'utilise pr la creation du service :
'install le service station de travail (client microsoft)

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
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set objShare =
objWMIService.Get("Win32_Service.Name='LanmanWorkstation'")
 
Set objInParam = objShare.Methods_("Create"). _
    inParameters.SpawnInstance_()
 
objInParam.Properties_.Item("DesktopInteract") =  "false"
objInParam.Properties_.Item("DisplayName") =  "Station de travail"
objInParam.Properties_.Item("ErrorControl") =  1
objInParam.Properties_.Item("LoadOrderGroup") =  "NetworkProvider"
objInParam.Properties_.Item("Name") =  "lanmanworkstation"
objInParam.Properties_.Item("PathName") =  "C:\WINDOWS\System32\svchost.exe -k netsvcs"
objInParam.Properties_.Item("ServiceType") =  32
objInParam.Properties_.Item("StartMode") =  "Automatic"
objInParam.Properties_.Item("StartPassword") =  "NULL"
 
Set objOutParams = objWMIService.ExecMethod("Win32_Service.Name='LanmanWorkstation'", "Create", objInParam)
Wscript.Echo "Out Parameters: "
Wscript.echo "ReturnValue: " & objOutParams.ReturnValue
=> l'exec. du script me retourne ce mssg d'erreur :
(29,1) SwbemServiceEx : methode non valide

quelqu'1 peut il m'aider a debugger ce script ou ajouter ce module 'client reseau miscrosoft' d'1 autre manier ???