[port139ml:02966] Re: 4/6 おつかれさまでした

[yoggy <yoggy@xxxxxxxxxxxxx>]

よぎ〜です．お疲れ様でした．

># また今回も よぎ〜さんとあまりお話できずでした（笑）

もしよろしければ，5/18も参加ということでお願いします．m(__)m



これだけだと情報量0で申し訳ないので，試しにWMIで
リモートのプロセス一覧を表示するサンプルプログラムを
作ってみました．なぜかActivePerlで作っています．(^^;

	#!C:\perl\bin\perl.exe
	#
	#	remote_process.pl
	#
	use Win32::OLE;
	die "usage: $0 machine_name username password" if( @ARGV!=3 );
	($host,$user,$pass) = @ARGV;
	$wbem = Win32::OLE->CreateObject( "WbemScripting.SWbemLocator" ) or die;
	$ns = $wbem->ConnectServer( $host, 'root\cimv2', $user, $pass ) or die;
	$win32_process = $ns->InstancesOf("Win32_Process") or die;
	foreach $p ( Win32::OLE::Enum->All( $win32_process ) ){
		print $p->Name . "\n";
	}


ConnectServer()の所を適当に利用すると...(^^;;