Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Adam Walan
  Where is Adam Walan?
 Chicago
 Illinois - United States
 Adam Walan
 To: gaurav sharma
  Where is gaurav sharma?
 bhilwara
 India
 gaurav sharma
 Tags
Subject: RE: Hard Disk Serial No.
Thread ID: 268084 Message ID: 268656 # Views: 61 # Ratings: 0
Version: Visual FoxPro 9 SP2 Category: Security and Application Protection
Date: Tuesday, July 13, 2010 7:40:36 PM         
   


> hi Experts,
> How can i get Harddisk Serial No.?
> Thanks

I do use HDD serial number to prevent my customers to activate software on more computers than they purchase license for....


Function GetHDDSerial
Local lcserial
fso = Create('Scripting.FileSystemObject')
*Make sure you are taking HDD where your program is installed - some comp. may have more hdd's...
Local install_drive
install_drive=Left(Justdrive(my_program_install_folder),1)
*MESSAGEBOX(install_drive)
lcserial = Substr(Transform(fso.drives.Item(install_drive).SerialNumber, '@0'),3)
*MESSAGEBOX(lcserial)
Release fso
Return lcserial
Endfunc

ENTIRE THREAD

Hard Disk Serial No. Posted by gaurav sharma @ 7/8/2010 1:58:07 PM
RE: Hard Disk Serial No. Posted by Glen Villar @ 7/8/2010 2:02:39 PM
RE: Hard Disk Serial No. Posted by loo peng @ 7/10/2010 11:37:39 AM
RE: Hard Disk Serial No. Posted by Mike Gagnon @ 7/10/2010 12:28:37 PM
RE: Hard Disk Serial No. Posted by khubaib khalid @ 7/11/2010 8:01:36 AM
RE: Hard Disk Serial No. Posted by Mike Gagnon @ 7/11/2010 12:29:41 PM
RE: Hard Disk Serial No. Posted by khubaib khalid @ 7/11/2010 12:45:18 PM
RE: Hard Disk Serial No. Posted by tushar @ 7/8/2010 2:06:02 PM
RE: Hard Disk Serial No. Posted by gaurav sharma @ 7/8/2010 2:12:05 PM
RE: Hard Disk Serial No. Posted by tushar @ 7/8/2010 3:49:59 PM
RE: Hard Disk Serial No. Posted by gaurav sharma @ 7/9/2010 7:55:49 AM
RE: Hard Disk Serial No. Posted by tushar @ 7/9/2010 8:20:11 AM
RE: Hard Disk Serial No. Posted by Leonid Lepin @ 7/8/2010 3:12:58 PM
RE: Hard Disk Serial No. Posted by tom knauf @ 7/9/2010 5:07:52 PM
RE: Hard Disk Serial No. Posted by loo peng @ 7/10/2010 11:35:57 AM
RE: Hard Disk Serial No. Posted by tom knauf @ 8/20/2010 4:41:05 PM
RE: Hard Disk Serial No. Posted by Yousfi Benameur @ 7/13/2010 3:23:31 PM
RE: Hard Disk Serial No. Posted by Mike Gagnon @ 7/14/2010 2:17:28 AM
RE: Hard Disk Serial No. Posted by Yousfi Benameur @ 7/14/2010 12:27:02 PM
RE: Hard Disk Serial No. Posted by Mike Gagnon @ 7/15/2010 3:09:38 AM
RE: Hard Disk Serial No. Posted by Yousfi Benameur @ 7/15/2010 8:28:43 AM
RE: Hard Disk Serial No. Posted by Leonid Lepin @ 7/15/2010 10:34:12 AM
RE: Hard Disk Serial No. Posted by Yousfi Benameur @ 7/15/2010 1:01:31 PM
RE: Hard Disk Serial No. Posted by Adam Walan @ 7/13/2010 7:40:36 PM
RE: Hard Disk Serial No. Posted by Mike Gagnon @ 7/14/2010 2:19:09 AM
RE: Hard Disk Serial No. Posted by marcelo ferrone @ 10/17/2010 5:44:32 PM