VBS/WSH - Registry Schlüssel überprüfen

Benötigte Objekte :

Dim ObjWsh : Set ObjWsh = CreateObject("WScript.Shell")


Aufruf :

PID_KEY = die Variable des Registry Schlüssel der überprüft werden soll.

If CheckKey(PID_KEY) = true then


Funktion liefert True/False :

Function CheckKey(Key)
On Error Resume Next
Dim Dummy
Dummy = ObjWsh.RegRead(Key)
If Dummy = "" then
CheckKey = false
Else
CheckKey = true
End If
End Function
“Das einzig sichere System müsste ausgeschaltet, in einem versiegelten und von Stahlbeton ummantelten Raum und von bewaffneten Schutztruppen umstellt sein.”
Gene Spafford (Sicherheitsexperte)