将设备状态发布到 Twitter

<注意> 此范例仅供说明之用，本公司不提供技术支持。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

另请参阅 活动脚本操作范例 认可所有设备