Popup Message on intranet 1

TommyF · Apr 10, 2003

I have a very basic intranet system running at work which displayes the running order of our machines and I want to know if it is possiable to send a html popup message to certain users for example if the running order has changed. I don't want the users to have any interaction apart from closing the message.

Can anybody point me in the right direction please.

palbano · Apr 10, 2003

Are you talking about the NET SEND command?

-pete

TommyF · Apr 11, 2003

Thanks for your help palbano. I have found some code using net send and it works fine. At the moment it sends a message to winpopup is there anyway it can popup the message in a html page or something like that?

This is my code so far that uses winpopup.

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%@ LANGUAGE = VBScript %>

<%
' Sending a message using NET SEND on a Windows NT network
' (C)opyright 2001 - Robin Paardekam
' Nice script to embed on your intranet. Send a message to any user
' on a network using your browser (!)
' More scripts like this can be found at

http://www.paardekam.nl

'Checking for all necessary variables.
Msg = TRIM(Request.Form("Msg&quot

)
NamUsr = TRIM(Request.Form("NamUsr&quot

)
Computer = Request.ServerVariables("REMOTE_ADDR&quot

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&quot

server_shell.Run "%comspec% /c net send " & NamUsr & " [FROM:" & Computer & "] " & Msg

ELSE
'Displaying the form %>
<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
%>
</body>
</html>

Thanks again

lengoo · Apr 11, 2003

This script is really cool

How can one set it up so I can have a drop down of names which I could use to send to??

TommyF · Apr 11, 2003

I have just come across a problem with this script, When you send messages from any pc using this scrpit the from person is always the pc with the website on it.

lengoo did you find this?

lengoo · Apr 11, 2003

Yes, you're right!!!

Tarwn · Apr 11, 2003

Thats because this is an NT messaging system that sends a message from wherever it is executed to wherever you want to send it. The only way your going to be able to popup a message to someone inside their web page is if
a) They already are on your site
and
b) If they refresh the page occasionally or request a new page

What you could then do is have a check at the top of each page to see if any messages are pending, then show them the messge is there is one and remove it from your message queue. One way to make sure they are sending constant refreshes would be to put a small hidden iframe somewhere in the page that refreshes every 10 seconds or so using javascript. The page it refreshes could just check for messages, if it finds one for this user than it could call a javascript function in the parent page with the content of the message and the javascript function could display it.

-Tarwn [sub]01010100 01101001 01100101 01110010 01101110 01101111 01101011 00101110 01100011 01101111 01101101 [/sub]
[sup]29 3K 10 3D 3L 3J 3K 10 32 35 10 3E 39 33 35 10 3K 3F 10 38 31 3M 35 10 36 3I 35 35 10 3K 39 3D 35 10 1Q 19[/sup]
Get better results for your questions: faq333-2924
Frequently Asked ASP Questions: faq333-3048

TommyF · Apr 11, 2003

Tarwn thanks for your help that does sound a better way to do it.

For the moment I have just changed the code I had so instead of the IP address it tells me the name. This is not a problem for me as I am only using it with a couple of users.
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#000000" text="#FFFFFF">
<%@ LANGUAGE = VBScript %>
<%
' Sending a message using NET SEND on a Windows NT network
' (C)opyright 2001 - Robin Paardekam
' Nice script to embed on your intranet. Send a message to any user
' on a network using your browser (!)
' More scripts like this can be found at

http://www.paardekam.nl

'Checking for all necessary variables.
Msg = TRIM(Request.Form("Msg&quot

)
NamUsr = TRIM(Request.Form("NamUsr&quot

)
Computer = Request.ServerVariables("REMOTE_ADDR&quot

if computer= "10.0.0.72" then user= "User1"
if computer= "10.0.0.13" then user = "User2"
if computer ="10.0.0.154" then user = "user3"

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&quot

server_shell.Run "%comspec% /c net send " & NamUsr & " [FROM:" & user & "] " & Msg

ELSE
'Displaying the form %>
<p> </p>
<p align="center"><font face="Arial, Helvetica, sans-serif" size="7"><b>SEND MESSAGE</b></font></p>
<p align="center"> </p>
<p align="center"><img src="images/email_computer-ani.gif" width="107" height="35"></p>
<p> </p>
<FORM NAME="Vorm" METHOD="Post">
<div align="center">
<p><font face="Arial, Helvetica, sans-serif" size="5">To:</font>
<INPUT TYPE="text" NAME="NamUsr" SIZE="30">
(Thomas,Unit25 Or Warehouse)</p>
<p><BR>
<font size="5" face="Arial, Helvetica, sans-serif">Message: </font>
<input type="text" name="Msg" size="60" value="">
</p>
<p><BR>
<INPUT TYPE="submit" VALUE="Send Message">
</p>
</div>
</FORM>
<% END IF
%>
</body>
</html>

lengoo · Apr 11, 2003

TommyF,
Any idea on how to get it working so that you have a drop down list of users you can send to rather than having to remember the machine name?

Thanks

TommyF · Apr 11, 2003

lengoo

The only way I think you could do this is by populating the dropdown list from a database. I went to the following website and did a search on drop down list and it came up with some good results. You will probable have to pick one that is good for you and try and fit it into the code we already have.

http://www.devasp.com

Sorry for not being to much help but I am very new to ASP.

I will try as well and see what we come up with

tommyf

lengoo · Apr 11, 2003

Tommyf,
YOu're new to ASP??? I was really impressed with your little script though!

TommyF · Apr 11, 2003

lengoo thanks but I must say I did not right it I got it of the website I gave you I have just changed it a little for my own use.

TommyF · Apr 11, 2003

I have found another way as but it depends how many users you have. I have removed the text box and added a drop down box.

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#000000" text="#FFFFFF">
<%@ LANGUAGE = VBScript %>
<%
' Sending a message using NET SEND on a Windows NT network
' (C)opyright 2001 - Robin Paardekam
' Nice script to embed on your intranet. Send a message to any user
' on a network using your browser (!)
' More scripts like this can be found at

http://www.paardekam.nl

'Checking for all necessary variables.
Msg = TRIM(Request.Form("Msg&quot

)
NamUsr = TRIM(Request.Form("NamUsr&quot

)
Computer = Request.ServerVariables("REMOTE_ADDR&quot

if computer= "10.0.0.72" then user= "User1"
if computer= "10.0.0.13" then user = "User2"
if computer ="10.0.0.154" then user = "user3"

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&quot

server_shell.Run "%comspec% /c net send " & NamUsr & " [FROM:" & user & "] " & Msg

ELSE
'Displaying the form %>
<p> </p>
<p align="center"><font face="Arial, Helvetica, sans-serif" size="7"><b>SEND MESSAGE</b></font></p>
<p align="center"> </p>
<p align="center"><img src="images/email_computer-ani.gif" width="107" height="35"></p>
<p> </p>
<FORM NAME="Vorm" METHOD="Post">
<div align="center">
<p><font face="Arial, Helvetica, sans-serif" size="5">To:</font>

'ADD THIS SECTION INSTEAD OF THE TEXT BOX

<select name="NamUsr">
<option selected>USER1</option>
<option>USER2</option>
<option>USER3</option>
</select>
</p>
<p><BR>
<font size="5" face="Arial, Helvetica, sans-serif">Message: </font>
<input type="text" name="Msg" size="60" value="">
</p>
<p><BR>
<INPUT TYPE="submit" VALUE="Send Message">
</p>
</div>
</FORM>
<% END IF
%>
</body>
</html>

I have not tried it but I would think you could put in the persons name and do an if statement to change it to the machine name to send.

Microbe · Apr 11, 2003

Nice little script - may solve teh shouting from downstairs to upstairs between me and my wife

I can get setn send to run from DOS, but get a permission denied error on the line

server_shell.Run "%comspec% /c net send " & NamUsr & " [FROM:" & user & "] " & Msg

Any ideas?

Yes, I am logged on as an administrator.

Steve Davis
hey.you@hahaha.com.au

http://www.hahaha.com.au

Me? I can't even spell ASP!

TommyF · Apr 12, 2003

Microbe

I don't think you will get this to run from Dos it is really a Win NT/2K/xp script. The only way I could get it to work on win 9x machines was to have winpopup or a similar program loaded on them.

Why do you want to run it from DOS?

Microbe · Apr 12, 2003

Sorry, you misunderstood me...

When I try to run the script in my browser, I get a permission denied error.

So I tried just doing net send (IP#) message at the DOS prompt and it worked.

Does anyone have any idea what permissions have to be reset so it will run in a browser?

I repleat, I am logged in as an Administrator - WinXP Pro

Actually this may be, and looks like, a likely candidate for my first Visual Basic project.

Steve Davis
hey.you@hahaha.com.au

http://www.hahaha.com.au

Me? I can't even spell ASP!

TommyF · Apr 13, 2003

Microbe sorry I misunderstood you. Is the other PC set up as a user on you XP machine and vice versa? If you can send a message using the IP address from Dos then it just can't figure out the user name. Can you send a message from the browser if you put an IP address instead of a user name?

I don't think the permissions will be the problem as I can get it to send from a machine with a guest logon to anthoer pc.

tommyf

TommyF · Apr 13, 2003

Microbe I just had a thought and I just want to check that you have you XP Pro machine set up as a webserver and that you have saved the above code as a .asp file.

I know it might sound an obvious question but we just need to rule out everything for me to get it to work for you.

Microbe · Apr 13, 2003

lol...thanks for checking, sometimes it pays to ask the obvious questions.

Yes, it is running IIS. I am pretty experienced ASP programmer, so it is not any of those sort of things.

Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied
send.asp, line 29

Line 29: server_shell.Run "net send 192.168.0.1 [FROM:me] test"

And I do appreciate your help...

Steve Davis
hey.you@hahaha.com.au

http://www.hahaha.com.au

Me? I can't even spell ASP!

TommyF · Apr 13, 2003

Microbe I have been looking on the web about the error message you had and I it looks like it is down to the logon.

I have found some information but you may have already checked this

http://cert.uni-stuttgart.de/archiv...inetserver.iis.security/2002/08/msg00539.html

Sorry if I am not much help but I am very new to asp and VB and am just trying to pick this up as I go.

tommyf

PS could you point me in a good direction of some good books to help me

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Popup Message on intranet 1

Technical User

Programmer

Technical User

IS-IT--Management

Technical User

IS-IT--Management

Programmer

Technical User

IS-IT--Management

Technical User

IS-IT--Management

Technical User

Technical User

Programmer

Technical User

Programmer

Technical User

Technical User

Programmer

Technical User

Similar threads

Log in

Part and Inventory Search

Sponsor