スクリプトの作成２
＜Cacti起動後の初期設定 テンプレートの設定＞
スクリプトはWindows標準で使えるVBSで作成してみます。
まずは手始めにcactiサーバーのCPU情報を取得してみます。
Win32_Processorオブジェクトの各メソッドを取得します。
processor.vbsとして以下の内容を記述します。
1: '変数の設定
2: strComputer = "localhost" 'ログインするホスト
3: command="" '取得コマンド
4: field="" '取得オブジェクト
5: index=0 'インデックス
6: selected = -1 '取得したいオブジェクトのインデックス
7: Dim array(2) '状態情報保持用
8:
9: '引数の解析
10: Set args = Wscript.Arguments
11: If args.length > 0 Then
12: command = args(0)
13: If args(0) = "query" Then
14: field = args(1)
15: End If
16: If args(0) = "get" Then
17: field = args(1)
18: selected = args(2)
19: End If
20: End If
21:
22: 'WMIオブジェクトの作成
23: 'localhost
24: Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
25:
26: 'クエリ
27: Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor",,48)
28:
29: '状態表示
30: For Each objItem in colItems
31: array(0) = FormatNumber(index, 0, -1, 0, 0)
32: Select Case field
33: Case "Caption" array(1) = objItem.Caption
34: Case "CpuStatus" array(1) = objItem.CpuStatus
35: Case "Description" array(1) = objItem.Description
36: Case "LoadPercentage" array(1) = objItem.LoadPercentage
37: Case "Status" array(1) = objItem.Status
38: Case "ProcessorType"
39: Select Case objItem.ProcessorType
40: Case "1" array(1) = "Other"
41: Case "2" array(1) = "Unknown"
42: Case "3" array(1) = "CentralProcessor"
43: Case "4" array(1) = "MathProcessor"
44: Case "5" array(1) = "DSPProcessor"
45: Case "6" array(1) = "VideoProcessor"
46: End Select
47: End Select
48:
49: Select Case command
50: Case "index" Wscript.StdOut.Writeline array(0)
51: Case "query" Wscript.StdOut.Writeline array(0) & "!" & array(1)
52: Case "get" If selected = FormatNumber(index, 0, -1, 0, 0) Then Wscript.StdOut.Write array(1) End If
53: End Select
54: index = index + 1
55: Next
これをc:\cacti\scripts\WMIフォルダに格納します。
（WMIフォルダは新規に作成します）
動作テストをします。
コマンドプロンプトで作業します。
引数はコマンド、取得したいメソッド名、取得したい情報の番号としています。
コマンドは以下の種類があります。
shell> cd c:\cacti\scripts\WMI
shell> cscript //b processor.vbs index
0
1
shell> cscript //b processor.vbs query Caption
0!x86 Family 6 Model 14 Stepping 8
1!x86 Family 6 Model 14 Stepping 8
shell> cscript //b processor.vbs query LoadPercentage
0!2
1!0
shell> cscript //b processor.vbs query LoadPercentage
0!2
1!0
shell> cscript //b processor.vbs get LoadPercentage 0
2
リモートのサーバーの場合、24行目のWMIオブジェクトの生成部分が異なります。
リモートサーバー上にある管理者アカウントとパスワードを使って情報を取得する必要があります。
2: strComputer = "localhost" 'ログインするホスト
3: command="" '取得コマンド
↓
2: strComputer = "localhost" 'ログインするホスト
3: strUser = "administrator" 'ログインアカウント
4: strPassword = "admin" 'ログインパスワード
5: command="" '取得コマンド
10: Set args = Wscript.Arguments
11: If args.length > 0 Then
12: command = args(0)
13: If args(0) = "query" Then
14: field = args(1)
15: End If
16: If args(0) = "get" Then
17: field = args(1)
18: selected = args(2)
19: End If
20: End If
↓
10: Set args = Wscript.Arguments
11: strComputer = args(0)
12: strUser = args(1)
13: strPassword = args(2)
14: If args.length > 0 Then
15: command = args(3)
16: If args(3) = "query" Then
17: field = args(4)
18: End If
19: If args(3) = "get" Then
20: field = args(4)
21: selected = args(5)
22: End If
23: End If
23: 'localhost
24: Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
↓
23: 'localhost
24: 'Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
25: 'remote host
26: Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
27: Set objWMIService = objSWbemLocator.ConnectServer(strComputer, "root\CIMV2", strUser, strPassword)
動作テストをします。
shell> cd c:\cacti\scripts\WMI
shell> cscript //b processor.vbs remoteserver administrator password index
0
shell> cscript //b processor.vbs administrator password query LoadPercentage
0!2
shell> cscript //b processor.vbs administrator password query LoadPercentage
0!2
shell> cscript //b processor.vbs administrator password get LoadPercentage 0
2
ローカルサーバーへのアクセスはユーザーアカウント、パスワードを入力すると
shell> cscript //b processor.vbs localhost "" "" index
0
1
＜Cacti起動後の初期設定 テンプレートの設定＞
スクリプトはWindows標準で使えるVBSで作成してみます。
まずは手始めにcactiサーバーのCPU情報を取得してみます。
Win32_Processorオブジェクトの各メソッドを取得します。
processor.vbsとして以下の内容を記述します。
1: '変数の設定
2: strComputer = "localhost" 'ログインするホスト
3: command="" '取得コマンド
4: field="" '取得オブジェクト
5: index=0 'インデックス
6: selected = -1 '取得したいオブジェクトのインデックス
7: Dim array(2) '状態情報保持用
8:
9: '引数の解析
10: Set args = Wscript.Arguments
11: If args.length > 0 Then
12: command = args(0)
13: If args(0) = "query" Then
14: field = args(1)
15: End If
16: If args(0) = "get" Then
17: field = args(1)
18: selected = args(2)
19: End If
20: End If
21:
22: 'WMIオブジェクトの作成
23: 'localhost
24: Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
25:
26: 'クエリ
27: Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor",,48)
28:
29: '状態表示
30: For Each objItem in colItems
31: array(0) = FormatNumber(index, 0, -1, 0, 0)
32: Select Case field
33: Case "Caption" array(1) = objItem.Caption
34: Case "CpuStatus" array(1) = objItem.CpuStatus
35: Case "Description" array(1) = objItem.Description
36: Case "LoadPercentage" array(1) = objItem.LoadPercentage
37: Case "Status" array(1) = objItem.Status
38: Case "ProcessorType"
39: Select Case objItem.ProcessorType
40: Case "1" array(1) = "Other"
41: Case "2" array(1) = "Unknown"
42: Case "3" array(1) = "CentralProcessor"
43: Case "4" array(1) = "MathProcessor"
44: Case "5" array(1) = "DSPProcessor"
45: Case "6" array(1) = "VideoProcessor"
46: End Select
47: End Select
48:
49: Select Case command
50: Case "index" Wscript.StdOut.Writeline array(0)
51: Case "query" Wscript.StdOut.Writeline array(0) & "!" & array(1)
52: Case "get" If selected = FormatNumber(index, 0, -1, 0, 0) Then Wscript.StdOut.Write array(1) End If
53: End Select
54: index = index + 1
55: Next
これをc:\cacti\scripts\WMIフォルダに格納します。
（WMIフォルダは新規に作成します）
動作テストをします。
コマンドプロンプトで作業します。
引数はコマンド、取得したいメソッド名、取得したい情報の番号としています。
コマンドは以下の種類があります。
- index
- インデックスリストを表示します
- query
- 指定したメソッドの情報をインデックス値とともに列挙します
- get
- 指定されたメソッドのうち指定された番号の情報のみを表示します
shell> cd c:\cacti\scripts\WMI
shell> cscript //b processor.vbs index
0
1
shell> cscript //b processor.vbs query Caption
0!x86 Family 6 Model 14 Stepping 8
1!x86 Family 6 Model 14 Stepping 8
shell> cscript //b processor.vbs query LoadPercentage
0!2
1!0
shell> cscript //b processor.vbs query LoadPercentage
0!2
1!0
shell> cscript //b processor.vbs get LoadPercentage 0
2
リモートのサーバーの場合、24行目のWMIオブジェクトの生成部分が異なります。
リモートサーバー上にある管理者アカウントとパスワードを使って情報を取得する必要があります。
2: strComputer = "localhost" 'ログインするホスト
3: command="" '取得コマンド
↓
2: strComputer = "localhost" 'ログインするホスト
3: strUser = "administrator" 'ログインアカウント
4: strPassword = "admin" 'ログインパスワード
5: command="" '取得コマンド
10: Set args = Wscript.Arguments
11: If args.length > 0 Then
12: command = args(0)
13: If args(0) = "query" Then
14: field = args(1)
15: End If
16: If args(0) = "get" Then
17: field = args(1)
18: selected = args(2)
19: End If
20: End If
↓
10: Set args = Wscript.Arguments
11: strComputer = args(0)
12: strUser = args(1)
13: strPassword = args(2)
14: If args.length > 0 Then
15: command = args(3)
16: If args(3) = "query" Then
17: field = args(4)
18: End If
19: If args(3) = "get" Then
20: field = args(4)
21: selected = args(5)
22: End If
23: End If
23: 'localhost
24: Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
↓
23: 'localhost
24: 'Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
25: 'remote host
26: Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
27: Set objWMIService = objSWbemLocator.ConnectServer(strComputer, "root\CIMV2", strUser, strPassword)
動作テストをします。
shell> cd c:\cacti\scripts\WMI
shell> cscript //b processor.vbs remoteserver administrator password index
0
shell> cscript //b processor.vbs administrator password query LoadPercentage
0!2
shell> cscript //b processor.vbs administrator password query LoadPercentage
0!2
shell> cscript //b processor.vbs administrator password get LoadPercentage 0
2
ローカルサーバーへのアクセスはユーザーアカウント、パスワードを入力すると
SWbemLocator: ユーザー資格情報はローカル接続には使用できませんとはねられてしまうので、アカウント、パスワードに空文字列""を指定します。
shell> cscript //b processor.vbs localhost "" "" index
0
1
＜Cacti起動後の初期設定 テンプレートの設定＞
2007年11月09日(金) 01:06:27 Modified by slt33333