Net :: NetSend.

Windows Æ˾÷ ¸Þ½ÃÁö Àü¼ÛÀ»À§ÇÑ Perl È®ÀåÀÚ
Áö±Ý ´Ù¿î·Îµå

Net :: NetSend. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î