VBScript编写的获取本机IP、子网掩码、网关等信息的代码。帮顶也有分。多谢！救急

2012-03-09

VBScript编写的获取本机IP、子网掩码、网关等信息的代码。。帮顶也有分。。。谢谢！救急！！！各位大侠们，小弟初学VB，

VBScript编写的获取本机IP、子网掩码、网关等信息的代码。。帮顶也有分。。。谢谢！救急！！！
各位大侠们，小弟初学VB，请求一段完整的获取本机IP等信息的代码，希望高手们不吝帮帮小弟！谢谢了！

[解决办法]

VB.NET code

'添加對System.Management的引用Imports System.ManagementModule Module1    Sub Main()        Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")        Dim nics As ManagementObjectCollection = mc.GetInstances()        Dim nic As ManagementObject        For Each nic In nics            If Convert.ToBoolean(nic("ipEnabled")) Then                System.Console.WriteLine(nic("IPAddress")(0))                System.Console.WriteLine(nic("IPSubnet")(0))                System.Console.WriteLine(nic("DefaultIPGateway")(0))            End If        Next    End SubEnd Module
[解决办法]
VBScript 里用WMI..网上有把..