Mendapatkan serial number hardisk dengan MS. visual foxpro 9.0

Koding untuk mendapatkan serial number hardisk dengan visual foxpro
---------------------------------

IF PCOUNT()=0
drvPath = "C:"
ENDIF
LOCAL FS,F1,cSerial
drvPath = IIF(LEN(drvPath)=1,drvPath+":",drvPath)
fs = CreateObject("Scripting.FileSystemObject")
f1 = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvPath)))
cSerial = f1.SerialNumber
RELEASE fs,f1
a=RIGHT(TRANSFORM(cSerial, "@0"), 8)
?a

---------------------------------

dengan mendapatkan serial number hardisk maka dapat diterapkan pada pembuatan serial number software

silahkan mencoba !

Share this :