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