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

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

91:85
04/11/08 06:28:52
>>83
できたぞ。喜べ。
検索キーワードは「"Win32::OLE" コレクション」。
OLEの世界のコレクションはperlの世界では単なるポインタなので、
そのままではループをまわせない。
それをどうやって扱うのか？
専用のWin32::OLE::Enumモジュールを使えばいいらしい。

以下コード。

use Win32::OLE;
use Win32::OLE::Enum;

$strComputer = ".";
$objWMIService = Win32::OLE->GetObject(
　"winmgmts:{impersonationLevel=impersonate,(Backup)}!\\\\".
　"$strComputer\\root\\cimv2");
$colLogFiles = $objWMIService->ExecQuery
　("Select * from Win32_NTEventLogFile where LogFileName='Application'");
$enum = Win32::OLE::Enum->new($colLogFiles);

while (defined($item = $enum->Next)) {
　$item->BackupEventLog("c:\\scripts\\test_application.evt");
　$item->ClearEventLog();
}

次ページ