当前位置:编程学习 > VB >>

通过vbs获取本机IP地址和MAC地址

1,定义vbs获取ip和mac地址的函数:


Function GetIPMAC(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
  GetIPMAC = objAddress & ",MAC:" & objItem.MACAddress
  Exit For
 End If  
 Next
 Exit For
Next
End Function

2,vbs调用函数方法获取ip和mac地址:本机的机器名,用"."即可
print GetIPMAC(".")

即可输出本机的IP和MAC地址:



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

补充:Web开发 , 其他 ,
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,