[asemshahen5]

PHP كود :

For Each vv As ManagementObject In theSearcher.Get
            Dim SerialNumberObject As New ManagementObject("Win32_PhysicalMedia.Tag='" + vv("DeviceID").ToString + "'")
            Dim k() As String
            k = vv("PnPDeviceID").ToString.Split("\&".ToCharArray)
            TextBox1.Text = "Name : " + vv("model") + vbNewLine + "Serial Number : " + k(k.Length - 2) + vbNewLine + "==================================="
        Next 


ضع التكست بوكس ملتي لين