get serial from cmd

[legend]

HI is there a way I can get the serial from cmd to a variable?

if you go to cmd and type: vol

you get the serial number for (c:\)

C:\Users\mac>vol

Volume in drive C has no label.

Volume Serial Number is E497-2EDC

I want to make a hwid authentication system, however I am not sure that this number is changed, if you reinstall.

[water]

I suggest to use function DriveGetSerial. That's much easier.

[Danyfirex]

something like this:

#include <Constants.au3>

Vol()
Func Vol()
$output_read = Run(@ComSpec & " /c vol", @SystemDir, @SW_HIDE, $STDOUT_CHILD)
$output = ""
While 1
$line = StdoutRead($output_read)
If @error Then ExitLoop
If StringLen($line) > 2 Then
$output &= $line
EndIf
WEnd
Local $aREResult = StringSplit($output,":")
msgbox(0,"Volume Serial Number is:",$aREResult[2])
EndFunc

regards

Edited October 5, 2012 by Danyfirex

[kylomas]

legend,

You may also be interested in this thread which discusses various HD signatures, what they affect and how they are generated.

kylomas

[W4RD14L3R]

Got to agree with Water on this one.. DriveGetSerial seems much simpler

$Serial = DriveGetSerial( 'C:' )

[Kerros]

There is a problem with DriveGetSerial, always has been that this function will return the Windows serial number, not a drive hardware serial number.

from the Help doc.

Remarks

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.

The way to get the hardware serial number from Windows Vista on is through the WMI. (This does not work with windows XP)

$objWMIService = ObjGet("winmgmts:LocalHostrootCIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", 0x10 + 0x20)


If IsObj($colItems) Then
For $objItem In $colItems
Serial = $objItem.SerialNumber&@CRLF
next
EndIf

ConsoleWrite('Serial: '&$Serial&@CRLF)

Edited October 5, 2012 by Kerros

[W4RD14L3R]

You could always do it the long yet effective way of "Vol" works in the cmd for you then try outputting the display

text for cmd.exe

C:Usersmac> vol > C:vol.txt

This would output the drive id and serial number to C:vol.txt afterwards use the following code.

#Include <File.au3>
Local $File = 'C:Vol.txt'
For $n = 1 To _FileCountLines( $File ) Step + 1
$Line = FileReadLine( $File, $n )
If StringinStr( $Line, 'Volume Serial Number is' ) Then
  $Line = StringReplace( $Line, 'Volume Serial Number is', '' )
  $Line = StringReplace( $Line, ' ', '' )
  $DriveID = $Line
EndIf
Next

The code checks the lines in the file for Volume Serial.... Removes it and all blank whitespaces and leaves the code in the variable $DriveID

[water]

Kerros,

that's correct but the OP uses the VOL command. And VOL returns the volume serial number like DriveGetSerial does.

So DriveGetSerial seems to solve his problem.

To get the hardware serial number please search the forum. There was a discussion about this subject today.

Edited October 5, 2012 by water

[W4RD14L3R]

You can also try the Unique Disk ID #

To get this you still need to go through cmd calls.

C:UsersGh0st> diskpart
diskpart> List Disk
          Disk 0     Online
diskpart> Select Disk 0
          Disk 0 selected
diskpart> UniqueID Disk
          Disk ID: xxxxxxx