Using the following line worked for me... (changed startup to start)

if(!Win32::Lanman::ChangeServiceConfig("\\\\cchupela", '', 'Schedule',
{start =>'2'}))

(my lanman is version 1081)
Thanks for the help.
Chris



                                                                                       
        
                    "Paul Popour"                                                      
        
                    <ppopour@coast        To:     <[EMAIL PROTECTED]>,  
        
                    alnow.net>            <[EMAIL PROTECTED]>                       
        
                                          cc:                                          
        
                    03/29/2001            Subject:     Re: changing service config     
        
                    11:31 AM                                                           
        
                    Please respond                                                     
        
                    to "Paul                                                           
        
                    Popour"                                                            
        
                                                                                       
        
                                                                                       
        





----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, March 29, 2001 10:41 AM
Subject: RE: changing service config


>
> Tried changing the startup to  {startup => '2'} and saw the same
behaviour
> in both cases... says it completed successfully, but control
panel/services
> still shows manual start.
> Tried it on a couple of different machines. Anything else I might be
> missing?
> Thanks.
>

Make sure the lanman is 1.0.8.1.  There is a known problem with change
config in older versions.

This snippet from sc.pl works.  I have run across a few functions that need
double quotes instead of single quotes so you might try that.

if (!Win32::Lanman::ChangeServiceConfig("$server", "" ,"$tservice", {start
=> "$startup{$action}"}))
  {
  print "Unable to update the $tservice service configuration on
$server\n";
  return;
  }





_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin

Reply via email to