Windows2003サーバのリソース監視の仕方と知識について教えてください

このQ&Aのポイント
  • Windows2003サーバのリソース監視について教えてください。リソースの監視は、どの状態が危険で問題となるのかを知るために行われます。コミットチャージが増えると問題となることがありますが、物理メモリや仮想メモリの定義なども調べて理解を深めたいです。
  • リソースの監視をする際、常に監視することはできません。自分のPCからサーバーを監視するために、VBScriptなどのプログラムを使用することがあります。ただし、使い方がわからない場合もあります。
  • 上記のVBScriptのコードは、Windows2003サーバのコミットチャージを表示するものです。ただし、うまく動作しない場合もあるので注意が必要です。
回答を見る
  • ベストアンサー

Windows2003サーバのリソース監視が理解出来なくて・・・・悩んでいます。

Windows2003サーバのリソース監視の仕方及び知識についておしえてください(いまいち調べてみても理解が進みません・・・) サーバのリソースの監視ですが、簡単に言うとどんな状態になったら危険というか問題があるということになるのでしょうか? コミットチャージが増えるとよくないということを聞いたことがあるのですが・・・ 物理メモリだとか仮想メモリだとか用語の定義も私の中ではいまいちです。 平易に解説いただけると大変うれしいです。 監視する際ずっと見ているわけにもいかないですよね。 AD上にあるサーバーとしてVBScriptなどで自分のPCから見れればいいかなとは思います。 こんなプログラムとかを見つけたのですが・・・うまく使えなかったです。。。 Set OSInfos = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_OperatingSystem") For Each OSInfo In OSInfos Wscript.Echo "コミットチャージ: " & int((OSInfo.SizeStoredInPagingFiles - OSInfo.FreeSpaceInPagingFiles) / 1024) & "MB" Next

質問者が選んだベストアンサー

  • ベストアンサー
  • Toshi0230
  • ベストアンサー率51% (836/1635)
回答No.1

> サーバのリソースの監視ですが、簡単に言うとどんな状態になったら危険というか問題があるということになるのでしょうか? 必要なサービスを、必要なパフォーマンスで提供できなくなるとまずいわけです。ただ、具体的にどの程度だとまずいのか、というのはサービスの内容や使用環境によって先差万別なので一概には言えません。 > 物理メモリだとか仮想メモリだとか用語の定義も私の中ではいまいちです。 用語を勉強する際は、コンピュータの構造について理解しておくと覚えやすいです。まずは、コンピュータの構造について説明してある書籍などで知識を蓄えるのがよろしいかと。

関連するQ&A

  • エクセルVBAでPCシャットダウン

    ネットを検索してたら、PCをシャットダウンさせるというコード Set objSystemSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").InstancesOf("Win32_OperatingSystem") For Each objSystem In objSystemSet objSystem.Win32Shutdown 1 Next をみつけたので以下のように試してみました。 Sub TEST() Application.OnTime Now + TimeValue("0:05:00"), "PC_ShutDown" End Sub Sub PC_ShutDown() Set objSystemSet = _ GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}") _ .InstancesOf("Win32_OperatingSystem") For Each objSystem In objSystemSet objSystem.Win32Shutdown 1 Next End Sub ところが実行すると、ログオフし、画面に、「コンピュータの電源を切ることができます」と表示されるのですが、そこでとまってしまいます。 PCの電源ボタンも長押しないときかなくなります。 自動で電源は切れないのでしょうか?

  • サーバのメモリ使用量とかを確認したい

    strComputer = "atl-dc-01" Set wbemServices = GetObject("winmgmts:\\" & strComputer) Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration") For Each wbemObject In wbemObjectSet WScript.Echo "物理メモリの合計 (kb): " & wbemObject.TotalPhysicalMemory Next こういったプログラムを見つけたのですが・・・Getobjectで書き込みが出来ないエラーが出ます。 調べた結果おそらく権限がないことがいけないかと思いますが・・・どうやって結果を得られるのかわかりません。 あとコミットチャージとかも取得で切ればいいのですが・・・よろしくお願いします。

  • 任意のプログラムを終了させてからシャットダウンプログラムを走らせるには?

    すいませんが、質問させていただきます。 現在Windows XPにて他のサイトにあった「poweroff.vbs」 --------- Set objSystemSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").InstancesOf("Win32_OperatingSystem") For Each objSystem In objSystemSet objSystem.Win32Shutdown 8 Next) --------- を、使用しタスクで自動シャットダウンをしていますが、 シャットダウンをさせるより先に任意のプログラム(.exe)を終了させてから上記の「poweroff.vbs」を実行するにはどうしたらいいでしょうか? このプログラムに何か記述を追加すれば良いのか、そのほかの方法があるのか、わかりません。ご回答をお願い致します。 因みに私はプログラムに関しては無知なので、わかりやすくお願い致します。

  • リモートコンピュータの再起動を行うWScript

    リモートコンピュータの再起動を行うWScriptを作成しています スクリプトを実行すると、リモート先のマシンがXP(32bit)では実行されるのですが、windows7(64bit)では「書き込みできません:’GetObject’」とエラーが表示されスクリプトを正常に動作させることができませんでした。 windows7で動作しない原因がわかるかたおりましたら、ご教示のほどよろしくお願いいたします。 --------------------------------------------------- ....(省略) for i=0 to arg.count-1 set obj = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//host-" & arg(i)) obj.ExecQuery("select * from Win32_OperatingSystem where Primary=true").Reboot() next --------------------------------------------------- ※ソースはここから拾ってきました http://technet.microsoft.com/ja-jp/library/bb742445.aspx#ID0EQFAC

  • windowsサーバリソース監視

    windowsserver2003のリソース監視をしたいのですが、フリーソフトで実行できるものはありませんでしょうか。 サーバ自身の警告はいろいろ試したのですが、上手くメールが飛ばせませんでした。 何か他の代替策でメールの警告などがあげられる方法を教えていただければと思います。 監視対象はCPU、メモリ、HDDのみです。

  • 0×80041003 のエラー

    0×80041003のエラーがイベントビュアーに出ていて、検索しましたら http://www.sql-master.net/articles/SQL749.html がヒットしました。 書いてあるように、 strComputer = “.” Set objWMIService = GetObject(“winmgmts:” _ & “{impersonationLevel=impersonate}!\\” _ & strComputer & “\root\subscription”) Set obj1 = objWMIService.Get(“__EventFilter.Name=’BVTFilter’”) set obj2set = obj1.Associators_(“__FilterToConsumerBinding”) set obj3set = obj1.References_(“__FilterToConsumerBinding”) For each obj2 in obj2set WScript.echo “Deleting the object” WScript.echo obj2.GetObjectText_ obj2.Delete_ next For each obj3 in obj3set WScript.echo “Deleting the object” WScript.echo obj3.GetObjectText_ obj3.Delete_ next WScript.echo “Deleting the object” WScript.echo obj1.GetObjectText_ obj1.Delete_ を、新しいテキストドキュメントにページからそのままコピーして貼り付け、ファイルメニューで名前を付けて保存で、[新しい.vbs]と名前を変換して保存、保存した物をクリックすると エラー:文字が正しくありません コード:800A0408 ソース:Microsoft VBScriptコンパイルエラー と出ます、どうすれば良いのでしょうか。

  • vbscriptについて

    vbsのファイルをダブルクリックするとシャットダウン・再起動・ログオフできるプログラムをネットで見つけました。 でも、休止状態にするプログラムがなかったのでどなたか知っていたら教えてください。 ちなみに再起動のプログラムです↓ ------------------------------------------------- Option Explicit Dim objShut ' シャットダウンオブジェクト Dim objOS ' オペレーティングシステムオブジェクト Dim objSystem ' オペレーティングシステムオブジェクト Set objShut = GetObject("winmgmts:{impersonationLevel = impersonate, (Shutdown)}") Set objOS = objShut.InstancesOf("Win32_OperatingSystem") For Each objSystem In objOS objSystem.Win32Shutdown 2 Next --------------------------------------------------

  • リモートPCの情報取得について

    Windows2000から下のVBSを実行しますがうまくデータを取得できません。 取得先のPCもWinodows2000です。.NET Framework 1.1以上です。 ファイヤーウォールの類もありません。 どなたか教えて下さい。 ------------------------------------------------------ strComputer = "192.168.2.●●" Set wbemServices = GetObject("winmgmts:\\" & strComputer) Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration") For Each wbemObject In wbemObjectSet WScript.Echo "物理メモリの合計 (kb): " & wbemObject.TotalPhysicalMemory Next

  • WSHからのコマンドプロンプト実行

    お世話になります。 OS:Windows7 Professional SP1 UAC:既定(上から2番目) 上記の条件で、WSHからコマンドプロンプトを管理者権限で立ち上げ、 ファイルをコピーするスクリプトを作成したいのですが・・・ 当方あまり知識が無く困り果ててる次第でございます。 *************************************************************************** Do while WScript.Arguments.Count = 0 and WScript.Version >= 5.7 Set wmi = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set os = wmi.ExecQuery("SELECT *FROM Win32_OperatingSystem") For Each value in os if left(value.Version, 3) < 6.0 then exit do Next Set sha = CreateObject("Shell.Application") sha.ShellExecute "cmd.exe", """" & WScript.ScriptFullName & """ uac", "", "runas" WScript.Quit loop *************************************************************************** 以上のコマンドでUsersからでも管理者権限でプロンプトが立ち上がる所までは確認しています。 このあと、プロンプト上で    "Copy D:\A.txt C:\Windows\System32 /y" を自動的に実行してくれるようなスクリプトにしたいのですが、どう記述すればよいのでしょうか? なるべくユーザーに負担をかけない形で、スクリプト一発で処理できたらと考えていますが・・・ ご指導よろしくお願い致します。

  • スクリプト:特権を保有していません

    Const wshYes = 6 Const wshNo = 7 Const wshYesNoDialog = 4 Const wshQuestionMark = 32 Set objShell = CreateObject("Wscript.Shell") intReturn = objShell.Popup("再起動処理キャンセルしますか?(60秒以内)", _ 60, "再起動処理開始", wshYesNoDialog + wshQuestionMark) If intReturn = wshYes Then Wscript.Echo "再起動処理をキャンセルしました" ElseIf intReturn = wshNo Then Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Win32Shutdown(6) Next Wscript.Echo "再起動処理を実行しています。" Else Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Win32Shutdown(6) Next Wscript.Echo "タイムアウトです。再起動処理を実行しています。" End If とスクリプトをいただきましたが、特権を保有していません。コード 80041062 が表示されてしまいます。あいにく、ど素人のため特権を付与してあげる方法がわかりません。もしお分かりになるか いらっしゃいましたら、ご教示をお願いいたします。