#!/usr/bin/perl use strict; use warnings; use Win32::Registry; my ($node) = '\\\\node_ip'; my $Register='SOFTWARE'; my ($hNode, $hKey, @key_list); print "win?\n"; $HKEY_LOCAL_MACHINE->Connect ($node, $hNode) or die "Cannot connect to $node: $^E\n"; $hNode->Open ("$Register", $hKey) or die "Cannot open registry: $^E\n"; $hKey->GetKeys(\@key_list); print "WIN!\n@key_list n"; $hKey->Close (); $hNode->Close ();