Perl Net::Ping; (Win32)

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
 
Hi All,
 
I was just wondering whether someone might be able to assist me in a
small little problem I am having with a perl application?  (I know
this may be somewhat off topic, but I figured you only life once, and
therefor I am going to make use of the oppotunitiy  :)
 
This is coded in ActivePerl (Win32), and I am experiancing some weird
problems in regards to sending ICMP ping packets?
 
If I do not send the packet as a user with Administrative rights, the
ping packet responds with a "Unknown Socket Error" message, but when
I do have Administrative rights, it works perfectly...   Someone dont
perhaps know why / have some pointers for me as to why this is
happening?  Is this a restriction in Windows NT itself??
 
- From what I am seeing at the moment, it almost wants to look to me
like Microsoft is denying any access to ICMP data except if the NTLM
Authenticated user has Administrative rights (or perhaps some other
odd setting).  This is however totally upsurd, because any user is
able to use the ping.exe command...  If anyone has experianced
similar weirdness, will you perhaps please let me know how you got to
fix this?  I'm really desparate...
 
The code looks as follows:
 
      # Do our monitoring here.  These values are unique per DB
entry.
      $ping = Net::Ping->new("icmp", 10);
      if (!($ping->ping($IPAddr))) {
        Notify_Mail($Email);
        Notify_Admins($LineNumber);
      };
      $ping->close();
 
I look forward to your reply.
 
- ---
Regards,
Chris Knipe
Cell: (083) 430-8151
 

-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 6.5.8 for non-commercial use <http://www.pgp.com>
 
iQA/AwUBOe011dH4faKoc4EuEQKVfgCeKt3kCSLwZ8Kso5Z52b5hE96E364AoN/r
C6aon5GaEupW5SMM6+6Gh4nx
=1oAJ
-----END PGP SIGNATURE-----

[Index of Archives]     [Netdev]     [Ethernet Bridging]     [Linux 802.1Q VLAN]     [Linux Wireless]     [Kernel Newbies]     [Security]     [Linux for Hams]     [Netfilter]     [Git]     [Bugtraq]     [Yosemite News and Information]     [MIPS Linux]     [ARM Linux]     [Linux RAID]     [Linux PCI]     [Linux Admin]     [Samba]

  Powered by Linux