'Setup Twitter
sUrl = "http://twitter.com/statuses/update.xml"
sUsername = "Twitter registered Email Address"
sPassword = "Twitter Password"

'Twitter Connector
Function HTTPPost(sUrl, sRequest, sUsername, sPassword) 
  set oHTTP = CreateObject("Microsoft.XMLHTTP") 
oHTTP.open "POST", sUrl,false,sUsername,sPassword
  oHTTP.send sMessage 
  HTTPPost = oHTTP.responseText 
  'WScript.Echo HTTPPost 
End Function


'Connect to WMI
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate, (Security)}!\\" & _
        strComputer & "\root\cimv2")


'Monitor EventLog for APC UPS Messages
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _    
    ("Select * from __instancecreationevent where " _
        & "TargetInstance isa 'Win32_NTLogEvent' " _
            & "and TargetInstance.SourceName = 'APCPBEAgent'")
Do
	'Waits until next APC Entry
    Set objLatestEvent = colMonitoredEvents.NextEvent
	sMessage = TargetInstance.Message
	'wscript.echo sUsername & ", " & sPassword & ", " & sMessage
	sMessage = "status=UPS Message: " & objLatestEvent.TargetInstance.Message
	HTTPPost sUrl, sMessage, sUsername, sPassword 
Loop