Here are my 2 cents...
For emergency messages the quickest way to send a message to lots of
workstations is the syntax :
NET SEND /USERS message
executed from servers.
The message is immediately (well, very quickly) sent to all users and
computers having a session on that server.
By doing this simultaneously from selected servers, you can ensure most
computer will get the popup in a minimum of time.
As for targeting a more specific list of users, instead of forking to death
you may be better off, performance-wise, retrieving connection information
from key servers where you know users will have a connection. Domain
controllers come to mind.
This is quick and once you have this you can very easily target the
computers where the users you want are logged on without having to wait for
Netbios user name resolution, timeouts, etc.
_____________________________________________
Bruno Bellenger
Sr. Network/Systems Administrator
-----Original Message-----
From: Teifke Sascha ZFF FW-EI [SMTP:[EMAIL PROTECTED]]
Sent: Thursday, December 12, 2002 2:23 PM
To: 'Timothy Johnson'; Teifke Sascha ZFF FW-EI;
'[EMAIL PROTECTED] '
Subject: AW: Win32::Message question
The Problem is, that the Message must be displayed at once, not
after the
user opens his Mailbox next time.
We want use it to display an alarm Message like "Warning! The
Building is on
fire! Leave it at once!".
Surely, this isn't the one and only AlarmMessage we sent ( There are
Alarm
Horns ). But it supports the quick
evacuation of the Building.
So we decided not to sent emails but NetSend Messages.
But what about the Win32::Messages Module. Has anybody written a
tool using
this module?
Thanks
Sascha
> -----Ursprüngliche Nachricht-----
> Von: Timothy Johnson [SMTP:[EMAIL PROTECTED]]
> Gesendet am: Montag, 9. Dezember 2002 16:44
> An: 'Teifke Sascha ZFF FW-EI '; Timothy Johnson;
> '[EMAIL PROTECTED] '
> Betreff: RE: Win32::Message question
>
>
> Not knowing completely your criteria, I have to wonder whether
sending an
> email might not be a better idea than sending a net send, since it
tends
> to
> be more reliable.
>
> -----Original Message-----
> From: Teifke Sascha ZFF FW-EI
> To: 'Timothy Johnson'; Teifke Sascha ZFF FW-EI;
> [EMAIL PROTECTED]
> Sent: 12/8/02 11:16 PM
> Subject: AW: Win32::Message question
>
> Yes, the command line "net send" works fine.
>
> By the way. The program I want to write does the following.
>
> He searches our company wide phonebook for users matching some
criterias
> and
> sends them a message.
> For this purpose perl forks for about 50 times to do parallel "net
send"
> for
> the user because
> if a user is not logged in net send waits for about 40 seconds
before it
> quits and return to
> perl. The 50 forks are maintained by the father process who
controls
> that
> everytime a "net
> send" command finished and the thread is closed another thread got
> started.
>
> This handy tool works fine until there were not more than 0 ...
120
> Users,
> but if I try to send more
> perl crashes because of performance problems.
>
> So I thougt that the perl module provides a more efficient way to
send
> messages to the windows
> messaging service:
> - no 40 sec. delay if a user is not logged in.
> - I don't need to do a system () call.
> - ...
>
> Any Suggestions?
>
> > -----Ursprüngliche Nachricht-----
> > Von: Timothy Johnson [SMTP:[EMAIL PROTECTED]]
> > Gesendet am: Freitag, 6. Dezember 2002 17:39
> > An: 'Teifke Sascha ZFF FW-EI';
> [EMAIL PROTECTED]
> > Betreff: RE: Win32::Message question
> >
> >
> > Does it work if you use the NET SEND command?
> >
> > NET SEND recipient message
> >
> > -----Original Message-----
> > From: Teifke Sascha ZFF FW-EI [mailto:[EMAIL PROTECTED]]
> > Sent: Friday, December 06, 2002 6:40 AM
> > To: [EMAIL PROTECTED]
> > Subject: Win32::Message question
> >
> >
> > Hello Group!
> >
> > Using this Code:
> > ---8<--- SNIP
> >
> > #!c:/perl/bin/perl.exe -w
> >
> > use strict;
> > use Win32::Message;
> >
> > my $recipient = "Username"; # Name of a existing, logged in
User
> >
> >
> > my $message = "This is a Message Text!"
> > if (Win32::Message::Send( "MYHOST", $recipient, "MYLOGIN",
$message))
> {
> > print "Sent administrative failure message to $recipient.\n";
> > } else {
> > my $Err = Win32::FormatMessage(Win32::GetLastError());
> > print "Error sending message to $recipient: $Err \n";
> >
> > --------->8--------- SNAP
> >
> > Gaves me the following Error:
> > The System couldn't find the given Environment Option! (
Translated
> from
> > german )
> >
> > any Ideas?
> >
> > Mit freundlichen Grüßen / With best regards
> >
> > Sascha Teifke
> > **********************************************************
> > ZF Friedrichshafen AG | 88038 Friedrichshafen | Abt. FW-EI
> >
> > Fon: +49 (0) 7541 77 - 3330
> > Mobil: +49 (0) 7541 77 - 91 3330
> > Fax: +49 (0) 7541 77 - 90 3330
> > Email: mailto:[EMAIL PROTECTED]
> > Internet: http://www.zf.com
> > Intranet: http://web.zff.zf-group.de/kst635
> > **********************************************************
> >
> > _______________________________________________
> > Perl-Win32-Admin mailing list
> > [EMAIL PROTECTED]
> > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
