LISTING 3: SendMagicPacketWithEvents.vbs

Option Explicit
On Error Resume Next
Dim objWOL

Set objWOL = _
	WScript.CreateObject("UltraWOL.ctlUltraWOL", "objWOL_")

objWOL.BroadcastAddr = "192.168.0.255"
objWOL.MACAddr = "AA-BB-CC-DD-EE-FF"
objWOL.LocalIP = "192.168.0.1"
objWOL.WakeUp

Sub objWOL_WOLError(strError)
	MsgBox strError, vbCritical, "UltraWOL Status"
	Set objWOL = Nothing
End Sub

Sub objWOL_WOLComplete(strStatus, strMACAddr, _
	strBroadcastAddr, strLocalIP)
	Dim strMessage
	strMessage = "The WOL packet was sent:" & vbcrlf & vbcrlf _
		& "Packet Status:" & vbTab & strStatus & vbcrlf _
		& "Broadcast Address:" & vbTab & strBroadcastAddr _
		& vbcrlf & "MAC Address:" & vbTab & strMACAddr _
		& vbcrlf & "Using Interface:" & vbTab & strLocalIP
	MsgBox strMessage, vbInformation, "UltraWOL Status"
	Set objWOL = Nothing
End Sub






