Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Jun Tangunan
  Where is Jun Tangunan?
 Cabanatuan
 Philippines
 Jun Tangunan
 To: Sajan Jacob
  Where is Sajan Jacob?
 mumbai
 India
 Sajan Jacob
 Tags
Subject: RE: Server Hdd Sl.no
Thread ID: 331511 Message ID: 331542 # Views: 79 # Ratings: 0
Version: Visual FoxPro 9 SP2 Category: Projects and Design
Date: Friday, December 30, 2011 11:10:20 PM         
   


> Hi
> My application check the hdd serial number while login the user. It gets correct C Drive slno of the system from where the short cut is running in client pc. I would like to get the serial number of the Server pc, for all users who are running the application. Coding is as follows. Can any one correct the same to get the above out put.
>
>
> PROCEDURE hddslno
> PARAMETERS mhddslno
> tcdrive=' ' 
> local lnSerial, lcSerial, lcDrive
> IF EMPTY(tcDrive)
> 	lcDrive = "C:\"
> ELSE
> 	lcDrive = ADDBS(tcDrive)
> ENDIF 
> 
> declare integer GetVolumeInformation in Win32API ;
> 	string  lpRootPathName, ;
> 	string  @lpVolumeNameBuffer, ;
> 	integer nVolumeNameSize, ;
> 	integer @lpVolumeSerialNumber, ;
> 	integer @lpMaximumComponentLength, ;
> 	integer @lpFileSystemFlags, ;
> 	string  @lpFileSystemNameBuffer, ;
> 	integer nFileSystemNameSize
> 	
> lnSerial = 0
> GetVolumeInformation(lcDrive,.null.,0,@lnSerial,0,0,.null.,0)
> 
> If lnSerial < 0
> 	lnSerial = lnSerial + 2^32
> Endif
> 

>
> Regards
> Sajan Jacob


Sajan, that is not the actual hdd serial but just the volume serial of a drive. Unfortunately, that will never be a good protection because HDDs can be cloned. And when you say clone, it means everything (well almost) including volume serial with the exception of the real hdd serial which is set by the manufacturers themselves.

If I am your client, I will simply clone the harddrive and your protection will instantaneously be gone.

http://sandstorm36.blogspot.com
http://weblogs.foxite.com/sandstorm36/default.aspx

ENTIRE THREAD

Server Hdd Sl.no Posted by Sajan Jacob @ 12/30/2011 4:25:08 PM
RE: Server Hdd Sl.no Posted by Jun Tangunan @ 12/30/2011 11:10:20 PM
RE: Server Hdd Sl.no Posted by Sajan Jacob @ 1/2/2012 1:45:27 PM
RE: Server Hdd Sl.no Posted by Mike Gagnon @ 12/31/2011 12:44:47 PM
RE: Server Hdd Sl.no Posted by Pete Sass @ 12/31/2011 6:05:08 PM
RE: Server Hdd Sl.no Posted by Mike Gagnon @ 1/1/2012 5:04:52 AM
RE: Server Hdd Sl.no Posted by Pete Sass @ 1/1/2012 4:43:24 PM
RE: Server Hdd Sl.no Posted by Mike Gagnon @ 1/2/2012 2:11:32 AM
RE: Server Hdd Sl.no Posted by Sajan Jacob @ 1/2/2012 1:27:03 PM
RE: Server Hdd Sl.no Posted by Mike Gagnon @ 1/2/2012 5:20:30 PM
RE: Server Hdd Sl.no Posted by Pete Sass @ 1/2/2012 5:52:07 PM
RE: Server Hdd Sl.no Posted by Jun Tangunan @ 1/2/2012 11:38:03 PM
RE: Server Hdd Sl.no Posted by Sajan Jacob @ 1/3/2012 10:42:34 AM
RE: Server Hdd Sl.no Posted by Mike Gagnon @ 1/3/2012 11:38:56 AM
RE: Server Hdd Sl.no Posted by Sajan Jacob @ 1/3/2012 1:14:55 PM
RE: Server Hdd Sl.no Posted by Mike Gagnon @ 1/3/2012 1:23:09 PM
RE: Server Hdd Sl.no Posted by Mike Gagnon @ 1/3/2012 11:34:20 AM
RE: Server Hdd Sl.no Posted by Pete Sass @ 1/4/2012 12:51:12 AM
RE: Server Hdd Sl.no Posted by Jun Tangunan @ 1/4/2012 3:06:12 AM
RE: Server Hdd Sl.no Posted by Sajan Jacob @ 1/4/2012 2:05:06 PM
RE: Server Hdd Sl.no Posted by Mike Gagnon @ 1/4/2012 2:51:44 PM
RE: Server Hdd Sl.no Posted by Sajan Jacob @ 1/4/2012 3:31:19 PM
RE: Server Hdd Sl.no Posted by Mike Gagnon @ 1/4/2012 5:39:19 PM
RE: Server Hdd Sl.no Posted by Jun Tangunan @ 1/5/2012 1:55:24 AM
RE: Server Hdd Sl.no Posted by Mike Gagnon @ 1/4/2012 2:53:21 PM