E
Eng Teng
What is the command to display computer name & ip address in VB.NET 2005 (OS
WindowsXP & Windows Vista)
Regards,
Tee
WindowsXP & Windows Vista)
Regards,
Tee
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
A
Armin Zingler
Eng Teng said: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
K
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
E
Eng Teng
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
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
K
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
C