[Ahmed_Mansoor]

وعليك السلام ورحمة الله وبركاته , أهلا أخي عبدالعزيز , شكراً جزيلاً لك , هذا كودك بعد تعديله ليتم وضع رقم الهارد دسك في التكست :

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