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

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
88:83 04/11/08 00:18:45 >>87 foreach の ( ) の中を @colLogs としても同じく "undefined value" とエラーがでます。 @$colLogs とすると実行は出来たのですが foreach の中の処理をしてくれません。(実行しても何も起こらない) WMIの呼び出しが間違っているんですかね？ perlでWMI扱う情報がweb上にほとんどなく、 どうすればいいのかよくわからないので知恵を貸してください。 追加で質問なんですが、文字コード/改行コードはEUC-JP/CRLFでよろしいんですか？ 89:83 04/11/08 00:25:04 ちなみにwebで見つけたVBでログをクリアする方法です(バックアップする処理も含まれていますが) perlへ移植するにはどうすればよいでしょう ---------------------------------------------------------------- Set objWMIService = GetObject("winmgmts:" _ 　 & "{impersonationLevel=impersonate,(Backup)}!\\" & _ 　 　 　strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery _ 　 ("Select * from Win32_NTEventLogFile where LogFileName='Application'") For Each objLogfile in colLogFiles 　 objLogFile.BackupEventLog("c:\scripts\" & strBackupName & _ 　 　 "_application.evt") 　 objLogFile.ClearEventLog() Next

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

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