messaging on the lan using net send

[jessicatechy]

rem ----------------------------------------------------
rem windows lan messenger: works by using dos command:
rem "net send pcname yourmsg" or
rem "net send ipaddr yourmsg"
rem ----------------------------------------------------
Set wshshell = WScript.CreateObject("WScript.Shell")
title = "W I N D O W S L A N M E S S E N G E R"
msg0 = InputBox("T Y P E Y O U R M E S S A G E", title)
msg1 = Inputbox("TYPE COMPUTER NAME YOU WANT TO MSG", title)
wholemsg = "net send " & msg1 & " " & msg0
if msg0 > "" then
wshshell.Run("cmd.exe /c " & wholemsg)
end if
------------------------------------------
it comes in handy when you have to msg a machine on your network.
copy the above and paste it to notepad and save it as a file with extension of .vbs
double click to send msg.
you can to type a message and the computer name or ip address.

 

[linney]

The Messenger Service is set to Disabled in Services after installing SP2 (for security reasons) and must be started before using Net Send.

 

[jessicatechy]

oops. i forgot the 3 items (there are not disabled).
you need to start messenger service and its 3 dependencies.
plug and play
rpc (remote procedure call)
work station