WMI枚举ip地址

goodidea

1. 
   
2. ' goodidea  <a href="mailtmyad@yeah.net" target="_blank" >myad@yeah.net</A>
   
3. Sub ip_REMOTECOMPUTER()
   
4.     Dim OpSysSet, OpSys, ComputerName
   
5.     ComputerName = "LOCALHOST"
   
6.     Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//" &amp; ComputerName) _
   
7.        .ExecQuery("SELECT index, IPAddress FROM Win32_NetworkAdapterConfiguration ")
   
8.     For Each OpSys In OpSysSet
   
9.         If TypeName(OpSys.ipaddress) &lt;&gt; "Null" Then
   
10.             For Each ip In OpSys.ipaddress
    
11.                 MsgBox ip
    
12.             Next
    
13.         End If
    
14.     Next
    
15. End Sub
    

复制代码

[此贴子已经被作者于2004-6-28 19:43:41编辑过]

奇怪先生

请问，如何在文本框中显示它