32 lines
762 B
Plaintext
32 lines
762 B
Plaintext
|
' agentname.vbs
|
||
|
|
'
|
||
|
|
' Pandora FMS external command sample for 'agent_name_cmd' token.
|
||
|
|
' This script returns agent name like 'hostname_IPaddress'.
|
||
|
|
' (c) 2014 Junichi Satoh <junichi@rworks.jp>
|
||
|
|
' ------------------------------------------
|
||
|
|
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Dim objNetWork
|
||
|
|
Dim oClassSet
|
||
|
|
Dim oClass
|
||
|
|
Dim oLocator
|
||
|
|
Dim oService
|
||
|
|
|
||
|
|
Set objNetWork = WScript.CreateObject("WScript.Network")
|
||
|
|
|
||
|
|
Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
|
||
|
|
Set oService = oLocator.ConnectServer
|
||
|
|
Set oClassSet = oService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration")
|
||
|
|
|
||
|
|
For Each oClass In oClassSet
|
||
|
|
|
||
|
|
If oClass.IPEnabled = True Then
|
||
|
|
|
||
|
|
Wscript.StdOut.WriteLine objNetWork.ComputerName & "_" & oClass.IPAddress(0)
|
||
|
|
Exit For
|
||
|
|
|
||
|
|
End If
|
||
|
|
|
||
|
|
Next
|