Mengetahui Serial Number Drive dengan Foxpro

Script ini berfungsi untuk mengetahui serial number drive di harddisk kita. banyak hal yang bisa dilakukan ketika kita mengetahui serial number drive kita. salah satuanya adalah untuk mengunci software atau aplikasi. maksudnya gimana?ketika kita membangun sebuah software atau aplikasi,kita tidak mau aplikasi yang kita bangun tadi di copy sembarangan. maka kita bisa terapkan pengenalan serial number untuk mengetahui apakah aplikasi kita di copy tanpa izin?

skenario pertama adalah buat table atau file sebagai penyimpan serial number, ketika aplikasi dijalankan, cek apakah table atau file sudah ada isinya dan cocokan dengan serial number drive tempat aplikasi disimpan,jika cocok lanjutkan tetapi jika tidak cocok, kasih pesan dan aplikasi tidak bisa dijalankan

berikut ini adalh script untuk mengetahui serial number drive:

LOCAL lcComputerName, loWMI, lowmiWin32Objects, lowmiWin32Object,HddID
lcComputerName = GETWORDNUM(SYS(0),1)
loWMI = GETOBJECT(“WinMgmts://” + lcComputerName)
lowmiWin32Objects = loWMI.InstancesOf(‘Win32_LogicalDisk’)
FOR EACH lowmiWin32Object IN lowmiWin32Objects
WITH lowmiWin32Object
&& IF .Name=”C:” && untuk drive C
? .Name
? .VolumeSerialNumber
&& ENDIF
ENDWITH
ENDFOR

selamat mencoba