スクリプトにてSNMP

Set objWmiServices = objWmiLocator.ConnectServer("", "root￥snmp￥localhost")

<job id="main">
<script language="VBScript">
strTargetSnmpDevice = "192.168.0.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", "public"
Set colSystem = objWmiServices.InstancesOf("SNMP_RFC1213_MIB_system", , _
                                           objWmiNamedValueSet)
For Each objSystem In colSystem
    WScript.Echo "sysContact:  " & objSystem.sysContact  & vbCrLf & _
                 "sysDescr:    " & objSystem.sysDescr    & vbCrLf & _
                 "sysLocation: " & objSystem.sysLocation & vbCrLf & _
                 "sysName:     " & objSystem.sysName     & vbCrLf & _
                 "sysObjectID: " & objSystem.sysObjectID & vbCrLf & _
                 "sysServices: " & objSystem.sysServices & vbCrLf & _
                 "sysUpTime:   " & objSystem.sysUpTime
Next
</script>
</job>

<job id="main">
<script language="JScript">
var strTargetSnmpDevice = "192.168.0.1";
var strCommunity = "public";
var intRetry = 2;
var intTimeout = 200;
var strOID = ".1.3.6.1.2.1.1.5.0"; // sysName
var objSNMP;

try
{
	objSNMP = WScript.CreateObject("OlePrn.OleSNMP");
	objSNMP.Open(strTargetSnmpDevice, strCommunity, intRetry, intTimeout);
	var strOIDValue = objSNMP.Get(strOID);
	WScript.Echo(strOIDValue);
	objSNMP.Close();
}
catch(e)
{
	WScript.Echo(e.message + " (" + e.name + " " + (e.number & 0xFFFF) + ")");
}
finally
{
	objSNMP = null;
}
</script>
</job>

Dispatch ISNMP; // ISNMP Interface
GUID={4F664F90-FF01-11D0-8AED-00C04FD7B597};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function Open(bstrHost:BSTR; bstrCommunity:BSTR; [varRetry:variant; varTimeout:variant]);
  function Get(bstrOID:BSTR): variant;
  function GetList(varList:^variant): variant;
  function GetTree(varTree:BSTR): variant;
  function Close;
  function OIDFromString(bstrOID:BSTR): variant;
  function Set(bstrOID:BSTR; varValue:variant);
  function SetList(varName:^variant; varValue:^variant);