Discussion :

[Skice]

Bonjour,

Voilà je cherche encore à comprendre mon problème mais là franchement je ne vois pas pourquoi le script ne s’exécute pas. Je vous met tout d'abord le 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
24
25
Set WshShellObj = WScript.CreateObject("WScript.Shell")
Set WshProcess = WshShellObj.Environment("Process")
 
If StrComp(WshProcess ("ALLUSERSPROFILE"), "C:\ProgramData", vbTextCompare) = 0 Then
	TONIP = "193.50.231.202" 'ou adresse IP xx.xx.xx.xx
	strComputer = TONIP
	Set objWMIService = GetObject("winmgmts:" _
    	& "{impersonationLevel=impersonate, AuthenticationLevel = Default}!\\" & strComputer & "\root\cimv2")
    	Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
	For Each objItem in colItems
   		Wscript.Echo "Manufacturer: " & objItem.Manufacturer
		If StrComp(objItem.Manufacturer, "Dell Inc." ,vbTextCompare) = 0 Then
			WScript.Echo("install Dell")
		Else
			WScript.Echo("install HP")
			'lancer l'image de Windows seven 64 bit pour HP
		End if
		WScript.Quit
	Next
 
Else
	WScript.Echo("Installation de Windows XP")
	'lancer l'image de Windows xp
 
End if

Lors de l’exécution, je rencontre l'erreur suivante :

os.vbs(8,2) Erreur d'exécution Miscrosoft VBScript : Permission refusée : 'GetObject'

Si quelqu'un peut me donner un coup de patte, ça serai vraiment cool

D'avance je vous remercie

[l_autodidacte]

Sur ma machine, le script tourne 5/5.

Ne s'agit-il pas de droits admin ?

[Skice]

Non c'est bon j'ai résolu le problème. Le problème venait du fait qu'il me manquait le chaine de connexion