OK, what I am trying to do is check for a registry value on a remote machine via WMI.

The problem I am having is that if the value is not present my script will just exit, with no error (or I am just not catching it).

For example, I am looking in HKLM\\CurrentControlSet\\Services\\SNMP\\Parameters\\TrapConfiguration\\public for the key "1" and then checking what the value of the key is to make sure SNMP is setup and working correctly. Now if the path I mentioned above exists, the script is happy and continues doing its thing but if the above path does not exist,things don't work out so well... And by exist I mean there is no folder called "public" under "TrapConfiguration" in the current server registry

Here is my code

use strict;
use Win32::OLE;
use Win32::OLE::Variant;
use Net::Ping;
use Date::EzDate;
use Spreadsheet::WriteExcel;
use warnings;
use Win32::OLE qw(in with);

sub regCheck
{
    my $server = $_[0];
    my $exists = 0;
    my $refRegistry = Win32::OLE->GetObject("winMgmts://$server/root/d
+efault:StdRegProv" ) or die "cannot get object\n";
    my @search = ('\\xxxxx','\\public');
    my $HKEY_LOCAL_MACHINE = 0x80000002;
    my $strSKPath="SYSTEM\\CurrentControlSet\\Services\\SNMP\\Paramete
+rs\\TrapConfiguration";

    my $strValueName="1";
    my $count = 1;
    foreach(@search)
    {
        my $value = Variant(VT_BSTR | VT_BYREF, "");
        my $newPath = $strSKPath . $_;

$refRegistry->GetStringValue($HKEY_LOCAL_MACHINE, $newPath,$strValueNa
+me, $value);


                #Ignore this part
        #if($value != 0)
        #{
        #    print OUTFILE "Regvalue is null\n";
        #}
        #else
        #{
        #if($value =~ m/^*xxxxxx.com*+/)
        #{
        #    $exists = 1;
        #}
        #}
        $count++;
    }
    return $exists;
}
[download]

Also to be clear, I am searching two places in the registry for the value I want. That is the reason for the foreach in the middle of the sub. In addition, the part commented out I have not worked on because I was trying to figure out why my script was failing at the specific line mentioned below.

What I have discovered is my script is stopping at this line if the path to the registry does not exist

$refRegistry->GetStringValue($HKEY_LOCAL_MACHINE, $newPath,$strValueName, $value);

I have learned that this line will return 0 if it is successful. And according to Microsoft this line will return either a null value or a value other than 0 if it fails. See here->http://msdn.microsoft.com/en-us/library/aa390788%28v=vs.85%29.aspx

What happens is it will return 0 if the path to search in the registry exists, which is what its suppose to do. But, if it cant find the path in the registry, it will just fail without seeming to return any error,or *anything* for that matter, and my script will terminate.

I have tried all different things to try and retrieve what this problem line is returning but I have been unsuccessful.

Does anyone have any idea whats happening and why my script would just exit? Also, im sorry if what I am trying to do is a little confusing I tried my best to explain everything but if you have any questions let me know. Thanks in advance for any suggestions!

-Matt