LISTING 3: SendMagicPacket.vbs

Set objWOL = WScript.CreateObject("UltraWOL.ctlUltraWOL")

BEGIN COMMENT
‘ PC Number 1
END COMMENT
objWOL.BroadcastAddr = "192.168.0.255"
objWOL.MACAddr = "AA-BB-CC-DD-EE-FF"
objWOL.LocalIP = "192.168.0.1"
objWOL.WakeUp

BEGIN COMMENT
‘ PC Number 2
END COMMENT
objWOL.BroadcastAddr = "192.168.0.255"
objWOL.MACAddr = "AA-BB-CC-DD-EE-EE"
objWOL.LocalIP = "192.168.0.2"
objWOL.WakeUp

BEGIN COMMENT
‘ PC Number 3
END COMMENT
objWOL.BroadcastAddr = "192.168.0.255"
objWOL.MACAddr = "AA-BB-CC-DD-EE-DD"
objWOL.LocalIP = "192.168.0.3"
objWOL.WakeUp