1. physical hard disk ...
Hello All!
I want a sample code for read physical hard disk number.
Tanks!
2. physical hard disk ...
I need a sample code for "read" Physical Disk Drive Information(serial).
Thanks!
3. Re: physical hard disk ...
Marcelo wrote:
>
> I need a sample code for "read" Physical Disk Drive Information(serial).
> Thanks!
>
I'ts not that difficult to take out and look at it all you need is a phillips.
If you really need the serial.
If you know the model that's all you should need.
Try
http://www.belarc.com/free_download.html
and download the Belarc Advisor.
Don Cole
SF
4. Re: physical hard disk ...
Ok, but i need a routine in Euphoria Software for get the serial id from hard
disk, for
protection implementing in my software.
Sorry for my english!
Thanks...
5. Re: physical hard disk ...
Marcelo wrote:
>
> Ok, but i need a routine in Euphoria Software for get the serial id from hard
> disk,
> for protection implementing in my software.
I'll send you the code tomorrow morning when I get back to work.
-=ck
"Programming in a state of EUPHORIA."
http://www.cklester.com/euphoria/
6. Re: physical hard disk ...
This should work:
--include dll.e
--include machine.e
--include get.e
constant
kernel32 = open_dll( "kernel32.dll" ),
xGetVolumeInfo = define_c_func( kernel32, "GetVolumeInformationA",
{C_POINTER, C_POINTER, C_UINT, C_POINTER, C_POINTER,
C_POINTER, C_POINTER, C_UINT }, C_INT)
global function getVolSerial( object root_dir )
-- Input: A string that contains the root directory of the volume to be
described.
-- A trailing backslash is required. For example, you would specify
-- \\MyServer\MyShare as "\\\\MyServer\\MyShare\\", or the C drive as
"C:\\".
-- Output: Volume Serial Number
atom rootPathName, volSerNum
sequence ret_val
if atom(root_dir) then
root_dir = root_dir & ":\\"
end if
rootPathName = allocate_string( root_dir )
volSerNum = allocate( 4 )
if not c_func( xGetVolumeInfo, { rootPathName, NULL, NULL, volSerNum,
NULL, NULL, NULL, NULL } ) then
puts( 1, "\n**xGetVolumeInfo failed in function getVolSerial**\n" )
puts(1, root_dir)
end if
ret_val = { peek4u( volSerNum ) }
free( rootPathName )
free( volSerNum )
return ret_val
end function
-=ck
"Programming in a state of EUPHORIA."
http://www.cklester.com/euphoria/
