Note: 此範例僅供說明之用，本公司不提供技術支援。Ipswitch 為內容物件、SNMP API 和指令碼環璄提供技術支援服務，但不對 JScript、VBScript，或動態指令碼監控工具或動作的開發及偵錯提供支援服務。如需此範例或自行編寫指令碼方面的協助，請造訪 WhatsUp Gold 使用者社群論壇。
此動作可將所屬設備的狀態發佈到 Twitter 微網誌服務。若要在企業網路外看到設備狀態的清單，此功能就非常實用。
Dim xml
Set xml = createObject("Microsoft.XMLHTTP")
'Update to include your account's username and password.
sUser = "username"
sPass = "password"
sStatus = "WhatsUp Gold says, '%Device.DisplayName %Device.State at %System.Time on %System.Date'"
xml.Open "POST", "http://" & sUser & ":" & sPass & "@twitter.com/statuses/update.xml?status=" & sStatus, False
xml.setRequestHeader "Content-Type", "content=text/html; charset=iso-8859-1"
xml.Send
Context.SetResult 0, xml.responseText
Set xml = Nothing