[perl-win32-gui] Open Desktop Applications

[Steven Manross]

Title: Open Desktop Applications

Is there a way to get the open application information of a remote system much like the example below does?

Thanks,
Steven

#taken from winlist.pl by Aldo

$desktop = GUI::GetDesktopWindow();
$window = GUI::GetWindow($desktop, GW_CHILD);
while($window) {
    $title = GUI::Text($window);
    if($all or ($title and GUI::IsVisible($window))) {
        printf("%16d: %s\n", $window, $title);
        GUI::Show($window, 6) if $min and $title ne "Program Manager";
    }
    $window = GUI::GetWindow($window, GW_HWNDNEXT);
    # print $window;
}