Hardrive Serial no

[pb4ever]

How do n determine the hardrive serial in powerbuilder 11.5

 

[mbalent]

From Real's PB How To web site (

http://www.rgagnon.com/pbdetails/pb-0214.html):

[local external function declaration]
FUNCTION long GetVolumeInformation & 
  (string lpRootPathName, REF string lpVolumeNameBuffer, &
   long nVolumeNameSize, & 
   REF long lpVolumeSerialNumber, REF long lpMaximumComponentLength, & 
   REF long lpFileSystemFlags, REF string lpFileSystemNameBuffer, & 
   long nFileSystemNameSize) & 
   LIBRARY "Kernel32.dll" ALIAS FOR "GetVolumeInformationA"
   
[powerscript]
String ls_volbuffer, ls_fsname
Long  ll_serial, ll_MaxCompLength, ll_FileSystemFlags, ll_rtn

ls_volbuffer = Space(255)
ls_fsname = Space(255)
ll_maxCompLength = 0
ll_FileSystemFlags = 0

ll_rtn = GetVolumeinformation("C:\", ls_volbuffer, 255, ll_serial, & 
                 ll_MaxCompLength, ll_FileSystemFlags , ls_fsname, 255)

// ls volbuffer  - volume name
// ll_serial     - hard disk serial number
// ls_fsname     - file system name ex. NTFS

You may need to use the unicode version of the api call, depending upon your operating system.

Matt

"Nature forges everything on the anvil of time"

http://www.anvil-of-time.com

 

[miguelleeuwe]

great !

regards,
Miguel L.