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