Hello!
I'm not sure if this question belongs here or not, but I would appreciate
any help.
When I run the script Example 2.1 from Dave Roth's "WIN32 PERL SCRIPTING"
(after changing what's nessesary according to the comments in the code) I
got the following. I asume it's warnings, because the script seems to work.
The account, diectory and permissions get set allright.
My question is why does this show?
TIA
S�ren Edzen
[snip]
--------------------------------------------------------------------------
Prototype mismatch: sub main::DACL_SECURITY_INFORMATION () vs none at
E:/Perl/li
b/Exporter/Heavy.pm line 165
Exporter::heavy_export('Win32::Lanman', 'main') called at
E:/Perl/lib/Ex
porter.pm line 45
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
H:\bin\AddUser.pl line 14
main::BEGIN() called at E:/Perl/site/lib/Win32/Lanman.pm line 14
eval {...} called at E:/Perl/site/lib/Win32/Lanman.pm line 14
Prototype mismatch: sub main::GROUP_SECURITY_INFORMATION () vs none at
E:/Perl/l
ib/Exporter/Heavy.pm line 165
Exporter::heavy_export('Win32::Lanman', 'main') called at
E:/Perl/lib/Ex
porter.pm line 45
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
H:\bin\AddUser.pl line 14
main::BEGIN() called at E:/Perl/site/lib/Win32/Lanman.pm line 14
eval {...} called at E:/Perl/site/lib/Win32/Lanman.pm line 14
Prototype mismatch: sub main::OWNER_SECURITY_INFORMATION () vs none at
E:/Perl/l
ib/Exporter/Heavy.pm line 165
Exporter::heavy_export('Win32::Lanman', 'main') called at
E:/Perl/lib/Ex
porter.pm line 45
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
H:\bin\AddUser.pl line 14
main::BEGIN() called at E:/Perl/site/lib/Win32/Lanman.pm line 14
eval {...} called at E:/Perl/site/lib/Win32/Lanman.pm line 14
Prototype mismatch: sub main::SACL_SECURITY_INFORMATION () vs none at
E:/Perl/li
b/Exporter/Heavy.pm line 165
Exporter::heavy_export('Win32::Lanman', 'main') called at
E:/Perl/lib/Ex
porter.pm line 45
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
H:\bin\AddUser.pl line 14
main::BEGIN() called at E:/Perl/site/lib/Win32/Lanman.pm line 14
eval {...} called at E:/Perl/site/lib/Win32/Lanman.pm line 14
>From the book 'Win32 Perl Scripting: The Administrator's Handbook' by Dave
Roth
AddUser.pl
----------
Create an account.
Syntax:
perl AddUser.pl AccountName [-d Domain | -m Machine][-c Comment]
[-f FullName] [-g Group]
-c..........Specify the account's comment.
-f..........Specify the account's full name.
-g..........A group the account is a member of.
This is only applicable to user accounts.
Specify this switch as many times as needed.
-m Machine..Specify a machine where the user account will live.
-d Domain...Specify a domain where the user account will live.
AccountName.The name of the account (the userid).
[/snip]
--------------------------------------------------------------------------
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
