[silverlight]

يمكنك استخدام Process مع Command Prompt للحصول علي سيريال الهارد ديسك

و الكود التالي يوضح كيفية عمل ذلك

انت تحتاج ان تفتح فورم و تضع به باتون وتكست بوكس

كود :

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = GetSerial()
   End Sub

   Private Function GetSerial() As String
       Dim p As Process = New Process
       Dim pi As ProcessStartInfo = New ProcessStartInfo
       pi.Arguments = "/c wmic bios get serialnumber"
       pi.FileName = "cmd"
       pi.RedirectStandardOutput = True
       pi.UseShellExecute = False
       pi.CreateNoWindow = True
       p.StartInfo = pi
       p.Start()
       Dim reader As StreamReader = p.StandardOutput
       Dim output As String = reader.ReadToEnd()
       output = output.Replace("SerialNumber  ", "")
       Return output
   End Function

End Class