Hardware und Software Inventarisierung mit KIX

/* 
Computer information with KiXtart
Copyright (C) 2006  Schwarz Alexander

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
*/ 


    ; --- Globale Konfiguration --- 
    ; -- Anzeige Konfigurieren --
    $save_to_file = TRUE ; TRUE/FALSE    
    ; -- System Klasse -- 
    $objWMIService = GetObject( "winmgmts://./root/cimv2" )  
    
    
    ; --- Ausgabe ---
    If($save_to_file == TRUE)
      $SavePath = "C:\" + "\" + @WKSTA + ".txt"  
      $result=ReDirectOutput ($SavePath,1)
    Else
      CLS
      COLOR g+/n   
    EndIf


    ; --- Workstationname und Datum der Erfassung ---
    ; Header: benötigt für weitere bearbeitung
    
    ? "[HOSTNAME]"  
    ? @WKSTA 
    ?
    ? "[DATE]"  
    ? @DATE
    ?
    
    
    ; --- Benutzer-Informationen ---
    
    ? "[USER]"  
    ? "USERNAME=" + @USERID  
    ? "FULLNAME=" + @FULLNAME  
    ? "USERCOMMENT=" + @COMMENT  
    ? "USERSID=" + @SID      
    ? "USERLANG=" + @USERLANG  
    ? "PWAGE=" + @PWAGE  
    ? "MAXPWAGE=" + @MAXPWAGE  
    ? "LOGONDOMAIN=" + @LDOMAIN  
    ?
    
    
    ; --- Benutzer-Informationen - Gruppen ---
    ; Alle Gruppen des Benutzers incl. Domain-Gruppen
    
    ? "[USERGROUP]"  
    
    $iLoop = 0
    WHILE ENUMGROUP($iLoop)
      ? ENUMGROUP($iLoop)
      $iLoop = $iLoop + 1
    LOOP 
    ? 
    
    
    ; --- Workstation / Machine ---
    
    SELECT
      CASE @INWIN == 1
        $os = "Windows NT"  
      CASE @INWIN == 2
        $os = "Windows 9x"  
    ENDSELECT
    
    $objWMIService = GetObject("winmgmts:\\.\root\cimv2")  
    $colItems = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem")  
    For Each $objItem in $colItems
      ; Datum auf deutsche Konvention umwandeln      
      $inst_date = left($objItem.InstallDate,8)
      $inst_jahr = left($inst_date,4)
      $inst_date = right($inst_date,4)
      $inst_monat = left($inst_date,2)
      $inst_tag = right($inst_date,2)
  
      $windir = $objItem.WindowsDirectory
      $install_date = $inst_tag + "." + $inst_monat + "." + $inst_jahr  
    Next
   
    ; SID der Maschine ermitteln
    $aSID = Split(@SID,"-")  
    
    $iLoop = 0
    For Each $element In $aSID
      $iLoop = $iLoop + 1
    Next
    $iLoop = $iLoop - 1
    
    $SID = Join($aSID,"-",$iLoop)  
    ; SID END
    
    ? "[MACHINE]"  
    ? "OS=" + $os  
    ? "WIN=" + @PRODUCTTYPE  
    ? "SP=" + @CSD  
    ? "HOSTNAME=" + @WKSTA  
    ? "DOMNAME=" + @HOSTNAME  
    ? "DOMAIN=" + @DOMAIN  
    ? "SYSLANG=" + @SYSLANG  
    ? "INSTDATE=" + $install_date   
    ? "WINDIR=" + $windir      
    ? "SID=" + $sid  
    ? 
   
    
    ; --- Motherboard / Mainboard ---
    
    $SystemInfo = GetObject("WinMgmts:").InstancesOf("Win32_Baseboard")  
    For Each $Item In $SystemInfo
      $producer = $Item.Manufacturer
      $typ = $Item.Product
    Next
    
    $SystemInfo = GetObject("WinMgmts:").InstancesOf("Win32_BIOS")  
    For Each $Item In $SystemInfo
      $bios = $Item.Name
      $biosver = $Item.SMBIOSBIOSVersion    
    Next
    
    ? "[MAINBOARD]"  
    ? "PRODUCER=" + $producer  
    ? "TYP=" + $typ  
    ? "BIOS=" + $bios  
    ? "BIOSVER=" + $biosver  
    ? 
    
    
    ; --- CPU / Prozessor ---
       
    $colItems = $objWMIService.ExecQuery( "Select * from Win32_Processor", "WQL", 48 )  
    $iLoop = 0
    For Each $objItem in $colItems
      ? "[CPU" + $iLoop + "]"  
      ? "NAME=" + Trim($objItem.Name)  
      ? "PRODUCER=" + $objItem.Manufacturer  
      ? "DESCRIPTION=" + $objItem.Description  
      ? "SPEED=" + $objItem.CurrentClockSpeed  
      ?
      $iLoop = $iLoop + 1
    Next
 
 
    ; --- RAM / Arbeitsspeicher ---
    
    $colItems = $objWMIService.ExecQuery( "Select * from Win32_PhysicalMemoryArray", "WQL", 48 )  
    For Each $objItem In $colItems
      $slots = $objItem.MemoryDevices
    Next
    
    $cntMod = 0
    $strMod = ""  
    $colItems = $objWMIService.ExecQuery( "Select * from Win32_PhysicalMemory", "WQL", 48 )  
    For Each $objItem In $colItems
      $cntMod = $cntMod + 1
      $strCap = ( Val( $objItem.Capacity ) + 1023 ) / ( 1024 * 1024 )
      $strMod = $strMod + "/" + $strCap  
    Next
    
    $colItems = $objWMIService.ExecQuery( "Select * from Win32_LogicalMemoryConfiguration", "WQL", 48 )  
      For Each $objItem In $colItems
        $total = ( $objItem.TotalPhysicalMemory + 1023 ) / 1024
      Next
    
    ? "[RAM]"  
    ? "SLOTS=" + $slots  
    ? "CHIP=" + $cntMod  
    ? "MODUL=" + SubStr($strMod,2)  
    ? "TOTAL=" + $total  
    ?
 
 
    ; --- HD / Festplatten ---
    
    $colItems = $objWMIService.ExecQuery( "Select * from Win32_DiskDrive Where SCSITargetId >= 0", "WQL", 48 )  
    $iLoop = 0
    For Each $objItem in $colItems
      ? "[HD" + $iLoop + "]"  
      ? "PRODUCER=" + $objItem.Manufacturer  
      ? "MODEL=" + $objItem.Model  
      ; Umrechnung auf GB
      $Size = $objItem.Size
      $LSize = Len($Size)
      $MSize = SubStr( $Size, 1, $LSize - 3 )
      $Size = ( 524288 + $MSize ) / 1048576
      ? "SIZE=" + $Size  
      ?
      $iLoop = $iLoop + 1
    Next
    
    
    ; --- Partitionierung ---
    
    $iLoopHD = 0
    $sysHD = ""  
    $iLoopFD = 0
    $sysFD = ""  
    $iLoopCD = 0
    $sysCD = ""  
    $iLoopNET = 0
    $sysNET = ""  
    
    $colItems = $objWMIService.ExecQuery("Select * from Win32_LogicalDisk")      
    For Each $objItem in $colItems
      ; -- HDs --
      If $objItem.Description == "Lokale Festplatte"  
        If $sysHD <> ""  
          $sysHD = $sysHD + @CRLF
        EndIf
        
        $sysHD = $sysHD + "[PARTITION" + $iLoopHD + "]" + @CRLF  
        $sysHD = $sysHD + "LETTER=" + $objItem.Caption + @CRLF  
        $sysHD = $sysHD + "NAME=" + $objItem.VolumeName + @CRLF  
        $sysHD = $sysHD + "DESCRIPTION=" + $objItem.Description + @CRLF  
        $sysHD = $sysHD + "SERIALNR=" + $objItem.VolumeSerialNumber + @CRLF      
        $sysHD = $sysHD + "FILESYSTEM=" + $objItem.FileSystem + @CRLF  
        
        $Size = $objItem.FreeSpace
        ; Umrechnung auf GB
        $LSize = Len( $Size )
        $MSize = SubStr( $Size, 1, $LSize - 3 )
        $Size = ( 524288 + $MSize ) / 1048576
        
        $sysHD = $sysHD + "FREE=" + $Size + @CRLF  
        
        $Size = $objItem.Size
        ; Umrechnung auf GB
        $LSize = Len( $Size )
        $MSize = SubStr( $Size, 1, $LSize - 3 )
        $Size = ( 524288 + $MSize ) / 1048576
        
        $sysHD = $sysHD + "SIZE=" + $Size + @CRLF  
 
        $iLoopHD = $iLoopHD + 1
      EndIf    
      
      ; -- Floppy --
      If $objItem.Description == "3,5 Zoll-Diskettenlaufwerk"  
        If $sysFD <> ""  
          $sysFD = $sysFD + @CRLF
        EndIf
        
        $sysFD = $sysFD + "[FLOPPY" + $iLoopFD + "]" + @CRLF  
        $sysFD = $sysFD + "LETTER=" + $objItem.Caption + @CRLF  
        $sysFD = $sysFD + "DESCRIPTION=" + $objItem.Description + @CRLF   
        
        $iLoopFD = $iLoopFD + 1
      EndIf
      
      ; -- CD Laufwerke --
      If $objItem.Description == "CD"  
        If $sysCD <> ""  
          $sysCD = $sysCD + @CRLF
        EndIf
        
        $sysCD = $sysCD + "[CDDRIVE" + $iLoopCD + "]" + @CRLF  
        $sysCD = $sysCD + "LETTER=" + $objItem.Caption + @CRLF          
        $sysCD = $sysCD + "DESCRIPTION=" + $objItem.Description + @CRLF  
 
        $iLoopCD = $iLoopCD + 1
      EndIf   
      
      ; -- Netzwerkverbindungen --
      If $objItem.Description == "Netzwerkverbindung"  
        If $sysNET <> ""  
          $sysNET = $sysNET + @CRLF
        EndIf
        
        $sysNET = $sysNET + "[NETDRIVE" + $iLoopNET + "]" + @CRLF  
        $sysNET = $sysNET + "LETTER=" + $objItem.Caption + @CRLF  
        $sysNET = $sysNET + "NAME=" + $objItem.VolumeName + @CRLF  
        $sysNET = $sysNET + "DESCRIPTION=" + $objItem.Description + @CRLF  
        $sysNET = $sysNET + "SERIALNR=" + $objItem.VolumeSerialNumber + @CRLF      
        $sysNET = $sysNET + "FILESYSTEM=" + $objItem.FileSystem + @CRLF  
        $sysNET = $sysNET + "PARH=" + $objItem.ProviderName + @CRLF  
 
        $iLoopNET = $iLoopNET + 1
      EndIf      
    Next  
    
    ? $sysHD 
    ? $sysFD
    ? $sysCD
    ? $sysNET
    
    
    ; --- Printer / Drucker ---
    
    $iCount = 0
    $colItems = $objWMIService.ExecQuery("Select * from Win32_Printer")  
    For Each $objItem In $colItems
      
      If $objItem.ServerName <> ""  
        $server = "SERVER=" + $objItem.ServerName  
      Else
        $server = "SERVER=LOCAL"  
      EndIf
      
      If $objItem.Default <> "0"  
        $default = "TRUE"  
      Else
        $default = "FALSE"  
      EndIf
      
      If $objItem.ShareName <> ""  
        $name = $objItem.ShareName
      Else
        $name = $objItem.Caption
      EndIf
      
      ? "[PRINTER" + $iCount + "]"  
      ? "NAME=" + $name  
      ? $server      
      ? "DRIVERNAME=" + $objItem.DriverName  
      ? "PORT=" + $objItem.PortName  
      ? "DEVICEID=" + $objItem.DeviceID  
      ? "LOCATION=" + $objItem.Location  
      ? "COMMENT=" + $objItem.Comment  
      ? "DEFAULT=" + $default  
      ? "HORIZONTAL=" + $objItem.HorizontalResolution  
      ? "VERTICAL=" + $objItem.VerticalResolution  
      ?
      
      $iCount = $iCount + 1
    Next
    
    
    ; --- Grafikkarte / Video
    
    $iCount = 0
    $colItems = $objWMIService.ExecQuery("Select * from Win32_VideoController")  
    For Each $objItem In $colItems
      $name = $objItem.Name
      
      $cpu = $objItem.VideoProcessor
      $ram = (($objItem.AdapterRAM + 524288) / 1048576)
      $description = Split($objItem.VideoModeDescription, " x ")  
      $driver = $ObjItem.DriverVersion
      $aufloesung = ""  
      
      $iLoop = 0
      For Each $element In $description
        SELECT
          CASE $iLoop == 0
            $aufloesung = $element
          CASE $iLoop == 1
            $aufloesung = $aufloesung + "x" + $element  
          CASE $iLoop == 2
            $farben = Split($element, " ")   
          CASE 1             
        ENDSELECT
        $iLoop = $iLoop + 1         
      Next 
      
      $iLoop = 0
      For Each $element In $farben
        If $iLoop == 0
          $farbe = $element        
        EndIf        
        $iLoop = $iLoop + 1
      Next
      
      If $name <> "Winvnc video hook driver"        
        ? "[VIDEO" + $iCount + "]"  
        ? "NAME=" + $name  
        ? "DRIVERVER=" + $driver  
        ? "CPU=" + $cpu  
        ? "RAM=" + $ram  
        ? "SOLUTION=" + $aufloesung  
        ? "COLOR=" + $farbe ; $farbe is string   
        ?
        
        $iCount = $iCount + 1
      EndIf      
    Next
  
   
    ; --- Soundkarte ---
    
    $colItems = $objWMIService.ExecQuery("Select * from Win32_SoundDevice")  
    For Each $objItem in $colItems
      $name = $objItem.Caption
      $producer = $objItem.Manufacturer
      
      ? "[SOUND]"  
      ? "NAME=" + $name  
      ? "PRODUCER=" + $producer  
      ?
    Next
    

    ; --- Netzwerkkarten ---       
    
    $iCount = 0
    For $iLoop = 0 To 9 Step 1
      If ENUMIPINFO($iLoop, 0, 1) <> "0.0.0.0" AND ENUMIPINFO($iLoop, 0, 1)  
        
        $name = ENUMIPINFO ($iLoop, 2, 1)        
        $macaddres = ""  
        
        $objWMIService = GetObject( "winmgmts://./root/cimv2" )  
        $colItems = $ObjWMIService.ExecQuery("SELECT Name,MACAddress From Win32_NetworkAdapter")          
        For Each $objItem In $colItems
          If $ObjItem.Name == $name
            $macaddres = $ObjItem.MACAddress                       
          EndIf                           
        Next
        
        $objWMIService = GetObject( "winmgmts://./root/WMI" )  
        $colItems = $objWMIService.ExecQuery( "SELECT * FROM MSNdis_EthernetCurrentAddress WHERE Active = True", "WQL", 48 )  
        For Each $objItem In $colItems        
          If $objItem.InstanceName == $name
            $col2Items = $objWMIService.ExecQuery("SELECT * FROM MSNdis_LinkSpeed WHERE InstanceName = '" + $objItem.InstanceName + "'", "WQL", 48 )  
          
            For Each $obj2Item In $col2Items              
                $speed = ($obj2Item.NdisLinkSpeed / 10 / 1000) ; MBit/s                        
            Next
          EndIf      
        Next
        
        ? "[NETWORK" + $iCount + "]"          
        ? "NAME=" + $name  
        ? "MACADDRES=" + $macaddres  
        ? "SPEED=" + $speed  
        ? "IPADDRES=" + ENUMIPINFO($iLoop, 0, 1)  
        ? "SUBNETMASK=" + ENUMIPINFO ($iLoop, 1, 1)  
        ? "GATEWAY=" + ENUMIPINFO ($iLoop, 3, 1)  
        ?
        
        $iCount = $iCount + 1
      EndIf
    Next
 
    
    ; --- Software ---
    
    $msoffice = ""  
    
    $iCount = 0    
    For $iLoop = 0 TO 2000 STEP 1
      $output = 0
      $KeyName = ENUMKEY("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $iLoop)  
      
      If @ERROR == 259 
        $iLoop = 2000 ; End
      EndIf
      
      If @ERROR == 0 AND $KeyName <> "NLSDownlevelMapping" AND $KeyName <> "IDNMitigationAPIs"        
          $name = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" + $KeyName,"DisplayName")  
          
          If @ERROR == 0
            $output = 1
          EndIF  
          
          $version = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" + $KeyName,"DisplayVersion")  
          $producer = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" + $KeyName,"Publisher")  
          $installdate = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" + $KeyName,"InstallDate")  
          $type = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" + $KeyName,"ReleaseType")  
          
          If $output == 1 AND $type <> "Hotfix"              
            ? "[SOFTWARE" + $iCount + "]"  
            ? "NAME=" + $name  
            ? "VERSION=" + $version  
            ? "PRODUCER=" + $producer  
            ? "INSTALLDATE=" + $installdate  
            ?
            
            OfficeCheck($name)
            $iCount = $iCount + 1
          EndIf                                        
      EndIf
      
      $name = ""  
      $version = ""  
      $producer = ""  
      $installdate = ""  
      
    Next
    
    
    ; --- Software / Office --- 
 
    If $msoffice <> ""  
    
      DIM $soft[9]
      DIM $value[9]
          
      $soft = "Word"  
      $soft[1] = "Excel"  
      $soft[2] = "PowerPoint"  
      $soft[3] = "Access"  
      $soft[4] = "InfoPath"  
      $soft[5] = "Publisher"  
      $soft[6] = "Outlook"  
      $soft[7] = "MS Project"  
      $soft[8] = "Visio"  
      
      For $iLoop = 0 TO 8 STEP 1
        IsInstall($msoffice,$soft[$iLoop])
        $value[$iLoop] = $return
      Next
            
      ? "[OFFICE]"  
      ? "VERSION="    + $msofficeversion  
      ? "WORD="       + $value  
      ? "EXCEL="      + $value[1]  
      ? "POWERPOINT=" + $value[2]  
      ? "ACCESS="     + $value[3]  
      ? "INFOPATH="   + $value[4]  
      ? "PUBLISHER="  + $value[5]  
      ? "OUTLOOK="    + $value[6]  
      ? "PROJECT="    + $value[7]  
      ? "VISIO="      + $value[8]  
      ?
      
    EndIf
    
   
    ; --- FUNCTIONS ---
    
    Function IsInstall($officeversion,$programm)
      If $officeversion == 9 AND $programm == Visio
        $Key = KeyExist("HKEY_LOCAL_MACHINE\SOFTWARE\Visio\Visio 2000")  
        If $Key
          $return = "TRUE"  
        Else
          $return = "FALSE"  
        EndIf
      Else
        $Key = KeyExist("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\" + $officeversion + ".0\" + $programm)  
        If $Key
          $return = "TRUE"  
        Else
          $return = "FALSE"  
        EndIf
      EndIf
    EndFunction 
    
    Function OfficeCheck($officename)
      If $officename == "Microsoft Office 2000 Premium"   
        $msoffice = 9
        $msofficeversion = "2000"  
      EndIf
      
      If $officename == "Visio 2000 (DE)"   
        $msoffice = 9
        $msofficeversion = "2000"  
      EndIf
      
      If $officename == "Microsoft Office Professional Edition 2003"   
        $msoffice = 11
        $msofficeversion = "2003"  
      EndIf
      
      If $officename == "Microsoft Office Project Professional 2003"  
        $msoffice = 11
        $msofficeversion = "2003"  
      EndIf
      
      If $officename == "Microsoft Office Visio Professional 2003"  
        $msoffice = 11
        $msofficeversion = "2003"  
      EndIf
    EndFunction