05-04-16, 02:39 AM
وعليك السلام ورحمة الله وبركاته , أهلا أخي عبدالعزيز , شكراً جزيلاً لك , هذا كودك بعد تعديله ليتم وضع رقم الهارد دسك في التكست :
PHP كود :
Private Sub Form_Load()
Dim StrComputer As String
Text1.Text = ""
StrComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & StrComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMedia", , 48)
For Each objItem In colItems
If Not IsNull(objItem.SerialNumber) Then
If InStr(1, LCase$(objItem.Tag), "physicaldrive0") <> 0 And Trim$(Text1.Text) = "" Then
Text1.Text = Trim$(objItem.SerialNumber)
Exit Sub
End If
End If
Next
End Sub