AutoHotkey Community
It is currently May 26th, 2012, 12:21 am

View unanswered posts | View active topics


Board index » AutoHotkey » Support

All times are UTC [ DST ]



Post new topic Reply to topic  Page 3 of 3
  [ 44 posts ]  Go to page Previous  1, 2, 3
  Print view | E-mail friend Previous topic | Next topic 
Author Message
Obi-Wahn
 Post subject:
PostPosted: December 6th, 2007, 7:09 pm 
Offline

Joined: April 20th, 2006, 5:11 pm
Posts: 75
Location: Vienna
Im not sure about the value of this, but did you mean, you need the VendorID and ProductID (like shown into the "Geräteinstanzkennung" (sorry, i'm using a German version / translated: "device instance id"))?

If it's so, a contact from the Windows-Unattended Board (sorry, german) coded a .exe and a .dll to retrieve this.

I've upped a package including a sample .ahk file (modifications from me: Create Function)

[1] DOWNLOAD PACKAGE
[2] DOWNLOAD SECTION WINDOWS-UNATTENDED-Board


Report this post
Top
 Profile  
Reply with quote  
Laszlo
 Post subject:
PostPosted: December 6th, 2007, 7:47 pm 
Offline

Joined: February 14th, 2005, 4:05 pm
Posts: 4710
Location: Boulder, CO
Thanks for the dll, but a quick search in the registry (Vista) revealed that the returned value can be found at a few places:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WBEM\WDM
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\disk\Enum
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\partmgr\Enum
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Enum\IDE
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\IDE
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\disk\Enum
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\partmgr\Enum

Several more cryptic keys also contained this disk ID. If other Windows versions have similar registry entries, there will be no need for a dll or API calls. Except, for security reasons. Has anyone tried to edit these entries in the registry? Windows might reset them, or disallow their changes.


Report this post
Top
 Profile  
Reply with quote  
dandy
 Post subject:
PostPosted: December 8th, 2007, 9:03 pm 
Offline

Joined: May 9th, 2007, 8:13 am
Posts: 45
Quote:
Laszlo wrote:
You can download it from the trusted SoftPedia: http://www.softpedia.com/progDownload/G ... 23473.html, but it is shareware, you have to register for $15. Why bother? There are free tools, just search the Forum.


I searched and didn't find a Dll solution for this. Most of what I found were command line utilities or only returned the volume serial number, not the serial number the manufacturer gives the drive that cannot be changed by formatting.

Here is a link to the page for the DLL from the original developers:
http://www.devlib.net/getdiskserial.htm

I read through some of the examples provided and came up with this:
Code (Expand - Copy):
RegCode := 000000000000
Drive := 0

hModule := DllCall("LoadLibrary", "Str", "GetDiskSerial.dll")

Serial := DllCall("GetDiskSerial\GetSerialNumber", Int, Drive, Str, RegCode)

Model := DllCall("GetDiskSerial\GetModelNumber", Int, Drive, Str, RegCode)

Revision := DllCall("GetDiskSerial\GetRevisionNo", Int, Drive, Str, RegCode)

Buffer := DllCall("GetDiskSerial\GetBufferSize", Int, Drive, Str, RegCode)

Cylinders := DllCall("GetDiskSerial\GetCylinders", Int, Drive, Str, RegCode)

Heads := DllCall("GetDiskSerial\GetHeads", Int, Drive, Str, RegCode)

Sectors := DllCall("GetDiskSerial\GetSectors", Int, Drive, Str, RegCode)

DllCall("FreeLibrary", "UInt", hModule)

MsgBox Serial: %Serial%`nModel: %Model%`nRevision: %Revision%`nBuffer: %Buffer%`nCylinders: %Cylinders%`nHeads: %Heads%`nSectors: %Sectors%
´

i bought getdiskserial.dll last night,and the retail version fails to retrieve the real serial number when using the quoted script.

both dlls(demo and retail) works just fine with the examples enclosed with the dll,so it must be bad dllcall code.

im offering 20$ for a working script using dllcall,i just need to retrieve serial number,the other paramethers are not needed.

any people interested can try with the demo dll as its exactly the same as retail but with a nag screen added.

thanks.


Report this post
Top
 Profile  
Reply with quote  
Laszlo
 Post subject:
PostPosted: December 8th, 2007, 10:13 pm 
Offline

Joined: February 14th, 2005, 4:05 pm
Posts: 4710
Location: Boulder, CO
I tryed the demo: compiled the VC example with VS'05, under Vista-32. Drive 0 shows some funny characters, otherwise every box is either empty or contains 0. It does not seem to work in my system...


Report this post
Top
 Profile  
Reply with quote  
dandy
 Post subject:
PostPosted: December 8th, 2007, 10:15 pm 
Offline

Joined: May 9th, 2007, 8:13 am
Posts: 45
probably vista related,i tested with winxp sp2,the examples work ok,all data retrieved fine from ide and sata drives.

thanks for taking a look lazlo.


Report this post
Top
 Profile  
Reply with quote  
Laszlo
 Post subject:
PostPosted: December 8th, 2007, 10:26 pm 
Offline

Joined: February 14th, 2005, 4:05 pm
Posts: 4710
Location: Boulder, CO
Looking at the results of the AHK version, it looks like the return values of the GetSerialNumber and GetModelNumber are pointers. If true, you have to copy the result to an AHK string, or set the type of the return value of the dllcall to “STR” (last param), but I cannot test it.


Report this post
Top
 Profile  
Reply with quote  
SKAN
 Post subject:
PostPosted: December 8th, 2007, 11:22 pm 
Offline
User avatar

Joined: December 26th, 2005, 4:40 pm
Posts: 8775
Works for me in XP and SATA Drive

Code:
hModule := DllCall("LoadLibrary", "Str", "GetDiskSerial.dll")

RegCode := 000000000000
Drive   := 0

Serial := LStrCpy( DllCall("GetDiskSerial\GetSerialNumber", Int, Drive, Str, RegCode) )
Model  := LStrCpy( DllCall("GetDiskSerial\GetModelNumber",  Int, Drive, Str, RegCode) )

MsgBox, % "Serial`t: " Serial "`nModel`t: " Model


LStrCpy( DataPtr="", DataLen=0  ) {
  If ! DataLen
  DataLen := DllCall( "lstrlen", UInt,DataPtr )
  VarSetCapacity( Data, DataLen )
  DllCall( "lstrcpy", Str,Data, UInt,DataPtr )
 Return Data
}


:)


Report this post
Top
 Profile  
Reply with quote  
Laszlo
 Post subject:
PostPosted: December 8th, 2007, 11:27 pm 
Offline

Joined: February 14th, 2005, 4:05 pm
Posts: 4710
Location: Boulder, CO
do these fail?
Code:
Serial := DllCall("GetDiskSerial\GetSerialNumber", "Int",Drive, "Str", RegCode, "STR")
Model  := DllCall("GetDiskSerial\GetModelNumber",  "Int",Drive, "Str", RegCode, "STR")


Report this post
Top
 Profile  
Reply with quote  
SKAN
 Post subject:
PostPosted: December 8th, 2007, 11:30 pm 
Offline
User avatar

Joined: December 26th, 2005, 4:40 pm
Posts: 8775
It works :o
I am learning. :)


Report this post
Top
 Profile  
Reply with quote  
dandy
 Post subject:
PostPosted: December 9th, 2007, 1:07 am 
Offline

Joined: May 9th, 2007, 8:13 am
Posts: 45
great guys, but now who gets the 20$?


Report this post
Top
 Profile  
Reply with quote  
Laszlo
 Post subject:
PostPosted: December 9th, 2007, 1:21 am 
Offline

Joined: February 14th, 2005, 4:05 pm
Posts: 4710
Location: Boulder, CO
dandy wrote:
great guys, but now who gets the 20$?
Skan. He was the first with a working script.


Report this post
Top
 Profile  
Reply with quote  
SKAN
 Post subject:
PostPosted: December 9th, 2007, 1:40 am 
Offline
User avatar

Joined: December 26th, 2005, 4:40 pm
Posts: 8775
dandy wrote:
but now who gets the 20$?


Either Laszlo or here


Report this post
Top
 Profile  
Reply with quote  
dandy
 Post subject:
PostPosted: December 9th, 2007, 2:43 am 
Offline

Joined: May 9th, 2007, 8:13 am
Posts: 45
well, as lazlo said skan and skan said lazlo or autohotkey the 20$ went to autohotkey.

thanks lazlo,skan and chris.

Payment Details

Transaction ID: 5B3033191C974131R
Item Price: $20.00 USD
Total: $20.00 USD
Order Description: AutoHotkey Donation


Report this post
Top
 Profile  
Reply with quote  
SKAN
 Post subject:
PostPosted: December 9th, 2007, 3:19 am 
Offline
User avatar

Joined: December 26th, 2005, 4:40 pm
Posts: 8775
Thanks :D


Report this post
Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 3 of 3
  [ 44 posts ]  Go to page Previous  1, 2, 3

Board index » AutoHotkey » Support

All times are UTC [ DST ]

Who is online

Users browsing this forum: Bing [Bot], BrandonHotkey, Google Feedfetcher, janopn, MSN [Bot] and 58 guests

You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Powered by phpBB® Forum Software © phpBB Group