注册
登录
| 关键词： nbsp strComputer objWMIService objItem LefIP GetObject winmgmts 地址 REM Set |
工作需要，需要获取win服务器的硬件信息，提交给一api 接口，最后用vbs实现了功能，主要是用到了WMI 发包是调用curl.exe来实现的，代码如下： ?123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153REM '获取IP地址'REM '判断DNS是否为空，判断IP地址开头是否为10或192'strComputer = "."Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootCIMV2")Set colItems = objWMIService.ExecQuery( _"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE",,48)For Each objItem in colItemsIf isNULL(objItem.DNSServerSearchOrder) ThenElseIPX=objItem.IPAddress(0)LefIP=split(IPX,".")(0)If LefIP="10" OR LefIP="192" ThenIP=IPXWscript.Echo "ip:" & IPEnd IfEnd IfNext REM '获取SN号'strComputer = "."Set objWMIService = GetObject("winmgmts:\" & strComputer &
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
