• 締切済み

イベントビューアの操作をしたい

Windows2000ProSP2でVB6SP5を使用しています。 イベントビューアを起動し、「セキュリティログ」を選択して、「操作（A)」-「ログファイルの名前を付けて保存（A)」、それで名前を付けてCSV形式で保存したいのです。 Shell関数でeventvwr.exeを実行して起動した後、Sendkeysでキー操作をすればいいのかと思ったのですが、 できません。 Shell関数の後でイベントビューアが完全に起動するまで待つ必要があるのではないかと思っています。 実現するには、どのようにすればよいのでしょうか？ だめ↓ Shell "eventvwr", vbNormalFocus SendKeys "{DOWN}", Wait SendKeys "{DOWN}", Wait SendKeys "%(a)", Wait

みんなの回答

  • fis
  • ベストアンサー率88% (8/9)
回答No.1

こちらには２０００の環境がないので試せないのですが、 こちらのVisualBasicの部屋の、 第２章.プログラミング１の ”８．その他”の”００６.他のアプリケーションを操作する１”と ”６．日付と時間”の”００２．ちょっと待つ”が参考になるかと思います。 やはり待つのがポイントのようですね。 はっきりとした回答ではなくて申し訳ありません。 それでは。

参考URL：
http://www.skai.co.jp/arufonsu/
yamasa
質問者

補足

返答が大変遅くなって申し訳ございません。 そしてご回答ありがとうございます。 教えていただいたサイトを見て、試してみたのですが、やはりできませんでした。AppActivateでステートメントでエラーが出てしまいます。エラー内容は次の通りです。 「実行時エラー'5'プロシージャの呼び出しまたは引数が不正です。」 例えばShell関数で実行するアプリケーションの「eventvwr」を「cmd」に変えてみたりすると、ご指摘の通り問題なくできます。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VBA 特定SVRにID,PASSを投入したい

    現在 グループ外のSVRに 下記 を使ってID,PASSを投入しておりますが 成功率があまり高くありません。 この起動EXCEL を保存しますか? 等 違う画面がでてしまいます。 他に良い方法があればご教授お願いいたします。 Dim myid As Long If Application.OperatingSystem = "Windows (32-bit) NT 5.00" Then 'windows2000 myid = Shell("c:\winnt\explorer.exe", vbNormalFocus) Else myid = Shell("c:\windows\explorer.exe", vbNormalFocus) End If If myid <> 0 Then Application.Wait Now() + TimeValue("00:00:02") SendKeys "%d", True SendKeys "\\xxx.xxx.xxx.xxx", True 'IPアドレス SendKeys "{enter}", True Application.Wait Now() + TimeValue("00:00:01") SendKeys "%u", True SendKeys "xxxxxxx", True 'ID SendKeys "{enter}", True SendKeys "%p", True SendKeys "xxxxxxxx", True 'PASSWORD SendKeys "{enter}", True SendKeys "%fc", True Application.EnableEvents = True Else MsgBox "xxxSVR接続に失敗しました。" & vbCrLf & "再度実行して下さい。" End If

  • イベントビューアの保存先変更

    イベントビューアの各ログは、デフォルトで以下の場所に保存されていると思います。(Windows2000) アプリケーションログ C:\WINNT\system32\config\AppEvent.Evt セキュリティログ C:\WINNT\System32\config\SecEvent.Evt システムログ C:\WINNT\system32\config\SysEvent.Evt これを任意のドライブorフォルダに変更する方法を教えてください。

  • オリンパスViewer3の操作方法について

    オリンパスViewer２をアップグレードし、viewer3にしました。 しかし、操作方法に慣れず、イライラしてます。 特に画像の保存方法がイマイチわからず、苦労していますので、どなたかアドバイスをお願いします。 Viewer2では、画像を編集した際に、ワードやエクセルと同じく、「名前を付けて保存」か「上書き保存」を選べましたよね？ でも、Viewer3では、画像を編集した後に、編集前の画像と編集後の画像を同時に同じファイルに保存する方法がわからないんです。 同じファイルで編集前の画像と、編集後の画像を見比べたいと思っているのですが、その方法がわかる方がいらっしゃいましたら、教えてください。 なお、私はまだ初心者ですので、馬鹿にもわかるよう、やさしい言葉で教えていただけると幸いです。 よろしくお願いします。

  • イベントビューアにエラーが出てるのですがー・・・

    Win2k Server 起動時に、サービスかドライバーの エラーが発生しましたとかなんとか、アラートがでてくるのですが、これは放っておいて大丈夫でしょうか。 イベントビューアで見ると、以下のソースが×、もしくは警告マークが付いてます。 ■以下、エラー ソース　　分類　　　　　　　イベント　　ユーザー Userenv　なし 　　　　　　　1000　　　SYSTEM ESENT　　Logging/Recovery　454 　　　N/A ■以下、警告 ソース　　分類　　　　　　　イベント　ユーザー SceCli　　なし　　　　　　　1202　　　N/A 気が付くといつの間にか出るようになりました。 とりあえず動作には問題ないみたいですが、気になるので、もしおわかりになる方がいらしたら教えてください。

  • イベントファイルがいっぱいです

    最近PC起動時のログイン画面の表示が「イベントログが一杯です。管理者でログインしてクリアして下さい」というようなメッセージに変わりました。 セキュリティログやアプリケーションログを取得しているのでログが取られていることは承知しているのですが、イベントビューアでログをクリアしても現象は変わりません。 そのためログイン画面で指摘されている「ログ」がイベントビューアで見ているログと同じものなのか自信がなくなりました。 同じような事象に合われた方いらっしゃいますか？ 対処方法をご存知でしたら教えてください

  • イベントビューアのエラーについて

    いつからか、イベントビューアのシステムに下記エラーがでています。 DCOM サーバーを起動できません: {98D9A6F1-4696-4B5E-A2E8-36B3F9C1E12C}。 エラー: "指定されたパスが見つかりません。 " は、次のコマンドの起動中に発生しました: "C:\Program Files\Adobe\Acrobat 8.0\Acrobat\AcrobatInfo.exe" /PDFShell -Embedding ちなみに上記パスのファイルはありません。 前に一度、Acrobat 8.0をインストールしすぐにアンインストールしました。 どなたかご教授お願いいたします。よろしくお願いいたします。

  • イベントビューアでエラーが出て困っています。。。

    Win2000環境下で、Drive Copy4.0というソフトでHDD（マスター）からHDD（スレーブ）へ バックアップをとり、バックアップ先のHDDをマスターに変え、非表示から表示（アクティブ） に切替え（マニュアル通り）立ち上げると、イベントビューアのシステムで次のようなエラー が出てしまいます。HDDは2台とも40GBです。特別なATAコントローラも入れておりません。 ************************************************************************* イベントの種類: エラー イベント ソース: Disk イベント カテゴリ: なし イベント ID: 11 説明:ドライバは \Device\Harddisk0\DR0 でコントローラ エラーを検出しました。 イベントの種類: エラー イベント ソース: atapi イベント カテゴリ: なし イベント ID: 5 説明:\Device\Ide\IdePort0 でパリティ エラーが検出されました。 ************************************************************************* HDD関連のエラーということは分かるのですが、具体的に何がどのように悪いのか、 また、どのようにすれば直るのか分かりません。。。 起動毎にこのエラーが出ます。尚、今のところ、PCの操作上不具合な状況は出て いないのですが、やはりエラーなのでとても気になっています。 どなたかお分かりになる方がいらっしゃいましたらご教授の程お願い致します。

  • イベントビューアのエラー

    昨日からイベントビューアのシステムに変なエラーが起動時に出るんだけど、何これ？ 解決策ありましたら宜しくです。 OSはXP PRO SP-2 下記がエラーの詳細です。 イベントの種類:エラー イベント ソース:Service Control Manager イベント カテゴリ:なし イベント ID:7000 日付:2006/02/18 時刻:12:50:28 ユーザー:N/A コンピュータ:GA-8I955X-ROYAL 説明: SYSCtl サービスは次のエラーのため開始できませんでした: 指定されたファイルが見つかりません。 詳細な情報は、http://go.microsoft.com/fwlink/events.asp の [ヘルプとサポート センター] を参照してください。

  • VBAでエクセルの表をワードに入力

    Excel/Word2002使用です。 ワードへの入力を自動化するためにVBAを使用してエクセルの表をワードのテンプレートに渡したいのですが。 エクセルのA1：C8のセルに表として値が入力されています。 この表をコピーしてワードに貼り付けます。 ワード側は何も入力されていない文書ですが、 テンプレートが用意されているので、このテンプレートを指定してワードを立ち上げます。 ワードに貼り付けられる表はタブ区切りです。 具体的には下記コード3行目の”winword.exe”を具体的なテンプレートのパス名にしたいのですが・・・ Sub word貼り付け() Dim mytskID As Double Range("A1:C8").Copy 　mytskID = Shell("winword.exe", vbNormalFocus) 　Application.Wait Now + TimeValue("00:00:10") 　Application.SendKeys "^v", True 　Application.Wait Now + TimeValue("00:00:10") 　Application.SendKeys "%fa", True 　Range("A1").Copy 　AppActivate mytskID 　Application.SendKeys "^v", True 　Application.SendKeys "~", True 　Application.Wait Now + TimeValue("00:00:05") 　Application.SendKeys "%fx", True 　Application.CutCopyMode = False MsgBox "完了しました" End Sub なお、上記コードも教科書通りにしたはずなのですが、 何故か「名前をつけて保存」のSendKeys "%fa"のときだと思うのですが、 ワード側ではファイルメニューの罫線が反応してしまいます。 あわせてご教授いただければ幸いです。 よろしくお願いします。

  • ACCESS97 VBA のSendKeys

    以前Windows2000ProやWindowsXP Pro ACCESS97のVBAでShell関数を利用し 別のソフトを起動　その後Timerイベントで SendKeysを実行し別のソフトを操作していました。 しかし最近購入したパソコン(WindowsXP Pro)で 実行したところ別のソフトは起動しますが Sendkeysの操作が実行されません。 なぜでしょうか？ 以前のパソコンと最近購入したパソコンの違いは 以前のパソコンは購入時SP1で Windows UPdateでSP2にしたこと セキュリティーソフト(Nortonを使用しています)の バージョンが異なるぐらいです。 （ もちろん起動する別のソフトは、許可にしています） Sendkeysの操作が実行されるようにする 設定を教えてください。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する