Hey Jenda,
I am still trying to figure out the syntax/structure, etc of Perl but I
figured it out. Here is my simple script..
#!path\to\perl\
use Win32::Registry
$HKEY_LOCAL_MACHINE->DeleteValue($AutoShareWks);
Win32::Registry::DeleteValue('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSe
t\Services\lanmanserver\parameters', $AutoShareWks);
If someone has something different (easier or harder) let me know....
Thanks
Arthur
-----Original Message-----
From: Jenda Krynicky [mailto:[EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 4:56 PM
To: [EMAIL PROTECTED]
Subject: Re: Editting the registry?
Subject: Editting the registry?
Date sent: Tue, 26 Oct 2004 12:25:33 -0400
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
> I want to restore the default admin shares on a user's machine.
>
> I have to delete the following key from the registry.
>
> To restore the default hidden administrative shares, delete the
> AutoShareWks
> DWORD value in the following registry key, and then restart your
> computer:
> HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Para
> me ters
>
> Can someone point me in the right direction? Possibly a tutorial for
> doing this in perl.
Install the Win32::Registry2 patch from
http://Jenda.Krynicky.cz/#Win32::Registry2 and read the docs.
(The patch will become the next version of the module if a new
version of libwin32 ever gets released.)
Another option is Win32::TieRegistry.
You can restart the computer by
use Win32;
Win32::InitiateSystemShutdown( undef, "The machine goes down
dudes.", 10, 0, 1);
See
perldoc Win32
HTH, Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
