Windows上で別のユーザーとしてプロセスを起動する方法はありますか？

Question

私はPerlスクリプトを持っているので、ローカルボックスで別のユーザーとして実行する必要があります。それは試験機なので、本当のセキュリティはありません—働いたらハンマーを使います。私がこれまで試したどのような

は

$cmd = 'runas /user:tester01 "perl delegated.pl"'; 
system($cmd) == 0 
    or die "could not spawn process as tester01: $!"; 

であるが、それは動作しません：それは対話的にパスワードの入力を要求します。 （echo passwordのrunasへのパイプも失敗しました）

どのようにしてPerlスクリプト内から達成する必要がありますか？あるいは、私はその前に何か他のことをしなければならないのですか？system "runas..."？

私はPsExecを使うことができますが、私はWindowsネイティブのソリューションを好むでしょう。現在動作するはずのボックスはWindows 7とWindows XPですが、後で他のWindows OSが追加される可能性があります。

Answer 1

WinAPIを使用して、スポーンされたシェルにパスワードを送信したくない場合は（たとえば、Win32::GuiTest SendKeysメソッドが役立つ場合があります）、PsExecを使用することをお勧めします。 ）This threadは少し古くなっていますが、Microsoftのポリシーについてはまだ説明しています。ここで

Answer 2

私はあなたが$cmdその後systemは、1が渡されます、番号0と0==0に変換し、コマンドとしてそれを実行しようとしますので、$cmd==0は1と評価されますあなたのコードでは

system($cmd) == 0 
    or die "could not spawn process as tester01: $!"; 

をしたいと思います。

$cmdが暗黙的に数値に変換されたときに問題が報告されました。

Answer 3

はあなたのコードが行くだろう方法は次のとおりです。

use strict; 
use warnings; 
use Win32::GuiTest qw[ SendKeys ]; 

system 1, q[runas /user:machinename\username "perl scriptname.pl"]; 

SendKeys('password~'); 

は）（のSendKeysについての詳細はWin32::GuiTestマニュアルを参照してください。