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

 

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