Hello, I'm wondering if anyone can help me here. Due to some audit requirements I've come up with a script to identify open file shares (EVERYONE FULL control at share level) that also allow the EVERYONE group FULL control permissions at the NTFS level. I've attached the script. Through various print statements I've managed to determine that the error occurs on line 124 where a new win32::Perms object is being created. The print statement underneath basically tells me that the perms object creation was OK. When I run this script against two of our bigger fileservers I get some intersting results. On the first fileserver it gets to the 201st share before bombing out. On the second fileserver it gets to about 597 shares before it crashes. I've modified the script such that instead of getting the list of shares itself I can pass it individual shares. When doing this the 'problem' shares don't seem to cause a problem. This leads me to think that the issue isn't with the share itself but with some sort of iteration in the program. I've been fairly careful to try and scope things properly and when running the script with 'perl -w' I get a few minimal (benign) warnings at the start of the script and it then continues on fine until the crash. I tried using the perl debugger but just before the crash the last thing it seems to show is that it's inside Carp::Heavy's pm file.
I'm using Activeperl 620 under Windows NT4 TSE SP6. I'm not sure what I should do next. Can anyone advise? Thanks, PJ http://mobile.yahoo.com.au - Yahoo! Mobile - Exchange IMs with Messenger friends on your Telstra or Vodafone mobile phone.
share_perms_test2.zip
Description: share_perms_test2.zip
