"versions.vbs" Compilation error ..?

  • Onderwerp starter Onderwerp starter CiCi
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

CiCi

Gebruiker
Lid geworden
5 okt 2002
Berichten
419
(Volgens mij staat mijn vraag niet op de juiste sectie, kon geen geschiktere vinden.. :o )

Ik krijg de volgende melding wanneer ik de *.vbs bestand wil uitvoeren:
versions.jpg


De inhoud van het versions.vbs bestandje:
On Error Resume Next
WScript.Echo "WSH Version: " & WScript.Version
Wscript.Echo "VBScript Version: " & ScriptEngineMajorVersion _
& "." & ScriptEngineMinorVersion
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer _
& "\root\cimv2")
Set colWMISettings = objWMIService.ExecQuery _
("Select * from Win32_WMISetting")
For Each objWMISetting in colWMISettings
Wscript.Echo "WMI Version: " & objWMISetting.BuildVersion
Next
Set objShell = CreateObject("WScript.Shell")
strAdsiVersion = objShell.RegRead
("HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{E92B03AB-B707-11d2-9CBD-0000F87A369E}\Version")
If strAdsiVersion = vbEmpty Then
strAdsiVersion = objShell.RegRead
("HKLM\SOFTWARE\Microsoft\ADs\Providers\LDAP\")
If strAdsiVersion = vbEmpty Then
strAdsiVersion = "ADSI is not installed."
Else
strAdsiVersion = "2.0"
End If
End If
WScript.Echo "ADSI Version: " & strAdsiVersion

Ik zie nix verkeerds aan regel 16? :confused: (dat is de regel wat begint met {"HKLM\SOFTWARE\Microsoft .... enz..

Alvast bedankt voor de reacties!
Groetjes,
©i©i
 
[offtopic]whihih.. mooie link geef jij ! :D [/offtopic]

Dat heeft niet geholpen megabit.. toch nog bedankt voor je reactie! :)
 
Geplaatst door CiCi
[offtopic]whihih.. mooie link geef jij ! :D [/offtopic]


Nou je het zegt! De link ziet er goed uit zolang je er maar niet op klikt:D.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan