Boa tarde a todos,
Depois de muito tempo sem programar (desde o VB6), resolvi dar uma mexida aqui... Fui direto para o Visual Studio 2012...
Preciso retornar as configurações de IP, Nome da Máquina, Usuário Logado e tempo de logon.
Estou começando pelo IP. Antigamente usava o Winsocks para isso, mas agora com não tenho nem ideia de como fazer, dei uma procurada na internet e encontrei o seguinte código:
Shared Function GetIPAddress() As String
Dim oAddr As System.Net.IPAddress
Dim sAddr As String
With System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName())
oAddr = New System.Net.IPAddress(.AddressList(0).Address)
sAddr = oAddr.ToString
End With
GetIPAddress = sAddr
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim shostname As String
'Set string equal to value of System DNS Object value for GetHostName
'This should be the localhost computer name
shostname = System.Net.Dns.GetHostName
MsgBox("Your Machine Name = " & shostname)
'Call Get IPAddress
MsgBox("Your IP = " & GetIPAddress())
End Sub
Inicialmente ele funciona bem, retorna o nome do host e o Ip, porém, só retorna o IP de uma das interfaces de rede. No meu caso, tenho três. Seria interessante que ele retornasse os três...
Alguém sabe como fazer isso?