Is there an easy way to get my Subnet Mask?

[Terry Olsen]

I am using VB 2005. I can't seem to find a way to get my local Subnet Mask.
The only thing mentioned from googling is the GetIpAddrTable API, but so
far, i've had no luck getting a call to it working. Another idea was to
traverse the registry at
HKLM/System/CurrentControlS et/Services/Tcpip/Parameters/Interfaces. But
that seems really sloppy. One would think that VB 2005 would have a
My.Computer.Net work.Subnet property.

[Terry Olsen]

I have figured out a way to do it, although not quite "elegant"

Imports Microsoft.Win32
Imports System.Net

Public Class Form1

Dim regPath As String =
"System\Current ControlSet\Serv ices\Tcpip\Para meters\Interfac es\"

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim x As RegistryKey = My.Computer.Reg istry.LocalMach ine.OpenSubKey( regPath,
False)
For Each skn As String In x.GetSubKeyName s
Dim y As RegistryKey =
My.Computer.Reg istry.LocalMach ine.OpenSubKey( regPath & skn, False)
Dim z As Integer = y.GetValue("Ena bleDHCP")
If z = 1 Then
Try
If y.GetValue("Dhc pIPAddress").To String =
Dns.GetHostAddr esses(Dns.GetHo stName)(0).ToSt ring Then
MsgBox("DHCP: " & y.GetValue("Dhc pSubnetMask"))
Exit Sub
End If
Catch
End Try
Else
Try
If y.GetValue("IPA ddress").ToStri ng =
Dns.GetHostAddr esses(Dns.GetHo stName)(0).ToSt ring Then
MsgBox("STATIC: " & y.GetValue("Sub netMask"))
Exit Sub
End If
Catch
End Try
End If
y.Close()
Next
x.Close()
End Sub

End Class

[Cor Ligthert [MVP]]

Terry,

Using IPConfig as command gives you in a string your subnetmask if you want
that filtering it than using regex or simple using indexof should give you
the result you want..

Using than this you get the string
\\\
Public Class Test
Public Shared Sub Main()
Dim p As New Process
Dim pi As New ProcessStartInf o
pi.UseShellExec ute = False
pi.RedirectStan dardOutput = True
pi.WorkingDirec tory = "C:\windows\sys tem32"
'this for nt* computers
pi.FileName = "ipconfig"
p.StartInfo = pi
p.StartInfo = pi
p.Start()
Dim sr As IO.StreamReader = p.StandardOutpu t
Dim sb As New System.Text.Str ingBuilder("")
Dim input As Integer = sr.Read
Do Until input = -1
sb.Append(ChrW( input))
input = sr.Read
Loop
MessageBox.Show (sb.ToString)
End Sub
End Class
///

I hope this helps,

Cor

"Terry Olsen" <to******@hotma il.com> schreef in bericht
news:ee******** ******@TK2MSFTN GP02.phx.gbl...

I am using VB 2005. I can't seem to find a way to get my local Subnet Mask.
The only thing mentioned from googling is the GetIpAddrTable API, but so
far, i've had no luck getting a call to it working. Another idea was to
traverse the registry at
HKLM/System/CurrentControlS et/Services/Tcpip/Parameters/Interfaces. But
that seems really sloppy. One would think that VB 2005 would have a
My.Computer.Ne twork.Subnet property.