VBScript finds hidden services by comparing the registry

design sketch: Code (checksvr. VBS):   Copy codeThe code is as follows: ‘On Error Resume Next   Const HKEY_LOCAL_MACHINE = &H80000002 Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv”) strKeyPath = “SYSTEM\CurrentControlSet\Services” oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys Wscript.Echo “Checking, please wait …” Wscript.Echo “” For Each subkey In arrSubKeys  oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & “\\” & subkey, “ObjectName”, strValue  If Not (strValue = […]