[xanburzum]

Envie mensagens pela rede usando NET SEND. Basta preencher o formulário e clique em Enviar mensagem. A mensagem será entregue imediatamente. (Este código não é executado com o Windows XP)

CÓDIGO

<%@ LANGUAGE = VBScript %>
<%
'Enviar uma mensagem utilizando NET SEND em uma rede Windows  
  'Envie uma mensagem para qualquer usuário
  'Em uma rede usando o navegador (!)
  'Verificado para todas as variáveis.
  
         Msg = TRIM(Request.Form("Msg"))
         NamUsr = TRIM(Request.Form("NamUsr"))
         Computer = Request.ServerVariables("REMOTE_ADDR")

         if Msg <> "" AND NamUsr <> "" THEN
                      'Enviando mensagem
                       Response.Write "<P>Enviando mensagem"
                       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
                       'Apresentar o formulário %>
                       <FORM NAME="Vorm" METHOD="Post">
                       Para: <INPUT TYPE="text" NAME="NamUsr" SIZE="20"><BR>
                       Memssagem: <INPUT TYPE="text" NAME="Msg" SIZE="40"><BR>
                       <INPUT TYPE="submit" VALUE="enviar">
                       </FORM>
         <% END IF
%>