Mit VBscript WMI-Daten in Excel schreiben

option explicit

Const HKEY_LOCAL_MACHINE = &H80000002
Dim WshShell
Dim wmi_object 	
Dim TxtDatei   	
Dim oTxt 		
Dim strValue 	
Dim ma_pkey, ma_w7ulti_path, ma_w7_vkey, win_version_path, win_version_key, win_sp_key, ma_path, xp_path, xp_key, xp_sp_path
Dim AbfragePc		'Welcher PC abgefragt wird  

ma_path			 = "SOFTWARE\McAfee\DesktopProtection"				  
ma_pkey 		 = "Product"  
ma_w7ulti_path 	 = "SOFTWARE\Wow6432Node\McAfee\DesktopProtection"   
ma_w7_vkey   	 = "szProductVer"  
win_version_path = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"   
win_version_key  = "ProductName"  
win_sp_key		 = "CSDVersion"  
xp_path			 = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"  
xp_key			 = "ProductName"  
xp_sp_path		 = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"  

AbfragePc = "."  

set TxtDatei = CreateObject ("Scripting.FileSystemObject")  
set WshShell = CreateObject("WScript.Shell")   
set oTxt = TxtDatei.OpenTextFile("C:\temp\" & AbfragePc & ".txt" , 8 , true)  

set wmi_object = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _  
	AbfragePc & "\root\default:StdRegProv")  


wmi_object.GetStringValue HKEY_LOCAL_MACHINE, win_version_path, win_version_key, strValue	
if strValue = "Windows 7 Ultimate" then  
	wmi_object.GetStringValue HKEY_LOCAL_MACHINE, ma_w7ulti_path, ma_pkey, strValue
	oTxt.WriteLine "Programm:  " & strValue  
	wmi_object.GetStringValue HKEY_LOCAL_MACHINE, ma_w7ulti_path, ma_w7_vkey, strValue
	oTxt.WriteLine "Produktversion:  " & strValue  
	wmi_object.GetStringValue HKEY_LOCAL_MACHINE, win_version_path, win_version_key, strValue
	oTxt.WriteLine "Windowsversion -64Bit:  " & strValue  
	wmi_object.GetStringValue HKEY_LOCAL_MACHINE, win_version_path, win_sp_key, strValue
	oTxt.WriteLine "ServicePack:   " & strValue  
		else
			if strValue = "Microsoft Windows XP" then  
				wmi_object.GetStringValue HKEY_LOCAL_MACHINE, ma_path, ma_pkey, strValue
				oTxt.WriteLine "Programm:  " & strValue  
				wmi_object.GetStringValue HKEY_LOCAL_MACHINE, ma_path, ma_v_xp_key, strValue
				oTxt.WriteLine "Produktversion:  " & strValue  
				wmi_object.GetStringValue HKEY_LOCAL_MACHINE, xp_path, xp_key, strValue
				oTxt.WriteLine "Windowsversion:  " & strValue  
				wmi_object.GetStringValue HKEY_LOCAL_MACHINE, xp_sp_path, win_sp_key, strValue
				oTxt.WriteLine "ServicePack:  " & strValue  
				else
					if	strValue = "Windows 7 Professional" then  
						wmi_object.GetStringValue HKEY_LOCAL_MACHINE, ma_w7ulti_path, ma_pkey, strValue
						oTxt.WriteLine "Programm:  " & strValue  
						wmi_object.GetStringValue HKEY_LOCAL_MACHINE, ma_w7ulti_path, ma_w7_vkey, strValue
						oTxt.WriteLine "Produktversion:  " & strValue  
						wmi_object.GetStringValue HKEY_LOCAL_MACHINE, win_version_path, win_version_key, strValue
						oTxt.WriteLine "Windowsversion -64Bit:  " & strValue  
						wmi_object.GetStringValue HKEY_LOCAL_MACHINE, win_version_path, win_sp_key, strValue
						oTxt.WriteLine "ServicePack:   " & strValue  
					
						else
							if strValue = "Windows 7 Home Basic" then  
								on error resume next
									wmi_object.GetStringValue HKEY_LOCAL_MACHINE, win_version_path, win_sp_key, strValue
							if err.Number = 0 then
								wmi_object.GetStringValue HKEY_LOCAL_MACHINE, ma_path, ma_pkey, strValue
								oTxt.WriteLine "Programm:  " & strValue  
								wmi_object.GetStringValue HKEY_LOCAL_MACHINE, ma_path, ma_w7_vkey, strValue
								oTxt.WriteLine "Produktversion:  " & strValue  
								wmi_object.GetStringValue HKEY_LOCAL_MACHINE, win_version_path, win_version_key, strValue
								oTxt.WriteLine "Windowsversion -32Bit:  " & strValue  
								wmi_object.GetStringValue HKEY_LOCAL_MACHINE, win_version_path, win_sp_key, strValue
								oTxt.WriteLine "ServicePack:   " & strValue  
								else
									wmi_object.GetStringValue HKEY_LOCAL_MACHINE, ma_path, ma_pkey, strValue
									oTxt.WriteLine "Programm:  " & strValue  
									wmi_object.GetStringValue HKEY_LOCAL_MACHINE, ma_path, ma_w7_vkey, strValue
									oTxt.WriteLine "Produktversion:  " & strValue  
									wmi_object.GetStringValue HKEY_LOCAL_MACHINE, win_version_path, win_version_key, strValue
									oTxt.WriteLine "Windowsversion -32Bit:  " & strValue  
									wmi_object.GetStringValue HKEY_LOCAL_MACHINE, win_version_path, win_sp_key, strValue
									oTxt.WriteLine "Kein ServicePack vorhanden!"  
									err.Clear
							end if
							else
								MsgBox "Error"  
							end if
						end if
			end if	
end if