The name of the service I think you want is not 'server' but 'lanmanserver'.
-----Original Message-----
From: Veeraraju_Mareddi [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 07, 2001 11:35 AM
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: Win32::Lanman problem
Dear Team
Could you please tell me why this script is reporting error 1060 (this means
the specified service is installed) even though this service is there and
running fine on the server. Please look into it.
use Win32::Lanman;
if(!Win32::Lanman::QueryServiceStatus("\\\\hotnt006", "", 'server',
\%status))
{
print "Sorry, Failed error: ";
print Win32::Lanman::GetLastError();
}
foreach $key(%status)
{
print "$key = $status{$key} \n" ;
}
One more thing I want to know is whether this function requires any special
privilege (like SeSecurityPrivilege). Because I have one tool in NT 4.o
resource kit (NETSVC.EXE) which is reporting ACCESS DENIED error.
ThanQ very much for your HELP and Suggestions.
With Regards
Raju
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
