strTargetSnmpDevice = "222.30.222.1"
Set objWmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWmiServices = objWmiLocator.ConnectServer("", "root\snmp\localhost")
Set objWmiNamedValueSet = CreateObject("WbemScripting.SWbemNamedValueSet")
objWmiNamedValueSet.Add "AgentAddress", strTargetSnmpDevice
objWmiNamedValueSet.Add "AgentReadCommunityName", "pub"
Set colSystem = objWmiServices.InstancesOf("SNMP_RFC1213_MIB_atTable", ,objWmiNamedValueSet)
For Each objSystem In colSystem
WScript.Echo "IP <---> MAC : " & objSystem.atNetAddress & _
" : " & objSystem.atPhysAddress & vbCrLf
Next