RSS

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")
f.InitServerFolder(FolderName)
For Each s In f.SrvFolder.Servers
WScript.Echo Msg & " logon on " & s.ServerName
s.WinServerObject.EnableLogon = fEnable
Next
End Sub

Advertisements
 
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:

WordPress.com Logo

You are commenting using your WordPress.com 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 )

Google+ photo

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

Connecting to %s

 
%d bloggers like this: