Parameters to use diskserial.dll or another way to see the serial HD.

[Belini]

Gotta catch the serial HD and do not know what parameters to use with diskserial.dll

Edited October 7, 2012 by Belini

[AdmiralAlkex]

Remember that this is a support forum, show us that you tried something, and we will help you work on it. And you may want to tell where you got the dll from, I don't think there is any diskserial.dll included in Windows.

[water]

I think he is talking about this piece of code: http://www.devlib.net/getdiskserial.htm

[BrewManNH]

Seems kind of pricey to just get a serial number and hd information, when Windows gives it to you for the price of installing it.

[UEZ]

Something like that here if you are willing to work with WMI?:

expandcollapse popup

Global $oErrorHandler = ObjEvent("AutoIt.Error", "ObjErrorHandler")

MsgBox(0, "Test", WMI_GetHDDSN("."))

Func WMI_GetHDDSN($host, $usr = "", $pass = "") ;coded by UEZ 2011
    If $host = "." Then $host = "localhost"
    Local $HDD_SN
    Local $ping = Ping($host, 1000)
    If @error Then Return SetError(1, 0, -1)
    Local $objWMILocator = ObjCreate("WbemScripting.SWbemLocator")
    Local $objWMIService = $objWMILocator.ConnectServer($host, "rootcimv2", $usr, $pass, "", "", 128)
    If @error Then Return SetError(2, 0, -1)
    Local $colItems = $objWMIService.ExecQuery("SELECT Model, Name, SerialNumber FROM Win32_DiskDrive WHERE MediaType='Fixed hard disk media'", "WQL", 0x30)
    If IsObj($colItems) Then
        For $objItem In $colItems
            $HDD_SN &= "Model: " & $objItem.Model & ", S/N: " & WMI_GetHDDSN2(StringMid($objItem.Name, 5), $host, $usr, $pass) & @LF
        Next
    Else
        Return SetError(3, 0, -1)
    EndIf
    Return $HDD_SN
EndFunc

Func WMI_GetHDDSN2($Tag, $host, $usr = "", $pass = "") ;coded by UEZ 2011
    Local $HDD_SN
    Local $objWMILocator = ObjCreate("WbemScripting.SWbemLocator")
    Local $objWMIService = $objWMILocator.ConnectServer($host, "rootcimv2", $usr, $pass, "", "", 128)
    Local $colItems = $objWMIService.ExecQuery("SELECT SerialNumber,Tag FROM Win32_PhysicalMedia WHERE Tag  LIKE '%" & $Tag & "%'", "WQL", 0x30)
    If IsObj($colItems) Then
        For $objItem In $colItems
            ConsoleWrite($objItem.Tag & @LF)
            $HDD_SN = $objItem.SerialNumber
        Next
    Else
        Return SetError(3, 0, -1)
    EndIf
    Return $HDD_SN
EndFunc

Func ObjErrorHandler()
     ConsoleWrite(    "A COM Error has occured!" & @CRLF  & @CRLF & _
                                "err.description is: "    & @TAB & $oErrorHandler.description    & @CRLF & _
                                "err.windescription:"     & @TAB & $oErrorHandler & @CRLF & _
                                "err.number is: "         & @TAB & Hex($oErrorHandler.number, 8)  & @CRLF & _
                                "err.lastdllerror is: "   & @TAB & $oErrorHandler.lastdllerror   & @CRLF & _
                                "err.scriptline is: "     & @TAB & $oErrorHandler.scriptline     & @CRLF & _
                                "err.source is: "         & @TAB & $oErrorHandler.source         & @CRLF & _
                                "err.helpfile is: "       & @TAB & $oErrorHandler.helpfile       & @CRLF & _
                                "err.helpcontext is: "    & @TAB & $oErrorHandler.helpcontext & @CRLF _
                            )
EndFunc

Br,

UEZ

Edited October 5, 2012 by UEZ

[Belini]

Thanks to all for the answers, UEZ who posted this script can not get the serial of all HD's only a few.

[Danny35d]

You can use DriveGetSerial() function

[Belini]

This number does not fit, need to get the physical number of HD.

[water]

You can use DriveGetSerial() function

No he can't for what he needs. See the help file for DriveGetSerial:

"The value returned is not the hardware serial number as found on the label of the drive, it is the Windows Volume ID for the drive."

[JLogan3o13]

I would think you could do something like this...

$wbemFlagReturnImmediately = "&h10"
$wbemFlagForwardOnly = "&h20"
$WMI = ObjGet("winmgmts:" & @ComputerName & "rootCIMV2")
 
$aArray = $WMI.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

For $element in $aArray
 MsgBox(0, @ComputerName, $element.SerialNumber)
Next

[Belini]

@JLogan3o13 here on a HD 1500GB showed no serial number

[guinness]

I would think you could do something like this...

$wbemFlagReturnImmediately = "&h10"
$wbemFlagForwardOnly = "&h20"
$WMI = ObjGet("winmgmts:" & @ComputerName & "rootCIMV2")

$aArray = $WMI.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

For $element in $aArray
 MsgBox(0, @ComputerName, $element.SerialNumber)
Next

Works for me on Windows 7 x64.

[Belini]

Using Win Xp spack2 and it did not work.

[Belini]

The problem was solved using the freeware program DiskSmartView, thanks to help from friend Joelson007.

Link to topic: http://autoitbrasil.com/index.php?/topic/914-drivegetserialnumber/page__view__findpost__p__6074

Developer's site: http://www.nirsoft.net/utils/disk_smart_view.html