页面

2009年4月23日

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

没有评论: