Ad Widget

**hornos** · 28-09-2006, 14:09

Hi,

No one is willing to share ?

**RohrbaGe** · 28-09-2006, 18:34

I´m monitoring several Windows servers,
but I just use the standard functions that are delivered with zabbix.
That seems to be enought in the most cases, only special thing is monitoring the HP raid system on hardware errors with snmp.

Ro

**peter_field** · 29-09-2006, 04:28

Software RAID status

I have been annoyed for some time now about not being able to collect information about Windows software RAID status. I found this VB script the other day, works a treat.

Code:

' ********************************************************************
' ** Check the status of Windows Software RAID                      **
' ********************************************************************
'
' Version 1.02
'
' 11/10/2006 Peter Field
' - Added return code 4: system doesn't have WSH 5.6 installed.
'
' 14/09/2006 Peter Field
' - Updated to report "General error reading configuration" if diskpart
'   doesn't return any data (i.e. diskpart doesn't exist on Win2000)
' - Disabled the initial check for "Mirror" or "RAID-5"
' - Changed return value to a number
'
' Based off original script by Oliver Hookins, Anchor Systems
' http://www.shipyard.com.au/articles/sysadmin/windows-software-raid-check.py
'
' Return value (status of all volumes):
' 0 = Healthy
' 1 = Rebuilding
' 2 = Failed
' 3 = Error reading configuration
' 4 = Windows Scripting Host is old (requires 5.6)
'

Option Explicit

Dim WshShell, oExec
Dim Line, RE1, RE2, RE3
Dim Failure

Failure = 0

If Wscript.Version < 5.6 Then
    ' WSH 5.6 is required for WScript.Shell.Exec
    Failure = 4
    Wscript.Echo(Failure)
    WScript.Quit(Failure)
End If

Set WshShell = CreateObject("WScript.Shell")

' Execute the DISKPART program and grab the output
Set oExec = WshShell.Exec("%comspec% /c echo list volume | diskpart")

' Set up some regular expression objects
'Set RE1 = New RegExp
Set RE2 = New RegExp
Set RE3 = New RegExp
'RE1.Pattern = "Mirror|RAID-5"
RE2.Pattern = "Failed|(At Risk)"  ' At Risk indicates errors have been reported for a disk and it may need to be reactivated.
RE3.Pattern = "Rebuild"

If oExec.StdOut.AtEndOfStream Then
    Failure = 3
Else
    While Not oExec.StdOut.AtEndOfStream
        Line = oExec.StdOut.ReadLine
    
        ' Tests for Mirrored or RAID-5 volumes
        'If RE1.Test(Line) Then
    
          ' Tests for Failed RAID volumes
          If RE2.Test(Line) Then
            If Failure < 2 Then Failure = 2
    
          ' Tests for Rebuilding volumes
          ElseIf RE3.Test(Line) Then
            If Failure = 0 Then Failure = 1
    
          End If
        'End If
    WEnd
End If

' Print out the appropriate test result
Wscript.Echo(Failure)
WScript.Quit(Failure)

Save it as 'raidchk.vbs' in your Zabbix agent folder, put a line in your agent config:
UserParameter=uRaidChk,cscript.exe /nologo "c:\zabbix\raidchk.vbs"

then setup an item in Zabbix, set the key to 'uRaidChk' and data type numeric. I would set a high update interval as it is a bit slow to run, I have my update interval currently at 86400. Then create a trigger like:
{Windows_t:uRaidChk.last(0)}>0

On Windows 2000, you will need to download the diskpart utility and place it in the system32 directory, 2003 has this out of the box.

[edit]You will also require Windows Scripting Host 5.6 or better, the script has been updated to return a value of 4 if it is not installed.[/edit]

**peter_field** · 29-09-2006, 04:39

Windows services

It is handy to know any Windows services that are set to start automatically that are no longer running. This script will report a list of auto start services not running.

Code:

Option Explicit
' -------------------------
' Auto Services Not Running
' -------------------------
'
' Version 1.00
' 11 August 2006, Peter Field
'
' Original script source unknown.
'
' Displays a list of Windows services that are set to start Automatically,
' but are not currently running.
'
Dim strComputer, wbemServices, wbemObjectSet, wbemObject, strMessage
On Error Resume Next
Set wbemServices = GetObject("winmgmts:\\.")
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Service")
strMessage=""
For Each wbemObject In wbemObjectSet
  if wbemObject.StartMode = "Auto" Then
      if wbemObject.State <> "Running" Then
'       Wscript.Echo """" & wbemObject.Name & """,""" & wbemObject.State & """,""" & wbemObject.DisplayName & """"
        If strMessage<>"" Then strMessage=strMessage & ", "
        strMessage=strMessage & wbemObject.DisplayName
      End If
  End If
Next
If strMessage="" Then
	Wscript.Echo "None"
Else
	Wscript.Echo strMessage
End If

Save it as 'Auto-Services-Not-Running.vbs' in your Zabbix agent folder. Put a line in your agent config like:
UserParameter=uServicesNotRunning,cscript.exe /nologo "c:\zabbix\Auto-Services-Not-Running.vbs"

Then create an item in Zabbix:
key: uServicesNotRunning
type: character
update interval: high (mine is 14400 as the script is slow)

Then create a trigger in Zabbix:
Expression: {Windows_t:uServicesNotRunning.str(None)}=0

You might want to change your action to include
Value: {{HOSTNAME}:{TRIGGER.KEY}.last(0)}
in the message so you can see the services not running right in the alert email.

Enjoy.

**dhackd** · 05-10-2006, 18:13

Check Service Status

Here is a little code I put together to Check Individual Service Status. This could be used for any service running on a machine.

Code:

-----------------------------------------------------------------------
Add to: zabbix_agentd.conf
-----------------------------------------------------------------------

UserParameter=svc-MSSQLSERVER,cscript.exe c:\zabbix\CheckServiceStatus.vbs COMPUTERNAME MSSQLSERVER //nologo

-----------------------------------------------------------------------
CheckServiceStatus.vbs
-----------------------------------------------------------------------
set args = WScript.Arguments
num = args.Count

if num = 0 then
   WScript.Echo "Usage: [CScript | WScript] CheckServiceStatus.vbs <computername> <servicename>"
   WScript.Quit 1
end If

   computername = args.Item(0)
	 servicename = args.Item(1)

wscript.stdout.write GetService(computername, servicename)

Function GetService(strComputer, strSrvce)

On Error Resume Next

Dim objWMIService
Dim colListOfServices
Dim objService

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
    ("Select DisplayName,State from Win32_Service Where Name = '" & strSrvce & "'")

If Err.Number <> 0 Then
  GetService = "Stopped"
  Err.Clear
Else
  For Each objService in colListOfServices
   GetService = "Running"
   strState = objService.State
  Next
End If
 
End Function

-----------------------------------------------------------------------
Setup new item in Zabbix
-----------------------------------------------------------------------

Description: svc-MSSQLSERVER
Type: ZABBIX agent (active)
Key: svc-MSSQLSERVER
Type of information: Character 	
Update interval (in sec): 30 	
Keep history (in days): 7
Keep trends (in days): 365
Status: Monitored 	
Show value throw map: As is
Applications: -none-

Let me know if you have any issues.

dhackd

**peter_field** · 14-10-2006, 09:00

Indervidual Windows Services

You can monitor indervidual Windows services using a standard agent item. I only created a script because I wanted to know out of all of the services on the system which are meant to be running, which ones aren't?

However, handy script never-the-less, and thanks for the input.

From: http://www.zabbix.com/manual/v1.1/config_items.php

service_state[*]
State of service. Parameter is service name. 0 - running 1 - paused 2 - start pending 3 - pause pending 4 - continue pending 5 - stop pending 6 - stopped 7 - unknown 255 - SCM communication error Parameter must be real service name as it seen in service properties under "Name:", not service display name!

**qix** · 23-10-2006, 15:38

XWall polling

Hello,

I have adjusted a script to retrieve values from the Xwall mail filtering application (http://www.dataenter.co.at/products/xwall.htm)

It is based on the MRTG data collection mentioned here.You will need to slightly modify the Xwall configuration, so please have a look at it.

Values for the output are mentioned in the script, these include queue sizes and virus counts, etc.

Code:

' Parameters:

' 0 ?

'

' 1 InboundSMTPQueueCount

' 2 OutboundSMTPQueueCount

'

' 3 InboundSMTPMsgCount

' 4 OutboundSMTPMsgCount

' 5 InboundSMTPByteCount

' 6 OutboundSMTPByteCount

' 7 InboundSMTPConnectionCount

' 8 OutboundSMTPConnectionCount

'

' 9 InboundPOP3MsgCount

' 10 OutboundPOP3MsgCount

' 11 InboundPOP3ByteCount

' 12 OutboundPOP3ByteCount

' 13 InboundPOP3ConnectionCount

' 14 OutboundPOP3ConnectionCount

'

' 15 InboundExchQueueCount

' 16 OutboundExchQueueCount

'

' 17 InboundExchByteCount

' 18 OutboundExchByteCount

' 19 InboundExchMsgCount

' 20 OutboundExchMsgCount

' 21 InboundExchConnectionCount

' 22 OutboundExchConnectionCount

'

' 23 OutboundSMTPRate1

' 24 InboundSMTPRate1

'

' 25 InboundSMTPMsgBlockCount

' 26 InboundSMTPMsgSpamCount

'

' 27 InboundSMTPGreyCount

' 28 NotUsed

'

' 29 InboundVirusCount

' 30 OutboundVirusCount







Option Explicit



Dim oWinsock 'As OSWINSCK.Winsock

Dim sURL 'As String

Dim sPage 'As String

Dim sServer 'As String

Dim nPort 'As Long

Dim sBuffer 'As String

Dim sSource 'As String

Dim bClose 'As Boolean

Dim sLen 'As Long 

Dim sArr

Dim sHop

Dim sLeft

Dim xArray

Dim a

Dim Param





'initialize variables

sSource = "": bClose = False: sLen = 0: sHop = 1: a = 0

sPage = "": sServer = "127.0.0.1": nPort = 25: sBuffer = ""

Param = WScript.Arguments(0)





If sServer <> "" Then

  Set oWinsock = CreateObject("OSWINSCK.Winsock")

  Wscript.ConnectObject oWinsock, "oWinsock_"

  oWinsock.Connect CStr(sServer), CLng(nPort)

Else

  sSource "Invalid URL"

  bClose = True

End If





Sub oWinsock_OnClose()

  oWinsock.CloseWinsock

  if InStr (1,sBuffer, ",",0) < 0 Then

  Wscript.Echo sSource

  End If

  bClose = True

  Set oWinsock = Nothing

End Sub



Sub oWinsock_OnConnect()

  oWinsock.SendData "HELO XWall-stat" & vbCrLf

  Wscript.Sleep 1

  oWinsock.SendData "XBMRTG" & vbCrLf

  Wscript.Sleep 1

  oWinsock.SendData "quit" & vbCrLf

End Sub



Sub oWinsock_OnDataArrival(ByVal bytesTotal)

  oWinsock.GetData sBuffer

  if InStr(1,sBuffer, ",",0) > 0 Then

  sLen = Len(sBuffer) - 4

  sSource = (Right(sBuffer,sLen))

  End If

End Sub



Sub oWinsock_OnError(ByVal Number, Description, _

    ByVal Scode, ByVal Source, ByVal HelpFile, _

    ByVal HelpContext, CancelDisplay)

'  Wscript.Echo Number & ": " & Description

  oWinsock.CloseWinsock

  bClose = True

End Sub



While Not bClose

  Wscript.Sleep 1

Wend



if sSource = "" Then

   sSource = "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"

End if



if Param <> "" Then

 xArray = Split(sSource,",")

 Wscript.echo xArray(Param)

Else

 Wscript.echo 0

End If

The script is depended on the OstroSoft Winsock Component because it needs to connect over tcp port 25 to the Xwall service.

I have made the following agent config changes to get it all running:

Code:

UserParameter=xwall[InboundSMTPQueueCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 1
UserParameter=xwall[OutboundSMTPQueueCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 2
UserParameter=xwall[InboundSMTPMsgCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 3
UserParameter=xwall[OutboundSMTPMsgCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 4
UserParameter=xwall[InboundSMTPByteCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 5
UserParameter=xwall[OutboundSMTPByteCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 6
UserParameter=xwall[InboundSMTPConnectionCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 7
UserParameter=xwall[OutboundSMTPConnectionCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 8
UserParameter=xwall[InboundExchQueueCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 15
UserParameter=xwall[OutboundExchQueueCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 16
UserParameter=xwall[InboundExchByteCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 17
UserParameter=xwall[OutboundExchByteCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 18
UserParameter=xwall[InboundExchMsgCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 19
UserParameter=xwall[OutboundExchMsgCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 20
UserParameter=xwall[InboundExchConnectionCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 21
UserParameter=xwall[OutboundExchConnectionCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 22
UserParameter=xwall[InboundSMTPRate1],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 23
UserParameter=xwall[OutboundSMTPRate1],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 24
UserParameter=xwall[InboundSMTPMsgBlockCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 25
UserParameter=xwall[InboundSMTPMsgSpamCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 26
UserParameter=xwall[InboundSMTPGreyCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 27
UserParameter=xwall[InboundVirusCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 29
UserParameter=xwall[OutboundVirusCount],cscript /nologo "C:\Program Files\Zabbix Agent\xwallpoller.vbs" 30

I based the script on something i found on the internet a while back (example script), but i can't remember where it's from so credits go to whomever wrote the original. (If someone knows, please let me know so I can edit this post to include the source).

Happy polling!!

[EDIT] This is the source of the original script: http://www.ostrosoft.com/oswinsck/oswinsck_vbscript.asp [/EDIT]
[EDIT2] I found out the script hang when XWALL was not responding for some reason witch in turn caused the agent to hang as well while it was waiting for response. This hammered away on resources and caused various troubles with our main Xwall server. I have updated the script in this post so that the script will return a value of zero when it doesn't get a response. Not a very glamorous solution, but it works like a charm!

[/EDIT2]

**RobertS** · 13-11-2006, 12:47

Days since last Windowsupdate

I use this script to check if a Windows host was not updated since x days. I do this by checking the date of "updspapi.log" in c:\windows or c:\winnt

Code:

'==========================================================================
' uLastWinUpdate.vbs
'
' 2006/11/07
' Robert Stadler
'
' Display days since last windows update, if updspapi.log not found it returns 0
'
'==========================================================================
Option Explicit
On Error Resume Next

Dim oFSO, latestDate

Set oFSO = CreateObject("scripting.FilesystemObject")

latestDate = Date
If oFSO.FileExists("c:\windows\updspapi.log") Then 
	latestDate = oFSO.GetFile("c:\windows\updspapi.log").DateLastModified
ElseIf oFSO.FileExists("c:\winnt\updspapi.log") Then
	latestDate = oFSO.GetFile("c:\winnt\updspapi.log").DateLastModified
End If

Wscript.Echo DateDiff("d", latestDate, Date)

**ohookins** · 10-01-2008, 02:25

Hi,

I'm the original author of the Windows software RAID check script. Has anybody run into problems running this on Windows 2003 x64? It seems that the script can't find diskpart.exe even though it is there and file security doesn't seem to be a problem (which I've confirmed with object access auditing).

Putting diskpart.exe elsewhere (like C:\WINDOWS) allows it to run fine. There seems to be some sort of bizarre security setting or (god forbid) bug in Windows causing this to not work. Any ideas?

By the way, thanks Peter for the improvements to the script, the original version was rather lacking in safety checks.

**qix** · 27-02-2008, 15:58

Update windows update script.

Hi RobertS,

I edited your script because when none of the checked files exist, it displays 0 days which is off course inaccurate.

Code:

'==========================================================================
' uLastWinUpdate.vbs
'
' 2006/11/07
' Robert Stadler
'
' 2008/02/27
' Improved by Raymond Kuiper to report ZBX_NOTSUPPORTED when file not exists.
' 
' Display days since last windows update, if updspapi.log not found it returns 0
'
'==========================================================================
Option Explicit
On Error Resume Next

Dim oFSO, latestDate, msg

Set oFSO = CreateObject("scripting.FilesystemObject")

latestDate = Date
If oFSO.FileExists("c:\windows\updspapi.log") Then 
	latestDate = oFSO.GetFile("c:\windows\updspapi.log").DateLastModified
	msg = DateDiff("d", latestDate, Date)
ElseIf oFSO.FileExists("c:\winnt\updspapi.log") Then
	latestDate = oFSO.GetFile("c:\winnt\updspapi.log").DateLastModified
	msg = DateDiff("d", latestDate, Date)
Else msg = "ZBX_NOTSUPPORTED"
     
End If

Wscript.Echo msg

Thanks a lot for the script, it is very handy!

**fast.ryder** · 13-04-2008, 21:13

Perfmon.exe - the best tool

Hello, everyone!

I have been using Zabbix for a short period of time, but with great success regarding monitoring Windows based servers.

For me, almost everything can be monitored from Performance Monitor; all you have to do is start "perfmon.exe" and add counters to the screen. In the properties page of each counter, simply copy the counter's name to Zabbix as a new item, type "zabbix agent" and let Zabbix server do the rest of the work.

Now, of course not everything and every type of information can be obtained from Performance Monitor, and in that case the scripts provided here by the rest of all of you can really help a lot. Software-raid is exactly one of those cases.

You can try, p.ex., to monitor a SQL Server instance from Perfmon, since Microsoft has (incredibly...) been nice enough to provide free performance counters even for the free versions like MSDE or SQL Express.

Cheers,

Ivo Pereira
IT Consultant
Portugal

**alex400** · 14-04-2008, 11:53

monitor Windows NIC

We’ll be back soon!

http://www.zabbix.com/forum/showthread.php?t=8806

**jojo** · 09-05-2008, 05:55

check whether an application is running:

Save this file as somethingmeaningful.vbs:

Code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'Database.exe'")

If colProcesses.Count = 0 Then
    Wscript.echo "0"
Else
    Wscript.echo "1"
End If

service state and proc_cnt do not allow you to check if an application with no services attached to it is running.

Create a new item in zabbix, type should be set to numeric integer, throw map should be set to service state and voila.

**feighong** · 26-05-2008, 15:40

Hi Guys,
Need a big hand hand I guess and I would appreciate if someone does. Looks like this is easy for you. I just started to setup zabbix v1.4.5.

I was asked by my manager to install zabbix in one of our server but the account name/user is not 'zabbix' it's a different one. Do i need to do additional config? Incase, what module in PHP or which conf file do i need to change and what changes should be made?

I'm also having a hard time configuring the server. I have no idea what are the UNIX commands are so i'm completely blind about this staff.

I have already installed php, apache, MySQL, C complier, net-snmp, GNU make, and libcurl.

I have configured php and apache to meet the requirements. Database, tables and all default values in the tables are already there. But i'm having diffuculty understanding which path do i need to load zabbix_server.conf. Did run the zabbix_agentd.conf by using the zabbixwin32 but I'm receiving errors when using command zabbix_agentd.exe --config c:\zabbix_agentd.conf install. I already forgot the error message but was able to unstall the service.

I really need assistance. Thanks a lot in advance! c'',)

BTW, the server has windows on it and I'm using wampserver 2.0 to manage php, apache, mysql services.

Ad Widget

Post your Windows examples here

Post your Windows examples here

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment