'******************************************************************************
' ********** 
'Windows-Registry Schlüssel auslesen
'Dieses Skript liest einen Registry- Schlüssel aus.
 
	set wshshell = createobject("Wscript.shell")
 
	key = "HKCR\.vbs\"
		msgbox "Schlüssel: " & wshshell.regread(key)
	key2 = "HKCU\environment\virenscan"
		msgbox ("Der nächste Virenscan auf diesem Rechner findet nach " & _ 
		(11 - wshshell.regread(key2)) & " Anmeldungen statt.")
'******************************************************************************
' **********

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