alibaba2209
Thành viên thường trực
- Tham gia
- 4/12/10
- Bài viết
- 283
- Được thích
- 13
code này lấy thông số ổ cứng, khi cài win lại nó lại đổi khác là sao nhỉ các anh!
Hay có thông số khác ổ cứng cố định không ạ!
Hay có thông số khác ổ cứng cố định không ạ!
PHP:
Function Readserienumber() Application.Volatile With CreateObject("Scripting.FileSystemObject") With .GetDrive(Environ("SystemDrive")) If .IsReady Then Readserienumber = Abs(.SerialNumber) Else Readserienumber = -1 End If End With End WithEnd Function
