WSH(・∀・)ｽﾚｯﾄﾞ!

WSH(・∀・)ｽﾚｯﾄﾞ! ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

80:79
 04/10/31 08:22:25
SendKeys を使って、"~"や"%" を送ろうとしても、それぞれ、[Enter]や[Alt] に変換されてしまって、 
ファイル名のダイアログボックスに、名前を上手く入力できず困っていました。 
 
でも、Clipboard の中に SetData("~ %") しておいて、Sendkeys（"＾V"）《貼り付け》 
してしまえば、上手く行きそうな気がしてきました。 
まだ試してないけど、あとでためしてみます。 
問題を解くきっかけを作っていただき、ありがとうございました。

81:デフォルトの名無しさん
 04/10/31 12:13:38
>>80 
ttp://www.microsoft.com/japan/msdn/library/ja/script56/html/wsmthsendkeys.asp

82:デフォルトの名無しさん
 04/11/02 16:50:19
CreateObjectもできて 
dir /b | sortとかもできるWSHなスクリプトってないの？ 
VBSってすごい面倒。

83:デフォルトの名無しさん
 04/11/03 22:56:06
WSHでセキュリティのイベントログを削除するスクリプトを 
perlで作ったですがエラーがでて困ってます。 
　# cscript script.pls 
でコマンド実行すると 
　# PerlScript Error:    (in cleanup) Can't call method "ClearEventlog" on an undefined value 
とエラーになります。 
環境はWindows XPにActivePerl 5.8.4です。 
どこが悪いのでしょうか。改善点をお願いします。 
 
以下ソースです。 
 
use Win32::OLE; 
 
open(LOG, "eventquery.vbs /v /fo csv /l Security |"); 
@data = <LOG>; 
close(LOG); 
 
$strComputer = "."; 
$wmi = Win32::OLE->GetObject( 
  "WinMgmts:{impersonationLevel=impersonate}!//" . 
  "$strComputer\\root\\cimv2" 
); 
 
$colLogs = $wmi->ExecNortificaitonQuery( 
  "Select * from Win32_NTEventLogFile where LogFileName='Security'" 
); 
 
foreach $objEvent ($colLogs) { 
  $objEvent->ClearEventLog(); 
}

次ページ