If you must take control of a window using Perl, on Windows, that was launched by another process (Powershell in this case), then Win32-GuiTest is probably your best bet...

Nevermind what forum this is ... we all encounter issues like this every day.   Bring the topic to closure here (too...), please.   PowerShell scripts will be understood by all comers.

I asked the OP to post the powershell code, and offered to help with it
-TJ

Hi, I'm trying to use Win32-GuiTest for this problem. Below is my observation while using this module. please let me know your suggestions on this-

1. My powershell initiated browser window doesn't has any title. So, I'm using FindWindowLike with class regex. It works somehow okay but in some scenarios, this class regex matches more windows. Is there any way to get only one window handler?

2. Once I get the window handler, is there any function to select username, password text boxes and send texts into these text boxes.

below is the sample code i'm using to identify

    use Win32::GuiTest qw( :ALL );
    #use strict;
    my @whnds = FindWindowLike( undef, "^\s*\$" , "Internet Explorer_S
+erver" );
    if( !@whnds ){
        die "Cannot find window with title/caption Symantec Endpoint P
+rotection Manager\n";
    }else{
        print "window handle found: [@whnds]\n";
    }
    
    $text = "hi";
    foreach (@whnds) {
        set_front_win($_);
        $result= WMSetText( $_, $text );
        SendKeys("{TAB}"); #  sleep(1);
        SendKeys("admin"); #  sleep(1);
        SendKeys("{TAB}"); #  sleep(1);
        SendKeys("crt{@}123"); #  sleep(1);
        SendKeys("{TAB}"); #  sleep(1);
        SendKeys("{TAB}"); # sleep(1);
        SendKeys("{ENTER}");   sleep(1);
        #PushChildButton( undef, "Authorize" );
        SendKeys("{ENTER}");
    }
[download]

To answer both questions see spy.pl from Win32::GuiTest::Examples. Use this tool (or something similar) to determin the window/object ID. See the other examples for using this ID to interact with them.

A little bit offtopic: Seeing this question let me ask whether your problem at Child process opened using open function works fine but doesn't work with open2 function is now solved for you? It seems you collect the output of the powershell into a log file while feeding powershell via pipe. Does that mean the question mentioned above is solved for you?

McA

Hi McA, Thanks for your help in previous post :) As you can see in this script snippet, I redirected the powershell STDOUT to a file. It's not the exact solution of my earlier problem but, it's just a workaround.

In my earlier post I wanted to store the powershell script output in a variable. It didn't work using open2 function. So, to move ahead with my objective in a faster way, I used this workaround. Now, here again as you see, I found a trouble :) This time my powershell script invoked a browser, where I need to put my credential and click on the validation button.

Here, I think I can solve this problem in two ways, either modify the powershell code itself or find a way in perl to handle it. First way to modify powershell script seems reluctant to me as it would require powershell knowledge and also modification in the existing scripts (this thing I want to avoid). Second way is good as it would enhance my Perl skills and I would love that :)

I am on Internet Explorer and found Win32::IEAutomation useful in the past as it emulates the user interaction with the browser. Have a look at the code snippet below. This is a bit older code and I hope it still works on newer IE.

    my $ie = Win32::IEAutomation->new( visible => 1 );
    $ie->gotoURL( "http://some.site.com/" );
# login
    $ie->getTextBox('name:', "userid")->SetValue($user);
    $ie->getTextBox('name:', "password")->SetValue($pass);
    $ie->getButton('name:', "login.x")->Click;

# move to job page
    $ie->getLink('linktext:', "Job")->Click;
    $ie->getLink('linktext:', $jobid)->Click;

# retrieve results
    my $content =  $ie->PageText;
[download]

Try using Authen::NTLM to authenticate to that domain before executing your powershell script.