Add admin to Presentation Servers

 Adds local Administrators to all servers in a farm

Description

Adds local Administrators to all servers in a farm

Download

Attach your script and have a link to the download here.

Code Snippet

            Dim NewAdmin, theFarm, theServer

            '
            ' Create 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

            '
            ' Add the new admins for each server in the farm.
            '
           
            For each theServer in theFarm.Servers
                Set NewAdmin = theFarm.AddAdmin
       
                NewAdmin.AdminType = MFAdminPermissionFullAccess
                NewAdmin.Enable = 1
                NewAdmin.AAType = MFAccountAuthorityNTDomain
                NewAdmin.AAName = theServer.ServerName
                NewAdmin.AccountType = MFAccountLocalGroup
                NewAdmin.AccountName = "Administrators"
                NewAdmin.SaveData

                if Err.Number <> 0 Then
                    WScript.Echo "Can't save Admin object"
                    WScript.Echo "(" & Err.Number & ") " & Err.Description
                    WScript.Echo ""
                    WScript.Quit Err.Number
                End if          
            Next

rate-13860910-65504

User Rating?	1 2 3 4 5

Disclaimer

These software applications are provided to you as is with no representations, warranties or conditions of any kind. You may use and distribute it at your own risk. CITRIX DISCLAIMS ALL WARRANTIES WHATSOEVER, EXPRESS, IMPLIED, WRITTEN, ORAL OR STATUTORY, INCLUDING WITHOUT LIMITATION WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, TITLE AND NONINFRINGEMENT. Without limiting the generality of the foregoing, you acknowledge and agree that (a) the software application may exhibit errors, design flaws or other problems, possibly resulting in loss of data or damage to property; (b) it may not be possible to make the software application fully functional; and (c) Citrix may, without notice or liability to you, cease to make available the current version and/or any future versions of the software application. In no event should the code be used to support of ultra-hazardous activities, including but not limited to life support or blasting activities. NEITHER CITRIX NOR ITS AFFILIATES OR AGENTS WILL BE LIABLE, UNDER BREACH OF CONTRACT OR ANY OTHER THEORY OF LIABILITY, FOR ANY DAMAGES WHATSOEVER ARISING FROM USE OF THE SOFTWARE APPLICATION, INCLUDING WITHOUT LIMITATION DIRECT, SPECIAL, INCIDENTAL, PUNITIVE, CONSEQUENTIAL OR OTHER DAMAGES, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. You agree to indemnify and defend Citrix against any and all claims arising from your use, modification or distribution of the code.