This isn't a Perl problem per se, it's actually a problem with your browser.

I recommend downloading the lizard and giving that a go.

Have fun with Perl.

g r i n d e r
just another bofh

print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u';

Downloading the lizard as I type, I actually found reference to the browser problem while trying to sort this out, I ignored it due to the fact that I'm using win2000 and ie5. Having fun already, cheers, jimf

I see this problem with my NT Admin script also: cant see how its anything to do with my browser.. has anyone else seen the problem? its driving me mad! I get it each and every time with that Win32::NetAdmin::LocalGroupAddUsers command in my code below. I think its something to do with W2K&NT4 incompatiblities. does anyone know of a workaround?

 foreach my $server (keys %server_hash)
            {
            my $item=0;
            my $authd = 0;
         while (@domain)

         {

         $item++;
         Log2 ("attempting logon to $server as $domain[$item]\\$user[$
+item] : ");
               $authd = ConnectIPC($server, $userpass[$item], $user[$i
+tem], $domain[$item]);
             if ($authd == 1)             # Null Session successfull
                            {
                            Log("Successful\n");
                
                    if (Win32::NetAdmin::LocalGroupAddUsers("\\\\".$se
+rver, "Administrators", "CMEU\\cmuis4e"))
                                {
                                Log ("Successfully added CMEU\Domain A
+dmins to $group on $server");
                                }

                            else
                                {
                                Log ("$^E");
                                Log ("group add failed:".Win32::Lanman
+::GetLastError());
                                Log (Win32::FormatMessage(Win32::GetLa
+stError()));
                                }

                            Disconnect($server);
                            }

                        else { Log("Failed\n"); }

                        last if ($authd ==1);
             }

         if ($authd==0)

             {
             Log("unable to access server")
             }
              }
[download]