enumerating folder > server > sessions

06 Oct

the following browses by folder then server.

somehow i need to blend this into my existing script to enumerate active sessions according to this hierarchy:
folder > server > sessions

Sub DoOneFolder(fEnable, FolderName)
Dim f, s, Msg
Msg = "Disabling"
If fEnable = True Then Msg = "Enabling "
Set f = CreateObject("MetaFrameCOM.MetaFrameFolder")
For Each s In f.SrvFolder.Servers
WScript.Echo Msg & " logon on " & s.ServerName
s.WinServerObject.EnableLogon = fEnable
End Sub

Leave a comment

Posted by on October 6, 2009 in Uncategorized


Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )


Connecting to %s

%d bloggers like this: