WSUS DB anzapfen für Inventory

'Rechner-Informationen erfassen  
'21.06.06/ge'  

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
const C_Rechner = "forstfile-1"  
const C_Log = "c:\Log\Rechner-Info.log"  

DIM O_FSO, O_Log
DIM G_Rechner

SET O_FSO = CreateObject("Scripting.FileSystemObject")  
SET O_Log = O_FSO.OpenTextFile(C_Log,2,true)


   Set objWMIService = GetObject("winmgmts:\\" & C_Rechner & "\root\CIMV2")  
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)  

   For Each objItem In colItems
      G_Rechner = "Hersteller: " & objItem.Manufacturer & vbcrlf  
      G_Rechner = G_Rechner & "Model: " & objItem.Model & vbcrlf  
   Next


  Set objWMIService = GetObject("winmgmts:\\" & C_Rechner & "\root\CIMV2")  
  Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)  

   For Each objItem In colItems
      G_Rechner = G_Rechner & "Version: " & objItem.Version & vbcrlf  
      G_Rechner = G_Rechner & "Seriennummer: " & objItem.IdentifyingNumber & vbcrlf  
   Next

  Set objWMIService = GetObject("winmgmts:\\" & C_Rechner & "\root\CIMV2")  
  Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)  

   For Each objItem In colItems
      G_Rechner = G_Rechner & "BIOS: " & objItem.Manufacturer & vbcrlf  
   Next

   Set objWMIService = GetObject("winmgmts:\\" & C_Rechner & "\root\CIMV2")  
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)  

   For Each objItem In colItems
      G_Rechner = G_Rechner & "Prozessor: " & objItem.Caption & vbcrlf  
   Next
   
   O_Log.writeline G_Rechner