Help for this page

Select Code to Download


  1. or download this
    eval{$refRegistry->GetStringValue($HKEY_LOCAL_MACHINE, $newPath,$strVa
+lueName, $value);};
print $@ if $@;
  2. or download this
    if (my $oWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\r
+oot\\CIMV2") or warn "Unable to open $computer\n" && next OUTER){ .. 
+do stuff ..}

if(my $colItems = $oWMIService->ExecQuery ( "Select * from Win32_Servi
+ce"))
{..do stuff..}