Hi John,
The screen saver settings are stored in the registry.
The following should tell you what the settings are:
use Win32::TieRegistry (TiedRef => \$reg) ;
use Win32;
my $control = $reg->{"CUser\\Control Panel"};
my $desktop = $control->{"Desktop"};
print "ScreenSaver: " . scalar ($desktop->{"SCRNSAVE.EXE"})."\n";
print "Active: " .scalar ($desktop->{ScreenSaveActive})."\n";
print "Secure: " . int( Win32::IsWin95() ?
$desktop->{ScreenSaveUsePassword} : $desktop->{ScreenSaverIsSecure} )."\n";
print "Timeout: " . scalar ($desktop->{ScreenSaveTimeOut})."\n";
Hope that helps.
Kev.
------------------------------
Date: Wed, 1 Sep 2004 17:41:04 -0500
From: "Herbold, John W." <[EMAIL PROTECTED]>
Subject: Screen Saver settings
To: "'[EMAIL PROTECTED] '"
<[EMAIL PROTECTED]>, "'Steven
Manross
'" <[EMAIL PROTECTED]>,
"'[EMAIL PROTECTED]
'" <[EMAIL PROTECTED]>
Message-ID:
<[EMAIL PROTECTED]>
Content-Type: text/plain; charset=iso-8859-1
Any body know of a way to use Perl to see if a workstation has password
protection enabled and what the timeout is for the workstations screensaver?
Code snippets would be perfect, ideas and suggestions would be most helpful.
Thanks !
John W. Herbold Jr.
Security Specialist
This e-mail is confidential and may contain legally privileged information. You
should not disclose its contents to any other person. If you are not the intended
recipient, please notify the sender immediately.
Whilst the Council has taken every reasonable precaution to minimise the risk of
computer software viruses, it cannot accept liability for any damage which you may
sustain as a result of such viruses. You should carry out your own virus checks
before opening the e-mail (and/or any attachments).
Unless expressly stated otherwise, the contents of this e-mail represent only the
views of the sender and do not impose any legal obligation upon the Council or commit
the Council to any course of action.
________________________________________________________________________
This e-mail has been scanned for all viruses by Star Internet. The
service is powered by MessageLabs. For more information on a proactive
anti-virus service working around the clock, around the globe, visit:
http://www.star.net.uk
________________________________________________________________________
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
