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. 7540 Windsor Dr. Suite 204. Allentown, PA 18195. Ph. 610.366.1100, ext 15 Fax 610.366.7375 http://www.aptconsulting.com  http://www.WebtrialZ.com

To unsubscribe from the hobbit list, send an e-mail to hobbit-unsubscribe at hswn.dk

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

-----Original Message----- From: Michael Frey [mailto:Michael.Frey at aptconsulting.com] Sent: Friday, June 29, 2007 9:30 AM To: hobbit at hswn.dk 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. 7540 Windsor Dr. Suite 204. Allentown, PA 18195. Ph. 610.366.1100, ext 15 Fax 610.366.7375 http://www.aptconsulting.com  http://www.WebtrialZ.com

To unsubscribe from the hobbit list, send an e-mail to hobbit-unsubscribe at hswn.dk