用vbscript脚本实现返回 IP 配置数据的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 用以返回配置数据（类似于IPCONFIG命令返回信息）的WMI脚本。 ''ReturningIPConfigurationData ''WMIscriptthatreturnsconfigurationdatasimilartothatreturnedbyIpConfig. strComputer="." SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2") SetcolAdapters=objWMIService.ExecQuery_ ("SELECT*FROMWin32_NetworkAdapterConfigurationWHEREIPEnabled=True") n=1 WScript.Echo ForEachobjAdapterincolAdapters WScript.Echo"NetworkAdapter"&n WScript.Echo"=================" WScript.Echo"Description:"&objAdapter.Description WScript.Echo"Physical(MAC)address:"&objAdapter.MACAddress WScript.Echo"Hostname:"&objAdapter.DNSHostName IfNotIsNull(objAdapter.IPAddress)Then Fori=0ToUBound(objAdapter.IPAddress) WScript.Echo"IPaddress:"&objAdapter.IPAddress(i) Next EndIf IfNotIsNull(objAdapter.IPSubnet)Then Fori=0ToUBound(objAdapter.IPSubnet) WScript.Echo"Subnet:"&objAdapter.IPSubnet(i) Next EndIf IfNotIsNull(objAdapter.DefaultIPGateway)Then Fori=0ToUBound(objAdapter.DefaultIPGateway) WScript.Echo"Defaultgateway:"&objAdapter.DefaultIPGateway(i) Next EndIf WScript.Echo WScript.Echo"DNS" WScript.Echo"---" WScript.Echo"DNSserversinsearchorder:" IfNotIsNull(objAdapter.DNSServerSearchOrder)Then Fori=0ToUBound(objAdapter.DNSServerSearchOrder) WScript.Echo""&objAdapter.DNSServerSearchOrder(i) Next EndIf WScript.Echo"DNSdomain:"&objAdapter.DNSDomain IfNotIsNull(objAdapter.DNSDomainSuffixSearchOrder)Then Fori=0ToUBound(objAdapter.DNSDomainSuffixSearchOrder) WScript.Echo"DNSsuffixsearchlist:"&objAdapter.DNSDomainSuffixSearchOrder(i) Next EndIf WScript.Echo WScript.Echo"DHCP" WScript.Echo"----" WScript.Echo"DHCPenabled:"&objAdapter.DHCPEnabled WScript.Echo"DHCPserver:"&objAdapter.DHCPServer IfNotIsNull(objAdapter.DHCPLeaseObtained)Then utcLeaseObtained=objAdapter.DHCPLeaseObtained strLeaseObtained=WMIDateStringToDate(utcLeaseObtained) Else strLeaseObtained="" EndIf WScript.Echo"DHCPleaseobtained:"&strLeaseObtained IfNotIsNull(objAdapter.DHCPLeaseExpires)Then utcLeaseExpires=objAdapter.DHCPLeaseExpires strLeaseExpires=WMIDateStringToDate(utcLeaseExpires) Else strLeaseExpires="" EndIf WScript.Echo"DHCPleaseexpires:"&strLeaseExpires WScript.Echo WScript.Echo"WINS" WScript.Echo"----" WScript.Echo"PrimaryWINSserver:"&objAdapter.WINSPrimaryServer WScript.Echo"SecondaryWINSserver:"&objAdapter.WINSSecondaryServer WScript.Echo n=n+1 Next FunctionWMIDateStringToDate(utcDate) WMIDateStringToDate=CDate(Mid(utcDate,5,2)&"/"&_ Mid(utcDate,7,2)&"/"&_ Left(utcDate,4)&""&_ Mid(utcDate,9,2)&":"&_ Mid(utcDate,11,2)&":"&_ Mid(utcDate,13,2)) EndFunction |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于用vbscript脚本实现返回 IP 配置数据的代码的所有评论
