What is the command to display computer name & ip address ?

[Eng Teng]

What is the command to display computer name & ip address in VB.NET 2005 (OS
WindowsXP & Windows Vista)


Regards,
Tee

 

[Armin Zingler]

What is the command to display computer name & ip address in VB.NET
2005 (OS WindowsXP & Windows Vista)

Environment.MachineName or SystemInformation.Computername, and
http://groups.google.com/group/micr..._frm/thread/d68c23ded6c867c4/39d407946e79f801


Armin

 

[kimiraikkonen]

What is the command to display computer name & ip address in VB.NET 2005 (OS
WindowsXP & Windows Vista)

Regards,
Tee

Hi Eng,
For short ways,

' To display computer name:

My.Computer.Info.OSFullName

' To display local IP:
Imports System.net
Module Module1

Sub Main()
'To get local address
Dim sHostName As String
Dim i As Integer
sHostName = Dns.GetHostName()
Dim ipE As IPHostEntry = Dns.GetHostByName(sHostName)
Dim IpA() As IPAddress = ipE.AddressList
For i = 0 To IpA.GetUpperBound(0)
Console.Write("IP Address {0}: {1} ", i, IpA(i).ToString)
Next

Console.ReadLine()
End Sub
End Module


Hope this helps,

Onur Güzel

 

[Eng Teng]

How about Service Pack info ?

What is the command to display computer name & ip address in VB.NET 2005
(OS
WindowsXP & Windows Vista)

Regards,
Tee

Hi Eng,
For short ways,

' To display computer name:

My.Computer.Info.OSFullName

' To display local IP:
Imports System.net
Module Module1

Sub Main()
'To get local address
Dim sHostName As String
Dim i As Integer
sHostName = Dns.GetHostName()
Dim ipE As IPHostEntry = Dns.GetHostByName(sHostName)
Dim IpA() As IPAddress = ipE.AddressList
For i = 0 To IpA.GetUpperBound(0)
Console.Write("IP Address {0}: {1} ", i, IpA(i).ToString)
Next

Console.ReadLine()
End Sub
End Module


Hope this helps,

Onur Güzel

 

[kimiraikkonen]

How about Service Pack info ?





Hi Eng,
For short ways,

' To display computer name:

My.Computer.Info.OSFullName

' To display local IP:
Imports System.net
Module Module1

Sub Main()
'To get local address
Dim sHostName As String
Dim i As Integer
sHostName = Dns.GetHostName()
Dim ipE As IPHostEntry = Dns.GetHostByName(sHostName)
Dim IpA() As IPAddress = ipE.AddressList
For i = 0 To IpA.GetUpperBound(0)
Console.Write("IP Address {0}: {1} ", i, IpA(i).ToString)
Next

Console.ReadLine()
End Sub
End Module

Hope this helps,

Onur Güzel

To get Service Pack version,
simply use;

Environment.OSVersion.ServicePack

Hope this helps,

Onur Güzel

 

[Cor Ligthert[MVP]]

http://msdn.microsoft.com/en-us/library/aa394582.aspx