Whereis script

<package>
    <job id="WhereIs">
        <comment>
        File:           WhereIs.wsf
        Description:    List all servers a user is logged on to.
        Requirements:   WSH 5.5 or higher.

        Copyright (c) 2002 Citrix Systems, Inc.
        </comment>
        <runtime>
            <description>
              This sample script uses MFCOM session object to  list all servers a user is
              logged on to. you can extend this script to get IP address and other
              user properties.

            </description>
            <example>
                CScript WhereIs.wsf username
            </example>

        </runtime>
        <reference object="MetaFrameCOM.MetaFrameFarm"/>
        <script language="VBScript">

            Dim UserName, theFarm, aSession, SessionList
            '
            ' Get user name
            '
            Set Args = WScript.Arguments
            If Args.Count < 1 Then
                WScript.Echo "Usage: WhereIs UserName"
                WScript.Quit
            End If
            UserName = Args(0)
            '
            ' Initialize the farm object.
            '
            Set theFarm = CreateObject("MetaFrameCOM.MetaFrameFarm")
            if Err.Number <> 0 Then
                WScript.Echo "Can't create MetaFrameFarm object"
                WScript.Echo "(" & Err.Number & ") " & Err.Description
                WScript.Echo ""
                WScript.Quit Err.Number
            End if
            '
            ' Initialize the farm object.
            '
            theFarm.Initialize MetaFrameWinFarmObject
            '
            ' Get all sessions in the farm.
            '
            Set SessionList = theFarm.Sessions
            '
            ' For each session, print out the name of the server on which
            ' the given user has a session.
            '
            For Each aSession In SessionList
                If aSession.UserName = UserName Then
                    WScript.Echo aSession.ServerName
                End If
            Next
        </script>
    </job>
</package>