[nagios - norton server] De externe servercomputer best...

[Verwijderd]

Beste Tweakers,

Een aantal dagen/weken heb ik hier ook een topic gestart omdat mijn Nagios monitoring systeem niet correct startte. Nu werkt alles gelukkig, en kan al verschillende onderdelen monitoren.

Echter ondervind ik nog problemen tijdens het monitoren van de Norton updates. Deze plugin controleert of de updates van de Norton server overeen komen met de updates die Norton aanbiedt.

Meer informatie over deze plugin is te vinden op: http://www.nagiosexchange...tnagext_pi1[page]=30%3A10

Na alles "goed" geconfigureerd te hebben verschijnt in Nagios de volgende melding.

code:

C:\bin\SymanticChk.vbs(41, 1) Runtimefout Microsoft VBScript: De externe servercomputer bestaat niet of is niet beschikbaar: 'GetObject'

Het SymanticChk.vbs filetje heeft de volgende inhoud:

code:

Const intOK = 0
Const intWarning = 1
Const intCritical = 2
Const intUnknown = 3

const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
strSecondaryServer = "."
Set StdOut = WScript.StdOut


Set ScriptArg=Wscript.Arguments

strPrimaryServer=ScriptArg(0)
'strSecondaryServer = ScriptArg(1)

'// Get Primary Version
SymanticPrimary=getSymanticVer(strPrimaryServer)


'// Get Secondary Version
SymanticSecondary=getSymanticVer(strSecondaryServer)


if SymanticPrimary=SymanticSecondary Then
}
    Wscript.Echo "Server " & strPrimaryServer & " is at virus def " & SymanticPrimary & " and the local Server is at virus def " & SymanticSecondary
    wscript.quit(intOK)
}
Else
    Wscript.Echo "Error!!! server " & strPrimaryServer & " is at virus def " & SymanticPrimary & " and the local Server is at virus def " & SymanticSecondary
    wscript.quit(intCritical)
end if

wscript.quit

Function GetSymanticVer(ComputerName) 

Dim year, Month , Day, Ver_Major

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ComputerName & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Symantec\SharedDefs\DefWatch"
strValueName = "DefVersion"

oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 
Year= CLng("&H" & hex(strValue(1)) & hex(strValue(0)))
Month= CLng("&H" & hex(strValue(3)) & hex(strValue(2)))
Day= CLng("&H" & hex(strValue(7)) & hex(strValue(6)))
Day= CLng("&H" & hex(strValue(7)) & hex(strValue(6)))
Ver_Major = CLng("&H" & hex(strValue(17)) & hex(strValue(16)))
SymanticVer= Year & "-" & Month & "-" & Day & " rev. " & Ver_Major
GetSymanticVer=SymanticVer
End Function.

Ik denk zelf dat de Norton update server nog gedefinieerd moet worden op regel 8 van het config filetje. Simpelweg omdat daar een "." staat.

Is dit een correcte hypothese? Zo ja, iemand enig idee wat er dan precies i.p.v. de punt moet staan?

Bij voorbaat mijn dank,
Ivo Kox

[blaataaps]

Dat script ziet er heel erg uit alsof het op een windowsplatform draait, als je denkt dat het probleem in dat script ligt, zou het dan niet logischer zijn het ergens anders te plaatsen dan Non-Windows Operating Systems?

[Verwijderd]

Dit script draait inderdaad op een Windows Server 2003 machine.

Echter wordt gebruikt op een Linux machine.

Gezien het feit dat in dit forum meer Linux mensen komen, leek het me verstandig het topic hier te plaatsen...

[ Voor 74% gewijzigd door Verwijderd op 27-09-2006 12:22 ]