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

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
90:デフォルトの名無しさん 04/11/08 06:13:37 >>89 SQL使える人ならできるだろ 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(); }

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4327日前に更新/212 KB
担当:undef