VBS获取本机IP地址

'获取本机IP
'
owner DeViL
'return 本机的IP地址
Public Function GetIP
   ComputerName
="."
    
Dim objWMIService,colItems,objItem,objAddress
    
Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
    
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
    
For Each objItem in colItems
        
For Each objAddress in objItem.IPAddress
            
If objAddress <> "" then
                GetIP 
= objAddress
                
Exit Function
            
End If
        
Next
    
Next
End Function
posted @ 2007-12-03 15:23  CoderZh  阅读(6997)  评论(0编辑  收藏  举报