Get the Hradware id?

[GrungeRocker]

Is there a way to get the hardware id in autoi??

maybe using a dll....

[GrungeRocker]

ok i forgot to say, that i want to get the hardare id of the mainboard!

[GrungeRocker]

no ideas?

[Andre]

devcon ?

[GrungeRocker]

could any1 explain how i could make it that the infos are saved in a var....

[/dev/null]

Is there a way to get the hardware id in autoi??

maybe using a dll....

<{POST_SNAPBACK}>

Can you please explain what you mean by "Hardware ID of the mainboard"? I know the BIOS ID (depends on the version) or the CPU ID. I have never heard of a "mainboard ID".

[Westi]

You get all informations about your system with:ctbios15.zip from c't ftpsite

Use 'ctdmi.exe >info.txt' to write all informations to info.txt or the following code.

The output is in german

$fname = "bios.nfo"
Runwait ( "ctdmi.exe >" & $fname , @scriptdir , @SW_HIDE )
$file = FileOpen( $fname, 0 )
$line1 = FileReadLine( $file, 73 );example for MB manufacturer
$line2= FileReadLine( $file, 74 );example for MB version
MsgBox( 0, "MB-info", $line1 & @CR & $line2 )
FileClose( $file )
FileDelete ( $fname )

[/dev/null]

Use 'ctdmi.exe >info.txt' to write all informations to info.txt or the following code.

Unfortunately ctdmi.exe does not work on WinNT/2K (Have not checked WinXP).

Do you know an alternative?

Cheers

Kurt

[GrungeRocker]

well thx for your help...

[PerryRaptor]

I don't know what information you want either...Try this using the latest Beta...

expandcollapse popup

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmForwardOnly = 0x10 + 0x20
$colItems = ""
$strComputer = "localhost"

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

If IsObj($colItems) then
   For $objItem In $colItems
      $strBiosCharacteristics = $objItem.BiosCharacteristics(1)
      $Output = $Output & "BiosCharacteristics: " & $strBiosCharacteristics & @CRLF
      $strBIOSVersion = $objItem.BIOSVersion(1)
      $Output = $Output & "BIOSVersion: " & $strBIOSVersion & @CRLF
      $Output = $Output & "BuildNumber: " & $objItem.BuildNumber & @CRLF
      $Output = $Output & "Caption: " & $objItem.Caption & @CRLF
      $Output = $Output & "CodeSet: " & $objItem.CodeSet & @CRLF
      $Output = $Output & "CurrentLanguage: " & $objItem.CurrentLanguage & @CRLF
      $Output = $Output & "Description: " & $objItem.Description & @CRLF
      $Output = $Output & "IdentificationCode: " & $objItem.IdentificationCode & @CRLF
      $Output = $Output & "InstallableLanguages: " & $objItem.InstallableLanguages & @CRLF
      $Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
      $Output = $Output & "LanguageEdition: " & $objItem.LanguageEdition & @CRLF
      $strListOfLanguages = $objItem.ListOfLanguages(1)
      $Output = $Output & "ListOfLanguages: " & $strListOfLanguages & @CRLF
      $Output = $Output & "Manufacturer: " & $objItem.Manufacturer & @CRLF
      $Output = $Output & "Name: " & $objItem.Name & @CRLF
      $Output = $Output & "OtherTargetOS: " & $objItem.OtherTargetOS & @CRLF
      $Output = $Output & "PrimaryBIOS: " & $objItem.PrimaryBIOS & @CRLF
      $Output = $Output & "ReleaseDate: " & WMIDateStringToDate($objItem.ReleaseDate) & @CRLF
      $Output = $Output & "SerialNumber: " & $objItem.SerialNumber & @CRLF
      $Output = $Output & "SMBIOSBIOSVersion: " & $objItem.SMBIOSBIOSVersion & @CRLF
      $Output = $Output & "SMBIOSMajorVersion: " & $objItem.SMBIOSMajorVersion & @CRLF
      $Output = $Output & "SMBIOSMinorVersion: " & $objItem.SMBIOSMinorVersion & @CRLF
      $Output = $Output & "SMBIOSPresent: " & $objItem.SMBIOSPresent & @CRLF
      $Output = $Output & "SoftwareElementID: " & $objItem.SoftwareElementID & @CRLF
      $Output = $Output & "SoftwareElementState: " & $objItem.SoftwareElementState & @CRLF
      $Output = $Output & "Status: " & $objItem.Status & @CRLF
      $Output = $Output & "TargetOperatingSystem: " & $objItem.TargetOperatingSystem & @CRLF
      $Output = $Output & "Version: " & $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

[Westi]

Unfortunately ctdmi.exe does not work on WinNT/2K (Have not checked WinXP).

Do you know an alternative?

hwinfo.ocx can be downloaded:hwinfo.zip

Dont forget to register with 'Regsvr32.exe hwinfo.ocx'

[Westi]

Another method is to use

msinfo32.exe /report c:\info.txt /categories Systemübersicht

for a german report.

Msinfo is stored in CommonProgramfiles\Microsoft Shared\MSInfo

[GrungeRocker]

well thx guys for your replys!