Motherboard Serial?

mbkowns · September 18, 2007

I wondering if there is a cool way to pull the motherboard serial using AutoIt. The way we join the domain at work is using the serial number but if I could script this it would make things easier.

Let me know if its possible

-Kyle

PsaltyDS · September 18, 2007

That sounded useful, so I did a demo based on a Technet article:

Retrieving Information About the BIOS

$sMsg = "Motherboard serial number: " & _BiosGetSerialNumber()
MsgBox(64, "Results", $sMsg)

Func _BiosGetSerialNumber()
    Local $sRET, $strComputer = @ComputerName
    Local $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
    Local $colBIOS = $objWMIService.ExecQuery ("SELECT * FROM Win32_BIOS")
    For $objBIOS In $colBIOS
        $sRET = $objBIOS.SerialNumber
    Next
    If $sRET <> "" Then
        Return $sRET
    Else
        Return SetError(1, 0, 0)
    EndIf
EndFunc   ;==>_BiosGetSerialNumberoÝ÷ Ù8^~e£§Êz±©e¶½¨¥i¹^r«iË^®+-ËÛÚç¬~º&¶ ä¢×«mæ«¶'%yÈyØ¬w(^µè§¶i¹^¡÷!j¶µêâ²Ø²Ê&j|¢g®¦«¨¶éÝyø§yÚ®¢Ú+ªê-¢ëh~¶§ê®¢Ö®¶sbb33c¶d&÷46%³3UÒ²'&öb$õ26&7FW&7F70¢b33c¶d&÷46%³5ÒÒgV÷C´$õ26&7FW&7F72æ÷B7W÷'FVBgV÷C°¢b33c¶d&÷46%³EÒÒgV÷C´427W÷'FVBgV÷C°¢b33c¶d&÷46%³eÒÒgV÷C´T427W÷'FVBgV÷C°¢b33c¶d&÷46%³uÒÒgV÷Cµ427W÷'FVBgV÷C°¢b33c¶d&÷46%³ÒÒgV÷Cµ26&B4Ô427W÷'FVBgV÷C°¢b33c¶d&÷46%³ÒÒgV÷CµÇVræBÆ27W÷'FVBgV÷C°¢b33c¶d&÷46%³ÒÒgV÷C´Ò27W÷'FVBgV÷C°¢b33c¶d&÷46%³ÒÒgV÷C´$õ22Ww&F&ÆRfÆ6gV÷C°¢b33c¶d&÷46%³UÒÒgV÷C´&ö÷Bg&öÒ4B27W÷'FVBgV÷C°¢b33c¶d&÷46%³eÒÒgV÷Cµ6VÆV7F&ÆR&ö÷B27W÷'FVBgV÷C°¢b33c¶d&÷46%³uÒÒgV÷C´$õ2$ôÒ26ö6¶WFVBgV÷C°¢b33c¶d&÷46%³ÒÒgV÷C´&ö÷Bg&öÒ26&B4Ô427W÷'FVBgV÷C°¢b33c¶d&÷46%³3%ÒÒgV÷C´57W÷'FVBgV÷C°¢b33c¶d&÷46%³3EÒÒgV÷C´u27W÷'FVBgV÷C° ¢b33c·7G$6ö×WFW"Ò6ö×WFW$æÖP¢b33c¶ö&¥tÔ6W'f6RÒö&¤vWBgV÷C·væÖv×G3§¶×W'6öæFöäÆWfVÃÖ×W'6öæFWÒb333²b3#²b3#²gV÷C²f×²b33c·7G$6ö×WFW"f×²gV÷C²b3#·&ö÷Bb3#¶6×c"gV÷C²¢b33c¶6öÄ$õ2Òb33c¶ö&¥tÔ6W'f6RäWV5VW'gV÷Cµ4TÄT5B¢e$ôÒvã3%ô$õ2gV÷C²¢b33c·4×6rÒgV÷C´$õ2&÷W'FW2f÷"6ö×WFW"ÒgV÷C²f×²b33c·7G$6ö×WFW"f×²5$Ä`¢b33c·4×6rf×³ÒD"f×²gV÷C´$õ26&7FW&7F72ÒgV÷C²f×²5$Ä`¤f÷"b33c¶ö&¤$õ2âb33c¶6öÄ$õ0 f÷"b33c¶çD6&7FW&7F2âb33c¶ö&¤$õ2ä&÷46&7FW&7F70 bb33c¶çD6&7FW&7F2fwC²æBb33c¶çD6&7FW&7F2fÇC²T&÷VæBb33c¶d&÷46"ÒFVà b7G&æu7G&u2b33c¶d&÷46%²b33c¶çD6&7FW&7F5ÒÂÒgV÷C²gV÷C²FVà b33c·4×6rf×³ÒD"f×²D"f×²b33c¶çD6&7FW&7F2f×²gV÷C²ÒfÇCµVæ¶æ÷vâÒæòFVfæFöâfwC²gV÷C²f×²5$Ä` VÇ6P b33c·4×6rf×³ÒD"f×²D"f×²b33c¶çD6&7FW&7F2f×²gV÷C²ÒgV÷C²f×²b33c¶d&÷46%²b33c¶çD6&7FW&7F5Òf×²5$Ä` VæD` VÇ6P b33c·4×6rf×³ÒD"f×²D"f×²b33c¶çD6&7FW&7F2f×²gV÷C²ÒfÇCµVæ¶æ÷vâÒ÷WBöb&ævRfwC²gV÷C²f×²5$Ä` VæD` æW@  b33c·4×6rf×³ÒD"f×²gV÷C´$õ2fÇVW2ÒgV÷C²f×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷C´'VÆBçVÖ&W"ÒgV÷C²f×²b33c¶ö&¤$õ2ä'VÆDçVÖ&W"f×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷C´7W'&VçBÆæwVvRÒgV÷C²f×²b33c¶ö&¤$õ2ä7W'&VçDÆæwVvRf×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷C´ç7FÆÆ&ÆRÆæwVvW2ÒgV÷C²f×²b33c¶ö&¤$õ2äç7FÆÆ&ÆTÆæwVvW2f×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷C´ÖçVf7GW&W"ÒgV÷C²f×²b33c¶ö&¤$õ2äÖçVf7GW&W"f×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷C´æÖRÒgV÷C²f×²b33c¶ö&¤$õ2äæÖRf×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷Cµ&Ö'$õ2ÒgV÷C²f×²b33c¶ö&¤$õ2å&Ö'$õ2f×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷Cµ&VÆV6RFFRÒgV÷C²f×²b33c¶ö&¤$õ2å&VÆV6TFFRf×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷Cµ6W&ÂçVÖ&W"ÒgV÷C²f×²b33c¶ö&¤$õ2å6W&ÄçVÖ&W"f×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷Cµ4Ô$õ2fW'6öâÒgV÷C²f×²b33c¶ö&¤$õ2å4Ô$õ4$õ5fW'6öâf×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷Cµ4Ô$õ2Ö¦÷"fW'6öâÒgV÷C²f×²b33c¶ö&¤$õ2å4Ô$õ4Ö¦÷%fW'6öâf×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷Cµ4Ô$õ2Öæ÷"fW'6öâÒgV÷C²f×²b33c¶ö&¤$õ2å4Ô$õ4Öæ÷%fW'6öâf×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷Cµ4Ô$õ2&W6VçBÒgV÷C²f×²b33c¶ö&¤$õ2å4Ô$õ5&W6VçBf×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷Cµ7FGW2ÒgV÷C²f×²b33c¶ö&¤$õ2å7FGW2f×²5$Ä` b33c·4×6rf×³ÒD"f×²D"f×²gV÷CµfW'6öâÒgV÷C²f×²b33c¶ö&¤$õ2åfW'6öâf×²5$Ä`¤æW@ ¤×6t&÷cBÂgV÷C´$õ2&÷W'FW2gV÷C²Âb33c·4×6r

Edit: Bitten by the forum edit bug...again! GRRRRrrrrrr!

Edited September 18, 2007 by PsaltyDS

rover · September 18, 2007

Hi PsaltyDS

The ScriptOmatic program converts WMI to AutoIt code

WMI ScriptOMatic tool for AutoIt by SvenP

the resulting text always badly needs formatting (@Tabs), for display anyway

Computer Info UDF's by JSThePatriot

; Generated by AutoIt Scriptomatic
; BIOS Characteristics
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $strBiosCharacteristics = $objItem.BiosCharacteristics(0)
      $Output = $Output & "BiosCharacteristics: " &@TAB&@TAB&$strBiosCharacteristics & @CRLF
      $strBIOSVersion = $objItem.BIOSVersion(0)
      $Output = $Output & "BIOSVersion: " &@TAB&@TAB& $strBIOSVersion & @CRLF
      $Output = $Output & "BuildNumber: " &@TAB& $objItem.BuildNumber & @CRLF
      $Output = $Output & "Caption: " &@TAB&@TAB&@TAB& $objItem.Caption & @CRLF
      $Output = $Output & "CodeSet: " &@TAB& $objItem.CodeSet & @CRLF
      $Output = $Output & "CurrentLanguage: " &@TAB&@TAB& $objItem.CurrentLanguage & @CRLF
      $Output = $Output & "Description: " &@TAB&@TAB& $objItem.Description & @CRLF
      $Output = $Output & "IdentificationCode: " &@TAB& $objItem.IdentificationCode & @CRLF
      $Output = $Output & "InstallableLanguages: " &@TAB& $objItem.InstallableLanguages & @CRLF
      $Output = $Output & "InstallDate: " &@TAB&@TAB& WMIDateStringToDate($objItem.InstallDate) & @CRLF
      $Output = $Output & "LanguageEdition: " &@TAB& $objItem.LanguageEdition & @CRLF
      $strListOfLanguages = $objItem.ListOfLanguages(0)
      $Output = $Output & "ListOfLanguages: " &@TAB&@TAB& $strListOfLanguages & @CRLF
      $Output = $Output & "Manufacturer: " &@TAB&@TAB& $objItem.Manufacturer & @CRLF
      $Output = $Output & "Name: " &@TAB&@TAB&@TAB& $objItem.Name & @CRLF
      $Output = $Output & "OtherTargetOS: " &@TAB& $objItem.OtherTargetOS & @CRLF
      $Output = $Output & "PrimaryBIOS: " &@TAB&@TAB& $objItem.PrimaryBIOS & @CRLF
      $Output = $Output & "ReleaseDate: " &@TAB&@TAB& WMIDateStringToDate($objItem.ReleaseDate) & @CRLF
      $Output = $Output & "SerialNumber: " &@TAB&@TAB& $objItem.SerialNumber & @CRLF
      $Output = $Output & "SMBIOSBIOSVersion: " &@TAB& $objItem.SMBIOSBIOSVersion & @CRLF
      $Output = $Output & "SMBIOSMajorVersion: " &@TAB& $objItem.SMBIOSMajorVersion & @CRLF
      $Output = $Output & "SMBIOSMinorVersion: " &@TAB& $objItem.SMBIOSMinorVersion & @CRLF
      $Output = $Output & "SMBIOSPresent: " &@TAB&@TAB& $objItem.SMBIOSPresent & @CRLF
      $Output = $Output & "SoftwareElementID: " &@TAB& $objItem.SoftwareElementID & @CRLF
      $Output = $Output & "SoftwareElementState: " &@TAB& $objItem.SoftwareElementState & @CRLF
      $Output = $Output & "Status: " &@TAB&@TAB&@TAB& $objItem.Status & @CRLF
      $Output = $Output & "TargetOperatingSystem: " &@TAB& $objItem.TargetOperatingSystem & @CRLF
      $Output = $Output & "Version: " &@TAB&@TAB&@TAB& $objItem.Version & @CRLF
      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_BIOS" )
Endif


Func WMIDateStringToDate($dtmDate)

    Return (StringMid($dtmDate, 5, 2) & "/" & _
    StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
    & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

Edited September 18, 2007 by rover

PsaltyDS · September 18, 2007

Hi PsaltyDS

The ScriptOmatic program converts WMI to AutoIt code

WMI ScriptOMatic tool for AutoIt by SvenP

the resulting text always badly needs formatting (@Tabs), for display anyway

Computer Info UDF's by JSThePatriot

This part only displays the first of many BIOS characteristics, some of which are quite significant, like whether PC Card or ACPI are supported.

$strBiosCharacteristics = $objItem.BiosCharacteristics(0)
      $Output = $Output & "BiosCharacteristics: " &@TAB&@TAB&$strBiosCharacteristics & @CRLF

Run the second of the two scripts I posted for the full list, properly formatted.

Note: Due to the forum edit bug, I couldn't tweak that one. The first line should have GLOBAL in front of it to declare the array.

Please, Jon... fix the forum edit bug...

mbkowns · September 18, 2007

Dang thats for that responce! Ill try this out and let you know.

rover · September 20, 2007

I stand corrected PsaltyDs

scriptomatic is such a great resource, that i've recommended this to several forum users already

when I see what they're asking for can be generated by scriptomatic.

the forum editor.....hmm...

do you get the random characters corrupting your text too?

PsaltyDS · September 20, 2007

the forum editor.....hmm...
do you get the random characters corrupting your text too?

Yes. The AutoIt tag interpreter at the forum server scrambles RTF format text somehow in certain situations.

Jon is aware of it, and will hopefully have the time or help needed to fix it someday. As a work-around, if you don't use the AutoIt tags, you shouldn't see the problem.

Sign In

Motherboard Serial?

Recommended Posts

mbkowns

Link to comment

Share on other sites

PsaltyDS

Link to comment

Share on other sites

rover

Link to comment

Share on other sites

PsaltyDS

Link to comment

Share on other sites

mbkowns

Link to comment

Share on other sites

rover

Link to comment

Share on other sites

PsaltyDS

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta