RE: Installed softwares on NT

[Morgan, Steve H.]

Here is the code I use for Audits.



sub AuditInstalledSoftware
{
   my ($Server) = @_;
   my @softkeys ;
   my $key;
   my $uninstall;
   my $keys;
   my $soft;
   my %softInfo;

   $Registry->Delimiter("/");                  # Set delimiter to "/".
   $uninstall =
$Registry->{"//$Server/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/Current
Version/Uninstall"};
   @softkeys =keys %{$uninstall};
        foreach $key(@softkeys){                          #Check Uninstall
keys to enumerate installed software
                $softInfo{$key} = $uninstall->{$key}->{'DisplayName'};
        }
   print
"\n######################################################################\n"
;
   print "# Installed Software
#################################################\n";
        foreach $soft(sort values %softInfo){
                unless(!$soft){
                        print  "  $soft\n";
                }
        }
}


-----Original Message-----
From: Jangale V-S [mailto:[EMAIL PROTECTED]] 
Sent: Tuesday, April 09, 2002 11:04 AM
To: '[EMAIL PROTECTED]'
Subject: Installed softwares on NT

Dear All,

I want to get information about installed softwares on Windows NT 4 clients
(Visible in Add/Remove Programs) using perl winthout using WMI !

Can anybody guide me ??

With Best Regards,

V.S. Jangale
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs