Stap 1: Stap 1... Schrijven van het script
Dim x
Dim y
set oShell = createobject("wscript.shell")
x = InputBox ("Enter gebruiker of IP", "Net Send Messenger.. script door Cavingboy92")
y = InputBox ("Enter Messege", "netto verzenden Messenger.. script door Cavingboy92")
oshell.run "netto verzenden" & (x) & "" & (y) & ""