http://www.perlmonks.org?node_id=216556

OzzyOsbourne has asked for the wisdom of the Perl Monks concerning the following question:

Anyone know of a module that will change an account on a w2k service? Win32::service won't do it, and google isn't giving it up. There are NT reskit soluions, but there should be a way to to do it in straight Perl.

Thanks

-OzzyOsbourne

Replies are listed 'Best First'.
Re: Changing the account on a W2K service
by Courage (Parson) on Nov 29, 2002 at 17:02 UTC
    I do not know what means "change an account on w2k service"
    Am I right that this is just user account?

    Here is a code borrowed from "Perl for System Administration" book that creates an account, modification of an user is quite similar to it

    use Win32::OLE; $ADsPath = "WinNT://_enter_domain_name_here_/_enter_computer_name_,com +puter"; $c = Win32::OLE->GetObject($ADsPath) or die "can't get $ADsPath\n"; # create & return User $u = $c->Create("user","xx"); $u->SetInfo(); # first create object for user, and thenchange values # in WinNT: a space between "Full" and "Name" is impossible $u->{FullName} = "XXX-user!"; $su->SetInfo();
    A point is to use Win32::OLE for WMI, which is a central point for Win2K administration manupilations.

    Best wishes,
    Courage, the Cowardly Dog

Re: Changing the account on a W2K service
by Jenda (Abbot) on Nov 29, 2002 at 20:30 UTC

    Win32::Lanman's ChangeServiceConfig()

    You should be able to install it with PPM from http://jenda.krynicky.cz/perl

    Jenda