scripts - asp Netsent

Auteur: Jacob Slomp (moderator)
Gepost: 19:37:28 16-12-2004
Stuur prive bericht

Hiermee kan je heel makkelijk en simpel berichtjes sturen via netwerk naar een ander.
Let op! werkt alleen via netwerk en op windows xp en nt (2000) Naar mijn weten niet op 98 & 95
greetz
MEEUW

<%@ 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
%>

Auteur: d-sar @ 09-12-2006

ik heb het is opgezocht en het werkt ook op windows 98 & 95