Registry-Unterschlüssel durchsuchen

Set fso = CreateObject("Scripting.Filesystemobject")  
Set objShell = CreateObject("Wscript.Shell")  
Set myRegExp = CreateObject("vbscript.regexp")  
strPathListe = objShell.ExpandEnvironmentStrings("%COMPUTERNAME%") & ".txt"   
'......  

@echo off & setlocal
:: Der Dienst opsiclientd muss gestoppt werden um den Cache zu leeren
echo beende OPSI Client Dienst...
set Status=NichDa
for /f "tokens=4" %%b in ('sc query opsiclientd ^|find "STATE "') do set Status=%%b  
echo [Debug] Status: %Status%
if /i "%Status%" == "RUNNING" net stop opsiclientd  
if /i "%Status%" == "NichDa" (  
echo Irgendetwas Unerwartetes ist passiert...schau mal nach!..
pause
:: Starte Dienste und guck per Hand
%windir%\system32\services.msc
exit
)
pause
:: Welchel in das Cache-Verzeichnis + Löschung der .sqlite Dateien
echo loesche sqlite Dateien aus OPSI Cache...
cd C:\opsi.org\cache\config
del *.sqlite
pause
:: opsiclientd wird wieder gestartet
echo starte OPSI Client Dienst...
for /f "tokens=4" %%b in ('sc query opsiclientd ^|find "STATE "') do set Status=%%b  
echo [Debug] Status: %Status%
if /i "%Status%" == "STOPPED" net start opsiclientd  
if /i "%Status%" == "NichDa" (  
echo Irgendetwas Unerwartetes ist passiert...schau mal nach!..
pause
%windir%\system32\services.msc
exit
)
pause
endlocal
:: öffnet OPSI Info Webinterface um zu sehen, ob die Events wieder funktionieren!
echo oeffne Info Page...
:: Setze Variable für Ablageort des Skriptes
set SCRIPT_LOCATION=%~dp0
"%SCRIPT_LOCATION%OPSI_info.url"  
pause
:: erstellt eine Software-Inventur von dem Rechner
echo erstelle Software-Inventur fuer %COMPUTERNAME%
call "%SCRIPT_LOCATION%Installierte_Software\01_programmliste.vbs"  
pause

Dim liste
Const HKLM = &H80000002
Set fso = CreateObject("Scripting.Filesystemobject")  
Set objShell = CreateObject("Wscript.Shell")  
Set myRegExp = CreateObject("vbscript.regexp")  
strPathListe = objShell.ExpandEnvironmentStrings("%COMPUTERNAME%") & ".txt"  
myRegExp.IgnoreCase = True
myRegExp.Pattern = "KB\d{6,}"  

strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"  
strKey64 = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\"  
Set objReg = GetObject("winmgmts://./root/default:StdRegProv")  

objReg.EnumKey HKLM, strKey, arrSubkeys
For Each strSubkey In arrSubkeys
  intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey,"DisplayName", strValue1)  
  If strValue1 <> "" Then  
  	If Not myRegExp.Test(strValue1) Then
    	liste = liste & strValue1 & vbNewLine
    End If
  End If
Next

If is64Bit() Then
	objReg.EnumKey HKLM, strKey64, arrSubkeys
	For Each strSubkey In arrSubkeys
	  intRet1 = objReg.GetStringValue(HKLM, strKey64 & strSubkey,"DisplayName", strValue1)  
	  If strValue1 <> "" Then  
	    If Not myRegExp.Test(strValue1) Then
    		liste = liste & strValue1 & vbNewLine
   		End If
	  End If
	Next
End If

fso.OpenTextFile(strPathListe,2,True).Write(liste)
objShell.Run "notepad.exe " & strPathListe  
Set fso = Nothing
set objShell = Nothing
set myRegExp = Nothing

' Functions -------  
Function is64Bit()
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")  
	Set colItems = objWMIService.ExecQuery("Select OSArchitecture from Win32_OperatingSystem")  
	For Each objItem in colItems
		If LCase(objItem.OSArchitecture) = "64-bit" Then  
			is64Bit = True
		Else
			is64Bit = False
		End If 
	Next
End Function