WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

WinBatch
WMI
WMI_Scripter
2004A and Older

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Win32_Bios

Keywords: Bios WMI_Scripter WMI scripter utility WMI Collections

Code generated for the Win32_Bios Class using the WMI_scripter 

objLocator = ObjectOpen("WbemScripting.SWbemLocator")
objService = objLocator.ConnectServer()
objSecurity = objService.Security_
objSecurity.ImpersonationLevel = 3
class =  "Win32_BIOS"
; query instances
query = "SELECT * FROM Win32_BIOS"
objInstances = objService.ExecQuery(query)

; loop once for each instance
hEnum = ObjectCollectionOpen(objInstances)
While @TRUE 
   obj = ObjectCollectionNext(hEnum)
   If obj == 0 Then Break
   ; obtain properties
   varBiosCaracteristics = obj.BiosCharacteristics
   varBIOSVersion = obj.BIOSVersion
   varBuildNumber = obj.BuildNumber
   varCaption = obj.Caption
   varCodeSet = obj.CodeSet
   varCurrentLanguage = obj.CurrentLanguage
   varDescription = obj.Description
   varIdentificationCode = obj.IdentificationCode
   varInstallableLanguages = obj.InstallableLanguages
   varInstallDate = obj.InstallDate
   varLanguageEdition = obj.LanguageEdition
   varListOfLanguages = obj.ListOfLanguages
   varManufacturer = obj.Manufacturer
   varName = obj.Name
   varOterTargetOS = obj.OtherTargetOS
   varPrimaryBIOS = obj.PrimaryBIOS
   varReleaseDate = obj.ReleaseDate
   varSerialNumber = obj.SerialNumber
   varSMBIOSBIOSVersion = obj.SMBIOSBIOSVersion
   varSMBIOSMajorVersion = obj.SMBIOSMajorVersion
   varSMBIOSMinorVersion = obj.SMBIOSMinorVersion
   varSMBIOSPresent = obj.SMBIOSPresent
   varSoftwareElementID = obj.SoftwareElementID
   varSoftwareElementState = obj.SoftwareElementState
   varStatus = obj.Status
   varTargetOperatingSystem = obj.TargetOperatingSystem
   varVersion = obj.Version

EndWhile
ObjectCollectionClose(hEnum)

; close object handles
ObjectClose(objInstances)
ObjectClose(objSecurity)
ObjectClose(objService)
ObjectClose(objLocator)


;*************************************
;*     Display results
;*************************************
#DefineSubRoutine udfFormat4Display(vname)
   value = %vname%
   If VarType(value)==256 ; Value is an array
      ;if array then create pipe delimited list
      arraylist=""
      For item = 0 To ArrInfo(value,1)-1
         arraylist = StrCat(arraylist,"|",value[item])
      Next
      ;remove leading pipe
      value=StrSub(arraylist,2,-1)
   EndIf
    Return(value)
#EndSubRoutine



; build display list
displaylist = ""
displaylist=StrCat(displaylist,@LF, "BiosCharacteristics   = ", UDFFormat4Display("varBiosCaracteristics"))
displaylist=StrCat(displaylist,@LF, "BIOSVersion           = ", UDFFormat4Display("varBIOSVersion"))
displaylist=StrCat(displaylist,@LF, "BuildNumber           = ", UDFFormat4Display("varBuildNumber"))
displaylist=StrCat(displaylist,@LF, "Caption               = ", UDFFormat4Display("varCaption"))
displaylist=StrCat(displaylist,@LF, "CodeSet               = ", UDFFormat4Display("varCodeSet"))
displaylist=StrCat(displaylist,@LF, "CurrentLanguage       = ", UDFFormat4Display("varCurrentLanguage"))
displaylist=StrCat(displaylist,@LF, "Description           = ", UDFFormat4Display("varDescription"))
displaylist=StrCat(displaylist,@LF, "IdentificationCode    = ", UDFFormat4Display("varIdentificationCode"))
displaylist=StrCat(displaylist,@LF, "InstallableLanguages  = ", UDFFormat4Display("varInstallableLanguages"))
displaylist=StrCat(displaylist,@LF, "InstallDate           = ", UDFFormat4Display("varInstallDate"))
displaylist=StrCat(displaylist,@LF, "LanguageEdition       = ", UDFFormat4Display("varLanguageEdition"))
displaylist=StrCat(displaylist,@LF, "ListOfLanguages       = ", UDFFormat4Display("varListOfLanguages"))
displaylist=StrCat(displaylist,@LF, "Manufacturer          = ", UDFFormat4Display("varManufacturer"))
displaylist=StrCat(displaylist,@LF, "Name                  = ", UDFFormat4Display("varName"))
displaylist=StrCat(displaylist,@LF, "OtherTargetOS         = ", UDFFormat4Display("varOterTargetOS"))
displaylist=StrCat(displaylist,@LF, "PrimaryBIOS           = ", UDFFormat4Display("varPrimaryBIOS"))
displaylist=StrCat(displaylist,@LF, "ReleaseDate           = ", UDFFormat4Display("varReleaseDate"))
displaylist=StrCat(displaylist,@LF, "SerialNumber          = ", UDFFormat4Display("varSerialNumber"))
displaylist=StrCat(displaylist,@LF, "SMBIOSBIOSVersion     = ", UDFFormat4Display("varSMBIOSBIOSVersion"))
displaylist=StrCat(displaylist,@LF, "SMBIOSMajorVersion    = ", UDFFormat4Display("varSMBIOSMajorVersion"))
displaylist=StrCat(displaylist,@LF, "SMBIOSMinorVersion    = ", UDFFormat4Display("varSMBIOSMinorVersion"))
displaylist=StrCat(displaylist,@LF, "SMBIOSPresent         = ", UDFFormat4Display("varSMBIOSPresent"))
displaylist=StrCat(displaylist,@LF, "SoftwareElementID     = ", UDFFormat4Display("varSoftwareElementID"))
displaylist=StrCat(displaylist,@LF, "SoftwareElementState  = ", UDFFormat4Display("varSoftwareElementState"))
displaylist=StrCat(displaylist,@LF, "Status                = ", UDFFormat4Display("varStatus"))
displaylist=StrCat(displaylist,@LF, "TargetOperatingSystem = ", UDFFormat4Display("varTargetOperatingSystem"))
displaylist=StrCat(displaylist,@LF, "Version               = ", UDFFormat4Display("varVersion"))
displaylist = StrSub(displaylist,2,-1)
; use fixed pitch font
IntControl(28,1,0,0,0)
; define coordinates for AskItemList
IntControl(63,200,200,800,800)
AskItemlist(class,displaylist,@LF,@UNSORTED,@SINGLE)
Exit

Article ID:   W16281

File Created: 2004:03:30:15:43:44
Last Updated: 2004:03:30:15:43:44