Hỏi về cách lấy số Seial ổ điã cứng bằng Visual FoxPro

[lantvxdkg]

Mình viết một phần mềm về quản lý bằng Visual FoxPro có bạn nào biết cách lấy số Seial ổ điã cứng chỉ mình với. Cảm ơn nhiều

 

[hvtgroup]

Bạn thử xem:

?hdd_seri()
FUNCTION hdd_seri
LPARAMETERS drvPath
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
RETURN RIGHT(TRANSFORM(cSerial, "@0"), 8)

 

[lantvxdkg]

Cảm ơn bạn hvtgroup, hàm này chỉ lấy được nhãn ổ điã (ví dụ : C:, D chứ không lấy được số ****** của ổ điã cứng. Mình đang tìm mà vẫn không được.

 

[lehongduc]

Hãy sử dụng thư viện WMI của Bác Bill.

Chào các Bạn,
Với thư viện WMI của Bác Bill (Microsoft), các bạn có thể lấy Số ****** của nhiều thiết bị khác chứ không riêng gì ổ cứng.
Các Bạn search bằng Google để tìm nhé. Tự tìm và thấy lúc nào cũng "đã" hơn phải không các Bạn?

 

[lantvxdkg]

Cảm ơn bạn lehongduc mình đã làm được rồi.