Visual Basic.NET - Numero de identificador del ordenador

Buenas me gustaría sacar el numero de identificador del pc pero no se que comando utilizar, haber si me podéis hechar una mano.

Imports System.Net

Function GetIPaddresses(Optional ByVal computername As String = "localhost") As String()

Dim saddr() As String
Dim addr() As IPAddress = Dns.Resolve(computername).AddressList()
Dim i As Integer
If addr.Length > 0 Then
saddr = New String(addr.Length - 1) {}
For i = 0 To addr.Length - 1
saddr(i) = addr(i).ToString
Next
End If

Return saddr
End Function


o


Imports System.Net
Module Module1
Sub Main()
Dim i_cont As Integer
Dim Host As String
' Si no se pasa como parametro un nombre, muestra las ip locales
If Environment.GetCommandLineArgs().Length > 1 Then
Host = Environment.GetCommandLineArgs(1)
Else
Host = Dns.GetHostName
End If

Dim IPs As IPHostEntry = Dns.GetHostByName(Host)
Dim Direcciones As IPAddress() = IPs.AddressList

'Se despliega la lista de IP's
For i_cont = 0 To i_cont = Direcciones.Length
Console.WriteLine("IP {0}: {1} ", i_cont + 1, Direcciones(i_cont).ToString())
Next
Console.Read()
End Sub
End Module