; Check KiXtart version $KixMajorVer = SubStr( @Kix, 1, InStr( @Kix, "." ) - 1 ) If $KixMajorVer < 4 GoTo Syntax EndIf ; Check command line parameters Select Case $PC = "" ; Default if none specified is local computer (".") $strComputer = @WKSTA Case 1 ; Command line parameter $PC can either be a ; computer name or "/?" to request online help $strComputer = $PC If InStr( $strComputer, "?" ) > 0 GoTo Syntax EndIf EndSelect ; Connect to computer's WMI service $objWMIService = GetObject( "winmgmts://" + $strComputer + "/root/cimv2" ) ; Display error number if applicable If @ERROR GoTo ShowError EndIf ; Collect BIOS information $colItems = $objWMIService.ExecQuery( "Select * from Win32_BIOS where PrimaryBIOS = true", , 48 ) ; Display error number if applicable If @ERROR GoTo ShowError EndIf ; Header line for screen output ? "BIOS summary for " + $strComputer + ":" ; Prepare collected info for display For Each $objItem in $colItems ? " BIOS Name : " + $objItem.Name ? " Version : " + $objItem.Version ? " Manufacturer : " + $objItem.Manufacturer ? " SMBIOS Version : " + $objItem.SMBIOSBIOSVersion ? Next ; Done Quit 0 :ShowError ? "Error # @ERROR" ? :Syntax ? "BIOS.kix, Version 1.10" ? "Display BIOS information for any WMI enabled computer on the network." ? ? "Usage: KIX32 BIOS.KIX [ $PC=computer_name ]" ? ? "Where: " + Chr(34) + "computer_name" + Chr(34) + " is the name or IP address of any WMI enabled" ? " computer on the network" ? ? "Written by Rob van der Woude" ? "http://www.robvanderwoude.com" ? ? "This script requires KiXtart 4.00 or later." ? "Your KiXtart version is @Kix" ? ; Abort with return code 1 Quit 1