aij[beta]

日々の芥

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
--.--.-- --:-- | スポンサー広告 | トラックバック(-) | コメント(-) |
Serverの監視ツール、ActiveXpertsのテストが続く。
まず基本的な、CPU、Memory、Diskの監視。続いて、ドライブの空き容量の監視は標準ツールでは管理共有を使用してディスク容量を得るのだが、セキュリティ上の理由から管理共有を停止しているので、VB Scriptを作成。

WMIのWin32_LogicalDiskを使用した。

Dim colDisks, objDisk, freeDisk

CheckFreeSpaceWMI = retvalUnknown ' Default return value
Set colDisks = objWMIService.ExecQuery( "Select * from Win32_LogicalDisk" )
For Each objDisk In colDisks
If (objDisk.Name = (strDisk)) then
freeDisk=CStr(Fix(objDisk.FreeSpace/1024/1024))
If (objDisk.FreeSpace / objDisk.Size) < 0.1 Then
CheckFreeSpaceWMI = False
strSysExplanation = "空き容量は10%未満です[" & strDisk & freeDisk & "MB]"
Exit Function
else
CheckFreeSpaceWMI = True
strSysExplanation = "空き容量は問題ありません[" & strDisk & freeDisk & "MB]"
Exit Function
End If
End If
CheckFreeSpaceWMI = retvalUnknown
strSysExplanation = "Diskが見つかりません [" & strDisk & "]"
Next


これをActiveXpertsで使えるように、Functionにして登録した。
vbsのダウンロード

30秒に一回、チェックするようにして、40台のServerを登録。まとめて登録できないので、一仕事になった。
スポンサーサイト












管理者にだけ表示

トラックバックURL↓
http://aij.blog80.fc2.com/tb.php/257-a73f7492

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。