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

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

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

次ページ

続きを表示

1を表示