CiCi
Gebruiker
- Lid geworden
- 5 okt 2002
- Berichten
- 419
(Volgens mij staat mijn vraag niet op de juiste sectie, kon geen geschiktere vinden..
)
Ik krijg de volgende melding wanneer ik de *.vbs bestand wil uitvoeren:
De inhoud van het versions.vbs bestandje:
Ik zie nix verkeerds aan regel 16?
(dat is de regel wat begint met {"HKLM\SOFTWARE\Microsoft .... enz..
Alvast bedankt voor de reacties!
Groetjes,
©i©i

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

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?

Alvast bedankt voor de reacties!
Groetjes,
©i©i