Le mostraré manera rápida y fácil de obtener el número de serie del sistema operativo que se ejecuta la aplicación en. He aquí cómo realizar esta tarea:

En evento Page_Load (por ejemplo), obtener WSN:

Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_OperatingSystem")
Dim MO As System.Management.ManagementObject
Dim MOC As System.Management.ManagementObjectCollection = MOS.Get
Dim WindowsSerial As String = String.Empty

For Each MO In MOC
WindowsSerial = MO("SerialNumber")
Next