> Thanks! I think your advice may apply to the following code
> that I'm having trouble with:
>
> use Win32::NetAdmin;
> $username = Win32::LoginName;
> Win32::NetAdmin::UserGetAttributes("", $username, $password,
> $passwordage, $privilege, $homedir, $comment, $flags,
> $scriptpath);
> print "The homedir for $username is $homedir\n";
Perldoc is your best friend. Try running the command 'perldoc
Win32::NetAdmin', which lists the available documentation for the module
Win32::NetAdmin that you're using. The example at the end of that
listing looks like what you're looking for to get rid of the warnings.
> I tried this but got similar errors but I played with it and
> tried to add the other "$"'s to the print statement but the
> only thing that will print is the username (I'm logged onto
> NT Server 4 as Admin).
What were the error messages? What exactly did you try?
> Here's the other code that I'm having trouble with and it's
> indicative of the problems that I'm having with the
> "IO::Socket::INET->new" statement:
>
> use IO::Socket;
> $remote = IO::Socket::INET->new(
> Proto => "tcp";
> PeerAddr => "localhost";
> PeerPort => "daytime(13)",
> )
> or die "Can't connect to daytime port at localhost";
> while (<$remote>) {print}
>
> Now, I'm getting syntax errors:
>
> syntax error at 415b.pl line 3, near ""tcp";"
> syntax error at 415b.pl line 7, near ")
> "
>
> Any ideas? Remember, I'm a beginner. :-) (no flaming!)
One question per thread please.
HTH,
-dave
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
