Dim oAPI, oBag, oArgs, strArg, strArgs
Set oArgs = WScript.Arguments
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()
strArgs = vbNullString
For Each strArg in oArgs
strArgs = strArgs & strArg & "; "
Next
oAPI.LogScriptEvent "$Config/ScriptName$", 8001, 0, "$Config/ScriptName$ started with " & oArgs.Length & " arguments: " & strArgs
if oArgs.Length < 8 then
WScript.Exit -1
end if
Dim iSemicolonPos, sDeviceType, sProductType, ticks, dLastReboot
iSemicolonPos = InStr(CStr(oArgs(2)), ";")
If iSemicolonPos > 0 Then
sDeviceType = Mid(CStr(oArgs(2)), 1, iSemicolonPos - 1)
Else
sDeviceType = CStr(oArgs(2))
End If
Select Case CStr(oArgs(3))
Case "0"
sProductType = "acUnknown"
Case "1"
sProductType = "acTrunkPack-08"
Case "2"
sProductType = "acMediaPack-108"
Case "3"
sProductType = "acMediaPack-124"
Case "20"
sProductType = "acTrunkPack-1600"
Case "22"
sProductType = "acTPM1100"
Case "23"
sProductType = "acTrunkPack-260-IpMedia"
Case "24"
sProductType = "acTrunkPack-1610"
Case "25"
sProductType = "acMediaPack-104"
Case "26"
sProductType = "acMediaPack-102"
Case "29"
sProductType = "acTrunkPack-1610-SB"
Case "30"
sProductType = "acTrunkPack-1610-IpMedia"
Case "31"
sProductType = "acTrunkPack-MEDIANT2000"
Case "32"
sProductType = "acTrunkPack-STRETTO2000"
Case "33"
sProductType = "acTrunkPack-IPMServer2000"
Case "34"
sProductType = "acTrunkPack-2810"
Case "35"
sProductType = "acTrunkPack-260-UN-IpMedia"
Case "36"
sProductType = "acTrunkPack-260-IpMedia-30Ch"
Case "37"
sProductType = "acTrunkPack-260-IpMedia-60Ch"
Case "38"
sProductType = "acTrunkPack-260-IpMedia-120Ch"
Case "39"
sProductType = "acTrunkPack-260RT-IpMedia-30Ch"
Case "40"
sProductType = "acTrunkPack-260RT-IpMedia-60Ch"
Case "41"
sProductType = "acTrunkPack-260RT-IpMedia-120Ch"
Case "42"
sProductType = "acTrunkPack-260"
Case "43"
sProductType = "acTrunkPack-260-UN"
Case "44"
sProductType = "acTPM1100-PCM"
Case "45"
sProductType = "acTrunkPack-6310"
Case "46"
sProductType = "acTPM6300"
Case "47"
sProductType = "acMediant1000"
Case "48"
sProductType = "acIPMedia3000"
Case "49"
sProductType = "acMediant3000"
Case "50"
sProductType = "acStretto3000"
Case "51"
sProductType = "acTrunkPack-6310-IpMedia"
Case "52"
sProductType = "acTrunkPack-6310-SB"
Case "53"
sProductType = "acATP-1610"
Case "54"
sProductType = "acATP-260"
Case "55"
sProductType = "acATP-260-UN"
Case "56"
sProductType = "acMediaPack-118"
Case "57"
sProductType = "acMediaPack114"
Case "58"
sProductType = "acMediaPack112"
Case "59"
sProductType = "acTrunkPack-6310-T3"
Case "60"
sProductType = "acMediant3000-T3"
Case "61"
sProductType = "acIPmedia3000-T3"
Case "62"
sProductType = "acTrunkPack-6310-T3-IpMedia"
Case "63"
sProductType = "acTrunkPack-8410"
Case "64"
sProductType = "acTrunkPack-8410-IpMedia"
Case "65"
sProductType = "acMediant-600"
Case "66"
sProductType = "acTrunkPack-12610"
Case "67"
sProductType = "acMediant1000-MSBG"
Case "68"
sProductType = "acMediant-600-MSBG"
Case "69"
sProductType = "acMediant800-MSBG"
Case "70"
sProductType = "acMediant-4000"
Case "71"
sProductType = "acMediant1000-ESBG"
Case "72"
sProductType = "acMediant800-ESBG"
Case "77"
sProductType = "acMediant500-ESBC"
Case "78"
sProductType = "acMediant-2600"
Case "79"
sProductType = "acMediant-VE-SBC"
Case "86"
sProductType = "acMediaPack-1288"
Case Else
sProductType = "Undefined: " & CStr(oArgs(3))
End Select