获取IP等信息方法较多，不过XP与WIN7有所不同

1. 
   
2. 
   
3. Sub 获取IP1()    'WIN7 专用
   
4.     On Error GoTo err
   
5.     Dim aa, bb As String, cc As String
   
6.     Set wExec = CreateObject("WScript.Shell").Exec("%ComSpec% /c ipconfig")  '自己改目录
   
7.     Do While wExec.Status = 0
   
8.         DoEvents
   
9.     Loop
   
10.     result = wExec.StdOut.ReadAll
    
11.     aa = Split(result, Chr(10))
    
12.     For i = 0 To UBound(aa) - 1
    
13.         cc = LTrim(aa(i))
    
14.         If Left(cc, 2) = "IP" Or Left(cc, 2) = "子网" _
    
15.            Or Left(cc, 2) = "默认" Then bb = bb & Chr(10) & cc
    
16.     Next
    
17.     MsgBox bb
    
18. err:
    
19. End Sub
    

复制代码

1. 
   
2. 
   
3. Sub 获取IP2()    'XP专用
   
4.     On Error GoTo err
   
5.     Dim aa, bb As String, cc As String
   
6.     Set wExec = CreateObject("WScript.Shell").Exec("%ComSpec% /c ipconfig")  '自己改目录
   
7.     Do While wExec.Status = 0
   
8.         DoEvents
   
9.     Loop
   
10.     result = wExec.StdOut.ReadAll
    
11.     aa = Split(result, Chr(10))
    
12.     For i = 0 To UBound(aa) - 1
    
13.         cc = LTrim(aa(i))
    
14.         If Left(cc, 2) = "IP" Or Left(cc, 2) = "Su" _
    
15.            Or Left(cc, 2) = "De" Then bb = bb & Chr(10) & cc
    
16.     Next
    
17.     MsgBox bb
    
18. err:
    
19. End Sub
    

复制代码

1. 
   
2. 
   
3. Sub 获取IP3()    'WIN 7和XP通用
   
4.     On Error GoTo err
   
5.     Dim aa, bb As String, cc As String
   
6.     Set wExec = CreateObject("WScript.Shell").Exec("%ComSpec% /c ipconfig")  '自己改目录
   
7.     Do While wExec.Status = 0
   
8.         DoEvents
   
9.     Loop
   
10.     result = wExec.StdOut.ReadAll
    
11.     aa = Split(result, Chr(10))
    
12.     For i = 0 To UBound(aa) - 1
    
13.         cc = LTrim(aa(i))
    
14.         If InStr(Application.OperatingSystem, "6") Then
    
15.             If Left(cc, 2) = "IP" Or Left(cc, 2) = "子网" _
    
16.                Or Left(cc, 2) = "默认" Then bb = bb & Chr(10) & cc
    
17.         Else
    
18.             If Left(cc, 2) = "IP" Or Left(cc, 2) = "Su" _
    
19.                Or Left(cc, 2) = "De" Then bb = bb & Chr(10) & cc
    
20.         End If
    
21.     Next
    
22.     MsgBox bb
    
23. err:
    
24. End Sub
    

复制代码

1. 
   
2. 
   
3. Sub 获取IP4()    '利用正则表达式:WIN 7和XP通用
   
4.     On Error GoTo err
   
5.     Dim result As String, regEx, str(1 To 3)
   
6.     Set wExec = CreateObject("WScript.Shell").Exec("%ComSpec% /c ipconfig")  '自己改目录
   
7.     Do While wExec.Status = 0
   
8.         DoEvents
   
9.     Loop
   
10.     result = wExec.StdOut.ReadAll
    
11.     Set regEx = CreateObject("VBSCRIPT.REGEXP")    '建立正则表达式对象
    
12.     regEx.Global = True    '搜索多个对象
    
13.     regEx.Pattern = "\d{1,3}\.+\d{1,3}\.+\d{1,3}\.+\d{1,3}"    '按IP地址分布规律取值
    
14.     Set colMatches = regEx.Execute(result)
    
15.     MsgBox "IP地址:" & vbTab & colMatches(0) & Chr(10) & "子网掩码:" & vbTab & colMatches(1) & Chr(10) & "默认网关:" & vbTab & colMatches(2)
    
16.     Set regEx = Nothing
    
17. err:
    
18. End Sub
    

复制代码

1. 
   
2. 
   
3. Sub GetIP_SubNet_Gatway()  '利用WMI获取:WIN 7和XP通用
   
4.     Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2")
   
5.     Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
   
6.     For Each objNetAdapter In colNetAdapters
   
7.         If TypeName(objNetAdapter.IPAddress) <> "Null" Then
   
8.             MsgBox "您的IP：........:" & objNetAdapter.DefaultIPGateway(0) & Chr(13) _
   
9.                  & "子网掩码：........:" & objNetAdapter.IPAddress(0) & Chr(13) _
   
10.                  & "默认网关：........:" & objNetAdapter.IPSubnet(0)
    
11.             Exit Sub
    
12.         End If
    
13.     Next
    
14. End Sub