'Beispiel: VB .Net - WMI - HD - Seriennummer ermitteln. 1 ' ' Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.Management Namespace VBDotNet_Volume_GetSerialNumber Public Class MainForm Inherits System.Windows.Forms.Form Private button1 As System.Windows.Forms.Button Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.button1 = New System.Windows.Forms.Button Me.SuspendLayout ' 'button1 ' Me.button1.Location = New System.Drawing.Point(8, 8) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(280, 32) Me.button1.TabIndex = 0 Me.button1.Text = "&Test..." AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 45) Me.Controls.Add(Me.button1) Me.Name = "MainForm" Me.Text = "Testform <WMI - HD - Seriennummer ermitteln>" Me.ResumeLayout(false) End Sub #End Region Private Sub Button1Click(sender As System.Object, e As System.EventArgs) Dim Result As String = GetHDSerialNumber("c:") If (Not Result Is String.Empty) Then MessageBox.Show(Result, "Info") End If End Sub Private Function GetHDSerialNumber(ByVal drv As String) As String Try Dim mo As New _ ManagementObject("Win32_LogicalDisk.DeviceID=""" & drv & """") Return mo.Properties("VolumeSerialNumber").Value.ToString() Catch ex As Exception MessageBox.Show(ex.Message, "Info") End Try Return String.Empty End Function End Class End Namespace