如何远程获取MAC 地址和序列号，当前登录用户名

最新推荐文章于 2022-03-06 10:19:56 发布

zouqf

最新推荐文章于 2022-03-06 10:19:56 发布

阅读量995

点赞数

分类专栏：客户端管理文章标签： WMI

本文链接：https://blog.csdn.net/zouqf/article/details/8439162

版权

该脚本通过WMI技术实现远程连接到指定计算机，获取其MAC地址、网络连接名称、网络适配器类型、当前登录用户名以及机器的序列号，并将这些信息保存到Excel文件中。

摘要由CSDN通过智能技术生成

Dim objexcel,objspread,objlocator,objwmiservice
Dim strcomputer,strusername,strpassword
Dim NetConnectionname,networkname,netwrokMacAddress,loginGID
Dim rownumber

strcomputer=InputBox("please key in computername")
strusername=InputBox("please key in account")
strpassword=InputBox("please key in password")

If ping(strcomputer)=0 then
WScript.Echo("This machine can't be pingable, please check")
wscript.quit
else

set objlocator=CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(strComputer ,"\root\cimv2", strUsername ,strPassword)
objWMIService.Security_.ImpersonationLevel = 3

set fso=createobject("scripting.filesystemobject")

if fso.fileExists("c:\mac\mac.xls") then
fso.deletefile("c:\mac\mac.xls")
end if