Subj : Re: Perl NT Admin (was Re: User log on and services)
To   : Randall Parker
From : Randall Parker
Date : Sun Mar 25 2001 07:17 am

From: Randall Parker <rgparker@west.net>

See this script named regrun.pl


use Win32::TieRegistry( Delimiter=>"/" );

$things = $Registry->{"LMachine/Software/Microsoft/"}->
{"Windows/CurrentVersion/Run/"}
or  die "Can't find the Windows Run key: $^E\n"; foreach(  keys %$things  ) {
  print "LM   $_: ", $things->{$_}, "\n";
}


Running it produces this output:

[j:\admin\nt]perl regrun.pl
LM   /SystemTray: SysTray.Exe
LM   /BrowserWebCheck: loadwc.exe
LM   /MGA QuickDesk: "C:\Program Files\MGA NT PowerDesk\QDesk\MGAQDESK.EXE"
LM   /MGABG: "C:\WINNT\System32\MGABG.EXE"
LM   /RealTray: C:\Program Files\Real\RealPlayer\RealPlay.exe
SYSTEMBOOTHIDEPLAYER
LM   /RealJukeboxSystray: C:\Program Files\Real\RealJukebox\tsystray.exe
LM   /SyGateManager: j:\prg\sybergen\sygate\SyGate.exe
LM   /SchedulingAgent: mstinit.exe /logon
LM   /POINTER: point32.exe

--- BBBS/NT v4.00 MP
 * Origin: Barktopia Gating Project http://HarborWebs.com:8081 (1:379/45)

.