There is one other possible caveat to be aware of. If you have users that are logged in to more than one system, only one system will get the message, and it might not be the one that they regularly use. When they go back to the other system, there will be a bunch of messages on their screen. Usually this doesn't affect the majority of users, but it's something to be aware of.
-----Original Message----- From: Teifke Sascha ZFF FW-EI To: 'Dutrieux Yves'; Teifke Sascha ZFF FW-EI; 'Timothy Johnson' Cc: [EMAIL PROTECTED] Sent: 12/9/02 1:01 AM Subject: AW: Win32::Message question I thought of this, too, but the IT-Department of my Company doesn't want to do this. > -----Ursprüngliche Nachricht----- > Von: Dutrieux Yves [SMTP:[EMAIL PROTECTED]] > Gesendet am: Montag, 9. Dezember 2002 09:50 > An: 'Teifke Sascha ZFF FW-EI'; 'Timothy Johnson' > Cc: [EMAIL PROTECTED] > Betreff: RE: Win32::Message question > > perhaps invert the process, > your perl fill a table/server or anything else. > and the client would regularly check your table/server or anything else. > so > the process is on client... > > Yves. > -----Original Message----- > From: Teifke Sascha ZFF FW-EI [mailto:[EMAIL PROTECTED]] > Sent: Monday, December 09, 2002 8:17 AM > To: 'Timothy Johnson'; Teifke Sascha ZFF FW-EI; > [EMAIL PROTECTED] > 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
