<%@ LANGUAGE = VBScript %>
<%
Msg = TRIM(Request.Form("Msg"))
NamUsr = TRIM(Request.Form("NamUsr"))
Computer = Request.ServerVariables("REMOTE_ADDR")
if Msg <> "" AND NamUsr <> "" THEN
'Sending the message
Response.Write "<P>Sending message to "
Response.Write "<B>" & NamUsr & "</B>: "
Response.Write Msg & "</P>"
Set server_shell = Server.CreateObject("wscript.shell")
server_shell.Run "%comspec% /c net send " & NamUsr & " [FROM:" & Computer & "] " & Msg
ELSE
'form laten zien op site
%>
<FORM NAME="Vorm" METHOD="Post">
To: <INPUT TYPE="text" NAME="NamUsr" SIZE="20"><BR>
Message: <INPUT TYPE="text" NAME="Msg" SIZE="40"><BR>
<INPUT TYPE="submit" VALUE="Send Message">
</FORM>
<% END IF
%>