' ' oidtrans - demonstrates translating an OID to a name ' ' -------------------------------------------------- ' Check usage & arguments ' -------------------------------------------------- Set Sout = WScript.StdOut if WScript.Arguments.Count <> 1 then Sout.WriteLine "Usage: oidtrans oid" WScript.Quit end if OID = WScript.Arguments.Item(0) ' -------------------------------------------------- ' Create and load repository ' -------------------------------------------------- Set RepMgr = CreateObject("UnbrowseSNMP.RepositoryManager") Set RepDB = RepMgr.LoadRepository Sout.WriteLine "OID = " & OID & " Name = " & RepDB.OIDToName(OID)