How to make defaults only for a subset of hosts

8 messages in this thread

list Steve Holmes · Thu, 28 Jun 2007 16:37:22 -0400 ·

Can a rule be applied to DEFAULTS so the default settings only apply to a
class of hosts?

Thanks,
Steve Holmes

list Steve Holmes · Fri, 29 Jun 2007 10:01:10 -0400 ·

Nevermind. The answer is yes. And it works just like I would expect it to.
:-)

Steve.

▸ quoted from Steve Holmes

Can a rule be applied to DEFAULTS so the default settings only apply to a
class of hosts?

Thanks,
Steve Holmes

list Michael Frey · Fri, 29 Jun 2007 10:30:25 -0400 ·

I am trying to configure the tests included in citrix.zip.

Can someone explain how to get this test working?

Michael Frey.  Manager, Microsoft and Hosting Services.  APT Inc.  XXXX Windsor Dr. Suite XXX.  Allentown, PA XXXXX.
Ph. XXX.XXX.XXXX, ext XX Fax XXX.XXX.XXXX
http://www.aptconsulting.com  http://www.WebtrialZ.com

list Michael Frey · Fri, 29 Jun 2007 11:04:22 -0400 ·

I am trying to configure the tests included in citrix.zip.

Can someone explain how to get this test working?

Michael Frey.  Manager, Microsoft and Hosting Services.  APT Inc.  XXXX Windsor Dr. Suite XXX.  Allentown, PA XXXXX.
Ph. XXX.XXX.XXXX, ext XX Fax XXX.XXX.XXXX
http://www.aptconsulting.com  http://www.WebtrialZ.com

list John Milburn · Fri, 29 Jun 2007 10:07:49 -0500 ·

Try this

'**************************************************************************
Option Explicit
'**************************************************************************
Const ForReading = 1
Const ForWriting = 2
Public Const wbemFlagReturnImmediately = &h10
Public Const wbemFlagForwardOnly = &h20

On Error Resume Next

Dim strComputer
Dim strFileOut, blArgs
Dim lngResult

strComputer = "."
lngResult = 0
strFileOut = "-ctxinfo"

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(strFileOut) Then
  fso.DeleteFile(strFileOut)
End If
Set fso = Nothing


lngResult = GetCitrixInfo(strComputer)

WScript.Quit lngResult

'**************************************************************************
'**************************************************************************
		
'**************************************************************************
' Function name: GetCitrixInfo
' Parameters: 
'
'**************************************************************************
Function GetCitrixInfo(strComputer)
  On Error Resume Next

  Dim strFarmName, strIPAddress, strLoginsEnabled, strNumberOfActiveSessions
  Dim strNumberOfDisconnectedSessions, strNumberOfSessions, strServerName
  Dim strServerType, strZoneName, strZoneRanking

  Dim objWMIService, colItems, objItem
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\Citrix")
  Set colItems = objWMIService.ExecQuery("SELECT * FROM MetaFrame_Server", "WQL", _
                               wbemFlagReturnImmediately + wbemFlagForwardOnly)

  Dim strOut
  strOut = ""
  For Each objItem In colItems
    strFarmName = objItem.FarmName
    strIPAddress = objItem.IPAddress
    strLoginsEnabled = objItem.LoginsEnabled
    strNumberOfActiveSessions = objItem.NumberOfActiveSessions
    strNumberOfDisconnectedSessions = objItem.NumberOfDisconnectedSessions
    strNumberOfSessions = objItem.NumberOfSessions
    strServerName = objItem.ServerName
    strServerType = objItem.ServerType
    strZoneName = objItem.ZoneName
    strZoneRanking = objItem.ZoneRanking
  Next
  Set objItem = Nothing
  Set colItems = Nothing

  strZoneName = Right(strZoneName, Len(strZoneName) - (InStr(strZoneName, Chr(34))))
  strZoneName = Left(strZoneName, (InStr(strZoneName, Chr(34)) - 1))

  strOut = strOut & "Farm Name      : " & strFarmName & vbLf
'  strOut = strOut & "Server Name    : " & strComputer & vbLf
  strOut = strOut & "IP Address     : " & strIPAddress & vbLf
  strOut = strOut & "Logins Enabled : " & strLoginsEnabled & vbLf
  strOut = strOut & "Sessions" & vbLf
  strOut = strOut & "        Active : " & strNumberOfActiveSessions & vbLf
  strOut = strOut & "  Disconnected : " & strNumberOfDisconnectedSessions & vbLf
  strOut = strOut & "         Total : " & strNumberOfSessions & vbLf
  strOut = strOut & "Server Type    : " & strServerType & vbLf
  strOut = strOut & "Zone Name      : " & strZoneName & vbLf
  strOut = strOut & "Zone Ranking   : " & strZoneRanking & vbLf
  strOut = strOut & vbLf
  strOut = strOut & strNumberOfActiveSessions & " users active" & vbLf
  strOut = strOut & vbLf
'  WScript.Echo strOut


  Dim fso, objFileOut
  Set fso = CreateObject("Scripting.FileSystemObject")

  Dim blRed, blYellow, blGreen
  blRed = False
  blYellow = False
  blGreen = True

'Set warning and error
  If strNumberOfActiveSessions > 20 Then
    blYellow = True
  End If

  If strNumberOfActiveSessions > 25 Then
  	blRed = True
  End If

  Set objFileOut = fso.OpenTextFile(strFileOut, ForWriting, True)
  If blRed Then
    objFileOut.WriteLine "red Citrix Server Information"
  Else
    If blyellow Then
      objFileOut.WriteLine "yellow Citrix Server Information"
    Else
      objFileOut.WriteLine "green Citrix Server Information"
    End If
  End If

  objFileOut.WriteLine ""
  objFileOut.WriteLine strOut
  objFileOut.WriteLine ""
  objFileOut.Close

  Set fso = Nothing
  GetCitrixInfo = -1

End Function

▸ quoted from Michael Frey

-----Original Message-----
From: Michael Frey [mailto:user-8fe9dfd4a56d@xymon.invalid] 
Sent: Friday, June 29, 2007 9:30 AM
To: user-ae9b8668bcde@xymon.invalid
Subject: RE: [hobbit] How to make defaults only for a subset of hosts 

I am trying to configure the tests included in citrix.zip.

Can someone explain how to get this test working?

Michael Frey.  Manager, Microsoft and Hosting Services.  APT Inc.  XXXX Windsor Dr. Suite XXX.  Allentown, PA XXXXX.
Ph. XXX.XXX.XXXX, ext XX Fax XXX.XXX.XXXX
http://www.aptconsulting.com  http://www.WebtrialZ.com

list Galen Johnson · Fri, 29 Jun 2007 13:17:47 -0400 ·

I don't know about that one but we have a perl script we wrote that (appears) to do the something similar for Terminal Services.

=G=

▸ quoted from Michael Frey

-----Original Message-----
From: Michael Frey [mailto:user-8fe9dfd4a56d@xymon.invalid] 
Sent: Friday, June 29, 2007 11:04 AM
To: user-ae9b8668bcde@xymon.invalid
Subject: [hobbit] Citrix Test

I am trying to configure the tests included in citrix.zip.

Can someone explain how to get this test working?

Michael Frey.  Manager, Microsoft and Hosting Services.  APT Inc.  XXXX Windsor Dr. Suite XXX.  Allentown, PA XXXXX.
Ph. XXX.XXX.XXXX, ext XX Fax XXX.XXX.XXXX http://www.aptconsulting.com  http://www.WebtrialZ.com

list Bruce White · Fri, 29 Jun 2007 13:10:43 -0500 ·

Where did you download citrix.zip?

▸ quoted from Michael Frey

-----Original Message-----
From: Michael Frey [mailto:user-8fe9dfd4a56d@xymon.invalid] 
Sent: Friday, June 29, 2007 10:04 AM
To: user-ae9b8668bcde@xymon.invalid
Subject: [hobbit] Citrix Test

I am trying to configure the tests included in citrix.zip.

Can someone explain how to get this test working?

Michael Frey.  Manager, Microsoft and Hosting Services.  APT Inc.  XXXX
Windsor Dr. Suite XXX.  Allentown, PA XXXXX.
Ph. XXX.XXX.XXXX, ext XX Fax XXX.XXX.XXXX
http://www.aptconsulting.com  http://www.WebtrialZ.com


Note: The information contained in this message may be privileged and
confidential and protected from disclosure. If the reader of this message is
not the intended recipient, or an employee or agent responsible for
delivering this message to the intended recipient, you are hereby notified
that any dissemination, distribution or copying of this communication is
strictly prohibited. If you have received this communication in error,
please notify us immediately by replying to the message and deleting it from
your computer. Thank you. Fellowes, Inc.

list Galen Johnson · Fri, 29 Jun 2007 16:05:58 -0400 ·

I found it in the contribs folder...

=G=

▸ quoted from Bruce White

-----Original Message-----
From: White, Bruce [mailto:user-58f975e8bf9d@xymon.invalid] 
Sent: Friday, June 29, 2007 2:11 PM
To: 'user-ae9b8668bcde@xymon.invalid'
Subject: RE: [hobbit] Citrix Test

Where did you download citrix.zip?

-----Original Message-----
From: Michael Frey [mailto:user-8fe9dfd4a56d@xymon.invalid]
Sent: Friday, June 29, 2007 10:04 AM
To: user-ae9b8668bcde@xymon.invalid
Subject: [hobbit] Citrix Test

I am trying to configure the tests included in citrix.zip.

Can someone explain how to get this test working?

Michael Frey.  Manager, Microsoft and Hosting Services.  APT Inc.  XXXX
Windsor Dr. Suite XXX.  Allentown, PA XXXXX.
Ph. XXX.XXX.XXXX, ext XX Fax XXX.XXX.XXXX
http://www.aptconsulting.com  http://www.WebtrialZ.com

Note: The information contained in this message may be privileged and
confidential and protected from disclosure. If the reader of this message is
not the intended recipient, or an employee or agent responsible for
delivering this message to the intended recipient, you are hereby notified
that any dissemination, distribution or copying of this communication is
strictly prohibited. If you have received this communication in error,
please notify us immediately by replying to the message and deleting it from
your computer. Thank you. Fellowes, Inc.

How to make defaults only for a subset of hosts 🔗 link

How to make defaults only for a subset of hosts