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
