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