Option Explicit
Const HKCR = &H80000000
Const HKCU = &H80000001
Dim Computer, Registry, Schluessel, Name, Wert
 
Computer = "F123TEAM1"
 
Set Registry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
  Computer & "\root\default:StdRegProv")
 
Schluessel = ".vbs"
Name = ""
Registry.GetStringValue HKCR, Schluessel, Name, Wert
Wscript.Echo Wert
 
Schluessel = "environment"
Name = "virenscan"
'Registry.GetStringValue HKCR, Schluessel, Name, Wert
Wscript.Echo Wert