Permission refusée : 'GetObject'
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:
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
