Author Topic: Serial Number Flash Disk  (Read 364 times)

0 Members and 1 Guest are viewing this topic.

Offline Yaku

  • Junior Member
  • *
  • Posts: 240
Serial Number Flash Disk
« on: August 21, 2018, 09:25:24 AM »
siang master2 fox-id

sy mau tanya bagaimana cara baca serial number flash disk, sy udh cari2 d forum ini tapi belum saya dapat. mungkin master2 d sini ada yg bisa memberi pencerahan.
sebelumnya sy ucapkan banyak terima kasih

salam fox-id

Offline mochhenry

  • Newbie
  • *
  • Posts: 20
Re: Serial Number Flash Disk
« Reply #1 on: August 23, 2018, 11:45:43 AM »
coba idnya flashdisk dicari

Offline xWongso

  • Newbie
  • *
  • Posts: 25
Re: Serial Number Flash Disk
« Reply #2 on: August 23, 2018, 01:40:37 PM »
Pak Yaku,
semoga fungsi ini bias membantu...

*----------------------
Function GetVN_HDD
*----------------------
**Gantilah XDrive nya sesuai letak FDnya
Parameters XDrive
If Pcount()=0
   XDrive = 'C:'
Endif
Local FS,F1,cSerial
DrvPath = XDrive
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
lcVolNumber=Right(Transform(cSerial, "@0"),8)
Return lcVolNumber

Rgds
XWongso


siang master2 fox-id

sy mau tanya bagaimana cara baca serial number flash disk, sy udh cari2 d forum ini tapi belum saya dapat. mungkin master2 d sini ada yg bisa memberi pencerahan.
sebelumnya sy ucapkan banyak terima kasih

salam fox-id

Offline Yaku

  • Junior Member
  • *
  • Posts: 240
Re: Serial Number Flash Disk
« Reply #3 on: August 24, 2018, 02:52:35 PM »
Pak Yaku,
semoga fungsi ini bias membantu...

*----------------------
Function GetVN_HDD
*----------------------
**Gantilah XDrive nya sesuai letak FDnya
Parameters XDrive
If Pcount()=0
   XDrive = 'C:'
Endif
Local FS,F1,cSerial
DrvPath = XDrive
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
lcVolNumber=Right(Transform(cSerial, "@0"),8)
Return lcVolNumber

Rgds
XWongso


siang master2 fox-id

sy mau tanya bagaimana cara baca serial number flash disk, sy udh cari2 d forum ini tapi belum saya dapat. mungkin master2 d sini ada yg bisa memberi pencerahan.
sebelumnya sy ucapkan banyak terima kasih

salam fox-id


Terima kasih banyak Pak xWongso sy sdh coba codingnya dan berjalan baik, maaf saya ada pertanyaan lg, yaitu:
1. Apakah Volume Drive Bisa berubah klo  flash disknya d format ?
2. Apakah Volume Flash Disk bisa d rubah dgn menggunakan program utility ?
3. untuk mengetshui nomor serial flash disk bagaimana ya ?  (bukan volume flashdisknya)

Terima kasi banyak  :icon_thumright:

Offline foxy

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 3.603
    • Foxy Land
Re: Serial Number Flash Disk
« Reply #4 on: August 24, 2018, 04:58:53 PM »
halooo... saya bantu jawab yaaa.....  :)

Quote from: Yaku
1. Apakah Volume Drive Bisa berubah klo  flash disknya d format ?
2. Apakah Volume Flash Disk bisa d rubah dgn menggunakan program utility ?
3. untuk mengetshui nomor serial flash disk bagaimana ya ?  (bukan volume flashdisknya)

1. Yup. Pasti berubah.
2. Bisa. Kalau gak ada program utility, bikin program nya pakai VFP juga bisa.
3. Flash disk memang tidak ada serial number seperti halnya hard disk, tapi, kalau keperluannya untuk "menandai" USB flash disk (hmmm... saya tebak: untuk copy protection?  :icon_biggrin:), Anda bisa pakai PNP device ID yang bisa diperoleh dari WMI (=Windows Management Instrumentation). Ini saya bikinin implementasi simple dari WMI, silahkan Anda coba dan modifikasi sendiri sesuai kebutuhan Anda (sebenarnya, Anda tinggal parse saja hasilnya untuk mendapatkan PNP Device ID flash disk Anda);

Code: [Select]
lcTmpFile = Sys(2015)
lcCmd = [WMIC /output:"] + lcTmpFile + [" DISKDRIVE GET PNPDeviceID,Name /Format:CSV]
Run &lcCmd.

lcFileContent = FileToStr(lcTmpFile)
? Strconv(lcFileContent,10)

Delete File (lcTmpFile)

hth,

foxy
This post is provided as is. Feel free to use all the codes and information, however understand that I don't have any obligations to fix any bug(s) or follow up this subject.

Offline Yaku

  • Junior Member
  • *
  • Posts: 240
Re: Serial Number Flash Disk
« Reply #5 on: August 25, 2018, 08:53:25 AM »
halooo... saya bantu jawab yaaa.....  :)

3. Flash disk memang tidak ada serial number seperti halnya hard disk, tapi, kalau keperluannya untuk "menandai" USB flash disk (hmmm... saya tebak: untuk copy protection?  :icon_biggrin:), Anda bisa pakai PNP device ID yang bisa diperoleh dari WMI (=Windows Management Instrumentation). Ini saya bikinin implementasi simple dari WMI, silahkan Anda coba dan modifikasi sendiri sesuai kebutuhan Anda (sebenarnya, Anda tinggal parse saja hasilnya untuk mendapatkan PNP Device ID flash disk Anda);

Code: [Select]
lcTmpFile = Sys(2015)
lcCmd = [WMIC /output:"] + lcTmpFile + [" DISKDRIVE GET PNPDeviceID,Name /Format:CSV]
Run &lcCmd.

lcFileContent = FileToStr(lcTmpFile)
? Strconv(lcFileContent,10)

Delete File (lcTmpFile)

hth,

foxy


Iya pak memang unt copy protection.
sy sdh coba coding dr pak foxy, tp yg muncul semua media penyimpanan bukan cuma flash disk dan info lainnya. sy jd bingung, maksud sy bagaiana ya caranya supaya yg muncul hanya PNP flash disk saja.
Terima kasih pak

Offline foxy

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 3.603
    • Foxy Land
Re: Serial Number Flash Disk
« Reply #6 on: August 25, 2018, 10:15:37 AM »
 :tongue9:

maka nya: di reply saya bilang:
Quote from: me
(sebenarnya, Anda tinggal parse saja hasilnya untuk mendapatkan PNP Device ID flash disk Anda);

maksudnya, bagian nge-parse itu; silahkan Anda coba dan pikir sendiri  :icon_biggrin:

Hint: coba beberapa flash disk yang berbeda (2 atau 3 flash disk sudah cukup); Anda akan bisa melihat polanya, jadi Anda akan tau mana yang harus di parse.  :)

hth,

foxy
This post is provided as is. Feel free to use all the codes and information, however understand that I don't have any obligations to fix any bug(s) or follow up this subject.