| Net :: NetSend. Windows Æ˾÷ ¸Þ½ÃÁö Àü¼ÛÀ»À§ÇÑ Perl È®ÀåÀÚ |
Áö±Ý ´Ù¿î·Îµå |
Net :: NetSend. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Florian Greb
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~greb/
Net :: NetSend. ű×
Net :: NetSend. ¼³¸í
Windows Æ˾÷ ¸Þ½ÃÁö¸¦ º¸³»±âÀ§ÇÑ Perl È®ÀåÀÚ Net :: NetSend´Â Windows Messenger ¼ºñ½º¿¡ ´ëÇÑ Å¬¶óÀ̾ðÆ® ÀÎÅÍÆäÀ̽º¸¦ ±¸ÇöÇÏ¿© Perl5 ÀÀ¿ë ÇÁ·Î±×·¥ÀÌ Windows Machines¿ÍÀÇ ´ëȸ¦ °¡´ÉÇÏ°ÔÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÀÌ°ÍÀº Windows.Synopsis¿¡¼ "Net Send"¸í·ÉÀ» ±Ù»çÇÑ ¼ø¼öÇÑ Perl ±¸ÇöÀÔ´Ï´Ù. : NetSend QW (: ALL); ³» $ target_netbios_name; my $ source_netbios_name = "mypc"; MY $ TARGET_IP = "192.168.0.1"; ³» $ message = "Hello World!"; ³» $ debug = 0; $ target_netbios_name = getnbname ($ target_ip, $ debug); if (! $ target_netbios_name) {die "netbios no netbios name ¹ß°ß : $ @ ";} My $ Success = sendmsg ($ target_netbios_name, $ source_netbios_name, $ target_ip, $ message, $ debug); Àμâ ($ ¼º°ø?"¼º°ø ":"¹è´Þ ¿À·ù! @ "); ¿ä±¸ »çÇ× : ¡¤ Perl.
Net :: NetSend. °ü·Ã ¼ÒÇÁÆ®¿þ¾î