'
' Copyright (c) Microsoft Corporation.  All rights reserved.
'
' VBScript Source File 
'
' Script Name: IIsFtp.vbs
'

Option Explicit
On Error Resume Next

' Error codes
Const ERR_OK                         = 0
Const ERR_GENERAL_FAILURE            = 1

'''''''''''''''''''''
' Messages
Const L_BindingConflict_ErrorMessage = "(ERROR: BINDING CONFLICT)"
Const L_SitesNotFound_ErrorMessage  = "Site(s) not found."
Const L_IsAlready_Message       = "Server %1 is already %2"
Const L_HasBeen_Message         = "Server %1 has been %2"
Const L_GetAD_Message           = "The value of %1 for user %2 is:"
Const L_SetAD_Message           = "The value of %1 for user %2 has been set to %3"

Const L_All_Text                = "ALL"
Const L_AllUnassigned_Text      = "ALL UNASSIGNED"
Const L_NotSpecified_Text       = "NOT SPECIFIED"
Const L_NoISO_Text              = "None"

Const L_Server_Text          = "Server"
Const L_SiteName_Text        = "Site Name"
Const L_MetabasePath_Message = "Metabase Path"
Const L_IP_Text              = "IP"
Const L_Port_Text            = "Port"
Const L_Root_Text            = "Root"
Const L_ISO_Text             = "IsoMode"
Const L_Status_Text          = "Status"
Const L_NA_Text              = "N/A"

Const L_UnexpectedState_ErrorMessage   = "Unexpected state"
Const L_Error_ErrorMessage             = "Error &H%1: %2"
Const L_GetRoot_ErrorMessage           = "Could not obtaing ROOT virtual dir of site"
Const L_SiteGet_ErrorMessage           = "Could not obtain ftp site %1"
Const L_Stop_ErrorMessage              = "Could not stop ftp site %1"
Const L_SiteDel_ErrorMessage           = "Could not delete ftp site %1"
Const L_GetFtpServer_ErrorMessage      = "Error trying to obtain FtpServer object."
Const L_CannotCreateDir_ErrorMessage   = "Could not create root directory"
Const L_CmdLib_ErrorMessage            = "Could not create an instance of the CmdLib object."
Const L_ChkCmdLibReg_ErrorMessage      = "Please register the Microsoft.CmdLib component."
Const L_DirFormat_ErrorMessage         = "Root directory format unknown. Please use the"
Const L_DirFormat2_ErrorMessage        = "'<drive>:\<path>' format."
Const L_CannotStart_Message            = "%1: Server cannot be started in its current state"
Const L_CannotStart2_Message           = "(%1 server is %2)"
Const L_CannotStop_Message             = "Server cannot be stopped in its current state"
Const L_CannotStop2_Message            = "(%1 server is %2)"
Const L_CannotPause_Message            = "Server cannot be paused in its current state"
Const L_CannotPause2_Message           = "(%1 server is %2)"
Const L_CannotControl_ErrorMessage     = "Server cannot be controled in its current state"
Const L_FailChange_ErrorMessage        = "Failed to change status of server %1"
Const L_OperationRequired_ErrorMessage = "Please specify an operation before the arguments."
Const L_MinInfoNeeded_ErrorMessage     = "Need at least <root> to create a site."
Const L_NotEnoughParams_ErrorMessage   = "Not enough parameters."
Const L_Query_ErrorMessage             = "Error occurred while querying WMI provider."
Const L_OnlyOneOper_ErrorMessage       = "Please specify only one operation at a time."
Const L_ServerInstance_ErrorMessage    = "Error trying to create a new ftp server instance."
Const L_ServerPut_ErrorMessage         = "Error trying to save new ftp server instance."
Const L_VDirInstance_ErrorMessage      = "Error trying to create a new virtual directory instance."
Const L_VDirPut_ErrorMessage           = "Error trying to save new virtual directory instance."
Const L_ScriptHelper_ErrorMessage      = "Could not create an instance of the IIsScriptHelper object."
Const L_ChkScpHelperReg_ErrorMessage   = "Please register the Microsoft.IIsScriptHelper component."
Const L_InvalidIP_ErrorMessage         = "Invalid IP Address. Please check if it is well formated and"
Const L_InvalidIP2_ErrorMessage        = "belongs to this machine."
Const L_InvalidPort_ErrorMessage       = "Invalid port number."
Const L_InvalidArg_ErrorMessage        = "Invalid argument: %1"
Const L_MapDrive_ErrorMessage          = "Could not map network drive."
Const L_PassWithoutUser_ErrorMessage   = "Please specify /u switch before using /p."
Const L_WMIConnect_ErrorMessage        = "Could not connect to WMI provider."
Const L_InvalidSwitch_ErrorMessage     = "Invalid switch: %1"
Const L_Admin_ErrorMessage             = "You cannot run this command because you are not an"
Const L_Admin2_ErrorMessage            = "administrator on the server you are trying to configure."
Const L_ADUserNotFound_ErrorMessage    = "User %1 was not found in Active Directory."

'''''''''''''''''''''
' Help

' General help messages
Const L_SeeHelp_Message       = "Type IIsFtp /? for help."
Const L_SeeStartHelp_Message  = "Type IIsFtp /start /? for help."
Const L_SeeStopHelp_Message   = "Type IIsFtp /stop /? for help."
Const L_SeePauseHelp_Message  = "Type IIsFtp /pause /? for help."
Const L_SeeCreateHelp_Message = "Type IIsFtp /create /? for help."
Const L_SeeDeleteHelp_Message = "Type IIsFtp /delete /? for help."
Const L_SeeGetADPropHelp_Message = "Type IIsFtp /getadprop /? for help."
Const L_SeeSetADPropHelp_Message = "Type IIsFtp /setadprop /? for help."
Const L_SeeQueryHelp_Message  = "Type IIsFtp /query /? for help."


Const L_Help_HELP_General01_Text  = "Description: Start, Stop, Pause, Delete, Query, or Create"
Const L_Help_HELP_General01a_Text = "             a Ftp Site"
Const L_Help_HELP_General02_Text  = "Syntax: IIsFtp [/s <server> [/u <username> [/p <password>]]]"
Const L_Help_HELP_General03_Text  = "        /<operation> [arguments]"
Const L_Help_HELP_General04_Text  = "Parameters:"
Const L_Help_HELP_General05_Text  = ""
Const L_Help_HELP_General06_Text  = "Value                   Description"
Const L_Help_HELP_General07_Text  = "/s <server>             Connect to machine <server>"
Const L_Help_HELP_General07a_Text = "                        [Default: this system]"
Const L_Help_HELP_General08_Text  = "/u <username>           Connect as <domain>\<username> or"
Const L_Help_HELP_General09_Text  = "                        <username> [Default: current user]"
Const L_Help_HELP_General10_Text  = "/p <password>           Password for the <username> user"
Const L_Help_HELP_General11_Text  = "<operation>             /start      Starts a site(s) on"
Const L_Help_HELP_General11a_Text = "                                    given IIS Server."
Const L_Help_HELP_General12_Text  = "                        /stop       Stops a site(s) from"
Const L_Help_HELP_General13_Text  = "                                    running on a given IIS"
Const L_Help_HELP_General13a_Text = "                                    Server."
Const L_Help_HELP_General14_Text  = "                        /pause      Pauses a site(s) that is"
Const L_Help_HELP_General15_Text  = "                                    running on a given IIS"
Const L_Help_HELP_General15a_Text = "                                    Server."
Const L_Help_HELP_General18_Text  = "                        /delete     Deletes IIS configuration"
Const L_Help_HELP_General19_Text  = "                                    from an existing Ftp Site."
Const L_Help_HELP_General19a_Text = "                                    Content will not be"
Const L_Help_HELP_General19b_Text = "                                    deleted."
Const L_Help_HELP_General20_Text  = "                        /create     Creates a Ftp Site."
Const L_Help_HELP_General21_Text  = "                        /query      Queries existing Ftp Sites."
Const L_Help_HELP_General21a_Text = "                        /SetADProp  Sets FTPRoot and FTPDir"
Const L_Help_HELP_General21b_Text = "                                    values in Active Directory."
Const L_Help_HELP_General21c_Text = "                        /GetADProp  Queries FTPRoot and FTPDir"
Const L_Help_HELP_General21d_Text = "                                    values from Active Directory."
Const L_Help_HELP_General22_Text  = "For detailed usage:"
Const L_Help_HELP_General23_Text  = "IIsFtp /start /?"
Const L_Help_HELP_General24_Text  = "IIsFtp /stop /?"
Const L_Help_HELP_General25_Text  = "IIsFtp /pause /?"
Const L_Help_HELP_General27_Text  = "IIsFtp /delete /?"
Const L_Help_HELP_General28_Text  = "IIsFtp /create /?"
Const L_Help_HELP_General29_Text  = "IIsFtp /query /?"
Const L_Help_HELP_General30_Text  = "IIsFtp /SetADProp /?"
Const L_Help_HELP_General31_Text  = "IIsFtp /GetADProp /?"

' Common to all status change commands
Const L_Help_HELP_Status03_Text   = "Parameters:"
Const L_Help_HELP_Status09_Text   = "<ftpsite>               Use either the site name or metabase"
Const L_Help_HELP_Status09p1_Text = "                        path to specify the site"
Const L_Help_HELP_Status10_Text   = "Examples:"

' Start help messages
Const L_Help_HELP_Start01_Text   = "Description: Starts a site(s) on a given IIS Server."
Const L_Help_HELP_Start02_Text   = "Syntax: IIsFtp [/s <server> [/u <username> [/p <password>]]]"
Const L_Help_HELP_Start02p1_Text = "        /start <ftpsite> [<ftpsite> ...]"
Const L_Help_HELP_Start11_Text   = "IIsFtp /start ""Default Ftp Site"""
Const L_Help_HELP_Start12_Text   = "IIsFtp /start msftpsvc/1"
Const L_Help_HELP_Start13_Text   = "IIsFtp /start w3svc/2 ""Default Ftp Site"" w3svc/10"
Const L_Help_HELP_Start14_Text   = "IIsFtp /s Server1 /u Administrator /p p@ssWOrd /start msftpsvc/4"

' Stop help messages
Const L_Help_HELP_Stop01_Text   = "Description: Stops a site(s) on a given IIS Server."
Const L_Help_HELP_Stop02_Text   = "Syntax: IIsFtp [/s <server> [/u <username> [/p <password>]]] /stop"
Const L_Help_HELP_Stop02p1_Text = "        <ftpsite> [<ftpsite> ...]"
Const L_Help_HELP_Stop11_Text   = "IIsFtp /stop ""Default Ftp Site"""
Const L_Help_HELP_Stop12_Text   = "IIsFtp /stop msftpsvc/1"
Const L_Help_HELP_Stop13_Text   = "IIsFtp /stop w3svc/2 ""Default Ftp Site"" w3svc/10"
Const L_Help_HELP_Stop14_Text   = "IIsFtp /s Server1 /u Administrator /p p@ssWOrd /stop msftpsvc/4"

' GetADProp help messages
Const L_Help_HELP_GetADProp01_Text   = "Description: Queries properties from Active Directory."
Const L_Help_HELP_GetADProp02_Text   = "Syntax: IIsFtp [/s <server> [/u <username> [/p <password>]]]"
Const L_Help_HELP_GetADProp02p1_Text = "        /GetADProp <UserID> FTPDir | FTPRoot"
Const L_Help_HELP_GetADProp10_Text   = "<UserID>                The logon id of the Active Directory"
Const L_Help_HELP_GetADProp10a_Text  = "                        user to grab the property from."
Const L_Help_HELP_GetADProp11_Text   = "IIsFtp /GetADProp billsmith FTPDir"
Const L_Help_HELP_GetADProp12_Text   = "IIsFtp /GetADProp marysmith FTPRoot"

' SetADProp help messages
Const L_Help_HELP_SetADProp01_Text   = "Description: Sets properties in Active Directory."
Const L_Help_HELP_SetADProp02_Text   = "Syntax: IIsFtp [/s <server> [/u <username> [/p <password>]]]"
Const L_Help_HELP_SetADProp02p1_Text = "        /SetADProp <UserID> FTPDir | FTPRoot <propval>"
Const L_Help_HELP_SetADProp10_Text   = "<UserID>                The logon id of the Active Directory"
Const L_Help_HELP_SetADProp10a_Text  = "                        user to set the property at."
Const L_Help_HELP_SetADProp11_Text   = "IIsFtp /SetADProp billsmith FTPDir billsdir"
Const L_Help_HELP_SetADProp12_Text   = "IIsFtp /SetADProp marysmith FTPRoot c:\foo"

' Pause help messages
Const L_Help_HELP_Pause01_Text   = "Description: Pauses a site(s) on a given IIS Server."
Const L_Help_HELP_Pause02_Text   = "Syntax: IIsFtp [/s <server> [/u <username> [/p <password>]]]"
Const L_Help_HELP_Pause02p1_Text = "        /pause <ftpsite> [<ftpsite> ...]"
Const L_Help_HELP_Pause11_Text   = "IIsFtp /pause ""Default Ftp Site"""
Const L_Help_HELP_Pause12_Text   = "IIsFtp /pause msftpsvc/1"
Const L_Help_HELP_Pause13_Text   = "IIsFtp /pause w3svc/2 ""Default Ftp Site"" w3svc/10"
Const L_Help_HELP_Pause14_Text   = "IIsFtp /s Server1 /u Administrator /p p@ssWOrd /pause msftpsvc/4"

' Delete help messages
Const L_Help_HELP_Delete01_Text   = "Description: Deletes IIS configuration for an existing ftp"
Const L_Help_HELP_Delete01p1_Text = "             site.  Content will not be deleted."
Const L_Help_HELP_Delete02_Text   = "Syntax: IIsFtp [/s <server> [/u <username> [/p <password>]]]"
Const L_Help_HELP_Delete02p1_Text = "        /delete <ftpsite> [<ftpsite> ...]"
Const L_Help_HELP_Delete11_Text   = "IIsFtp /delete ""Default Ftp Site"""
Const L_Help_HELP_Delete12_Text   = "IIsFtp /delete msftpsvc/1"
Const L_Help_HELP_Delete13_Text    = "IIsFtp /delete w3svc/2 ""Default Ftp Site"" w3svc/10"
Const L_Help_HELP_Delete14_Text   = "IIsFtp /s Server1 /u Administrator /p p@ssWOrd /delete msftpsvc/4"

' Create help messages
Const L_Help_HELP_Create01_Text   = "Description: Creates a ftp site."
Const L_Help_HELP_Create02_Text   = "Syntax: IIsFtp [/s <server> [/u <username> [/p <password>]]]"
Const L_Help_HELP_Create02p1_Text = "        /create <root> <name> [/b <port>] [/i <ip>] [/dontstart]"
Const L_Help_HELP_Create03_Text   = "        [/isolation <isomode> [/ADDomain <domain>"
Const L_Help_HELP_Create03a_Text  = "        /ADAdmin <admin> /ADPass <password>]]"
Const L_Help_HELP_Create09_Text   = "<root>                  Root directory for the new server."
Const L_Help_HELP_Create09p1_Text = "                        If this directory does not exist, it"
Const L_Help_HELP_Create09p2_Text = "                        will be created."
Const L_Help_HELP_Create10_Text   = "<name>                  The name that appears in the Microsoft"
Const L_Help_HELP_Create10p1_Text = "                        Management Console (MMC)."
Const L_Help_HELP_Create12_Text   = "/b <port>               The number of the port to which the"
Const L_Help_HELP_Create12p1_Text = "                        new server should bind. [Default: 21]"
Const L_Help_HELP_Create13_Text   = "/i <ip>                 The IP address to assign to the new"
Const L_Help_HELP_Create13p1_Text = "                        server. [Default: All Unassigned]"
Const L_Help_HELP_Create15_Text   = "/dontstart              Don't start this site after it is created."
Const L_Help_HELP_Create16_Text   = "/isolation              Set isolation mode to either Local or AD."
Const L_Help_HELP_Create17_Text   = "/AD*                    Set ActiveDirectory credentials for"
Const L_Help_HELP_Create17a_Text  = "                        AD isolation mode."
Const L_Help_HELP_Create22_Text   = "IIsFtp /create c:\inetpub\ftproot ""My Site"" /b 21"
Const L_Help_HELP_Create23_Text   = "IIsFtp /s Server1 /u Administrator /p p@assWOrd /create c:\inetpub\ftproot"
Const L_Help_HELP_Create23p1_Text = "       ""My Site"""
Const L_Help_HELP_Create24_Text   = "IIsFtp /create c:\inetpub\ftproot ""My Site"" /i 172.30.163.244 /b 21"

' Query help messages
Const L_Help_HELP_Query01_Text   = "Description: Queries existing ftp sites."
Const L_Help_HELP_Query02_Text   = "Syntax: IIsFtp [/s <server> [/u <username> [/p <password>]]]"
Const L_Help_HELP_Query02p1_Text = "        /query [<ftpsite> ...]"
Const L_Help_HELP_Query11_Text   = "IIsFtp /query ""Default Ftp Site"""
Const L_Help_HELP_Query12_Text   = "IIsFtp /query msftpsvc/1"
Const L_Help_HELP_Query13_Text   = "IIsFtp /query"
Const L_Help_HELP_Query14_Text   = "IIsFtp /query ""Default Ftp Site"" ""Sample Site"" msftpsvc/1"
Const L_Help_HELP_Query15_Text   = "IIsFtp /s Server1 /u Administrator /p p@ssW0rd /query ""Default Ftp Site"""

' Status
Const L_Started_Text   = "started"
Const L_Stopped_Text   = "stopped"
Const L_Paused_Text    = "paused"
Const L_Continued_Text = "continued"
Const L_Deleted_Text   = "deleted"

''''''''''''''''''''''''
Dim SiteStatus
SiteStatus = Array("", "", L_Started_Text, "", L_Stopped_Text, "", L_Paused_Text, L_Continued_Text, L_Deleted_Text)

' Operation codes
Const OPER_START    = 1
Const OPER_STOP     = 2
Const OPER_PAUSE    = 3
Const OPER_DELETE   = 4
Const OPER_CREATE   = 5
Const OPER_QUERY    = 6
Const OPER_GETADPROP= 7
Const OPER_SETADPROP= 8

' ServerState codes
Const SERVER_STARTING   = 1
Const SERVER_STARTED    = 2
Const SERVER_STOPPING   = 3
Const SERVER_STOPPED    = 4
Const SERVER_PAUSING    = 5
Const SERVER_PAUSED     = 6
Const SERVER_CONTINUING = 7

'
' Main block
'
Dim oScriptHelper, oCmdLib
Dim strServer, strUser, strPassword, strSite
Dim intOperation, intResult
Dim strRoot, strName, strPort, strIP, strISO, strADDomain, strADAdmin, strADPass
Dim bDontStart
Dim aArgs, arg
Dim strCmdLineOptions
Dim oError

' Default values
strServer = "."
strUser = ""
strPassword = ""
intOperation = 0
strSite = ""
strName = ""
bDontStart = False

' Instantiate the CmdLib for output string formatting
Set oCmdLib = CreateObject("Microsoft.CmdLib")
If Err.Number <> 0 Then
    WScript.Echo L_CmdLib_ErrorMessage
    WScript.Echo L_ChkCmdLibReg_ErrorMessage    
    WScript.Quit(ERR_GENERAL_FAILURE)
End If
Set oCmdLib.ScriptingHost = WScript.Application

' Instantiate script helper object
Set oScriptHelper = CreateObject("Microsoft.IIsScriptHelper")
If Err.Number <> 0 Then
    WScript.Echo L_ScriptHelper_ErrorMessage
    WScript.Echo L_ChkScpHelperReg_ErrorMessage    
    WScript.Quit(ERR_GENERAL_FAILURE)
End If

Set oScriptHelper.ScriptHost = WScript

' Check if we are being run with cscript.exe instead of wscript.exe
oScriptHelper.CheckScriptEngine

' Minimum number of parameters must exist
If WScript.Arguments.Count < 1 Then
    WScript.Echo L_NotEnoughParams_ErrorMessage
    WScript.Echo L_SeeHelp_Message
    WScript.Quit(ERR_GENERAL_FAILURE)
End If

strCmdLineOptions = "[server:s:1;user:u:1;password:p:1];start::n;stop::n;pause::n;delete::n;" & _
                    "[create:c:1;port:b:1;ip:i:1;dontstart::0;isolation::1;addomain::1;adadmin::1;adpass::1];query:q:n;" & _
                    "getadprop::n;setadprop::n"

Set oError = oScriptHelper.ParseCmdLineOptions(strCmdLineOptions)

If Not oError Is Nothing Then
    If oError.ErrorCode = oScriptHelper.ERROR_NOT_ENOUGH_ARGS Then
        ' Not enough arguments for a specified switch
        WScript.Echo L_NotEnoughParams_ErrorMessage
        If oError.SwitchName = "create" Then
            WScript.Echo L_SeeCreateHelp_Message
        Else
            WScript.Echo L_SeeHelp_Message
        End If
    Else
        ' Invalid switch
        oCmdLib.vbPrintf L_InvalidSwitch_ErrorMessage, Array(oError.SwitchName)
        WScript.Echo L_SeeHelp_Message
    End If
        
        WScript.Quit(ERR_GENERAL_FAILURE)
End If

If oScriptHelper.GlobalHelpRequested Then
    DisplayHelpMessage
    WScript.Quit(ERR_OK)
End If

For Each arg In oScriptHelper.Switches
    Select Case arg
        Case "server"
            ' Server information
            strServer = oScriptHelper.GetSwitch(arg)

        Case "user"
            ' User information
            strUser = oScriptHelper.GetSwitch(arg)

        Case "password"
            ' Password information
            strPassword = oScriptHelper.GetSwitch(arg)
        
        Case "start"
            If (intOperation <> 0) Then
                WScript.Echo L_OnlyOneOper_ErrorMessage
                WScript.Echo L_SeeHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If

            intOperation = OPER_START
            
            If oScriptHelper.IsHelpRequested(arg) Then
                DisplayStartHelpMessage
                WScript.Quit(ERR_OK)
            End If

            aArgs = oScriptHelper.GetSwitch(arg)

            If UBound(aArgs) = -1 Then
                WScript.Echo L_NotEnoughParams_ErrorMessage
                WScript.Echo L_SeeStartHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If

        Case "stop"
            If (intOperation <> 0) Then
                WScript.Echo L_OnlyOneOper_ErrorMessage
                WScript.Echo L_SeeHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If

            intOperation = OPER_STOP
            
            If oScriptHelper.IsHelpRequested(arg) Then
                DisplayStopHelpMessage
                WScript.Quit(ERR_OK)
            End If

            aArgs = oScriptHelper.GetSwitch(arg)
        
            If UBound(aArgs) = -1 Then
                WScript.Echo L_NotEnoughParams_ErrorMessage
                WScript.Echo L_SeeStopHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If

        Case "pause"
            If (intOperation <> 0) Then
                WScript.Echo L_OnlyOneOper_ErrorMessage
                WScript.Echo L_SeeHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If

            intOperation = OPER_PAUSE
                        
            If oScriptHelper.IsHelpRequested(arg) Then
                DisplayPauseHelpMessage
                WScript.Quit(ERR_OK)
            End If

            aArgs = oScriptHelper.GetSwitch(arg)
        
            If UBound(aArgs) = -1 Then
                WScript.Echo L_NotEnoughParams_ErrorMessage
                WScript.Echo L_SeePauseHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If

        Case "create"
            If (intOperation <> 0) Then
                WScript.Echo L_OnlyOneOper_ErrorMessage
                WScript.Echo L_SeeHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If

            intOperation = OPER_CREATE

            If oScriptHelper.IsHelpRequested(arg) Then
                DisplayCreateHelpMessage
                WScript.Quit(ERR_OK)
            End If

            strRoot = oScriptHelper.GetSwitch(arg)
            aArgs = oScriptHelper.NamedArguments

            If strRoot = "" Or UBound(aArgs) = -1 Then
                WScript.Echo L_NotEnoughParams_ErrorMessage
                WScript.Echo L_SeeCreateHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If

            strName    = aArgs(0)
            strPort    = oScriptHelper.GetSwitch("port")
            strIP      = oScriptHelper.GetSwitch("ip")
            If oScriptHelper.Switches.Exists("dontstart") Then
                bDontStart = True
            End If

            strISO     = oScriptHelper.GetSwitch("isolation")
            strADDomain= oScriptHelper.GetSwitch("addomain")
            strADAdmin = oScriptHelper.GetSwitch("adadmin")
            strADPass  = oScriptHelper.GetSwitch("adpass")

            If UCase(strISO) = "AD" Then
                strRoot = ""
            End If

        Case "delete"
            If (intOperation <> 0) Then
                WScript.Echo L_OnlyOneOper_ErrorMessage
                WScript.Echo L_SeeHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If
        
            intOperation = OPER_DELETE

            If oScriptHelper.IsHelpRequested(arg) Then
                DisplayDeleteHelpMessage
                WScript.Quit(ERR_OK)
            End If

            aArgs = oScriptHelper.GetSwitch(arg)
            
            If UBound(aArgs) = -1 Then
                WScript.Echo L_NotEnoughParams_ErrorMessage
                WScript.Echo L_SeeDeleteHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If
        
        Case "query"
            If (intOperation <> 0) Then
                WScript.Echo L_OnlyOneOper_ErrorMessage
                WScript.Echo L_SeeHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If
        
            intOperation = OPER_QUERY

            If oScriptHelper.IsHelpRequested(arg) Then
                DisplayQueryHelpMessage
                WScript.Quit(ERR_OK)
            End If

            aArgs = oScriptHelper.GetSwitch(arg)

        Case "getadprop"
            If (intOperation <> 0) Then
                WScript.Echo L_OnlyOneOper_ErrorMessage
                WScript.Echo L_SeeHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If
        
            intOperation = OPER_GETADPROP

            If oScriptHelper.IsHelpRequested(arg) Then
                DisplayGetADPropHelpMessage
                WScript.Quit(ERR_OK)
            End If

            aArgs = oScriptHelper.GetSwitch(arg)
            
            If UBound(aArgs) = -1 Then
                WScript.Echo L_NotEnoughParams_ErrorMessage
                WScript.Echo L_SeeGetADPropHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If

        Case "setadprop"
            If (intOperation <> 0) Then
                WScript.Echo L_OnlyOneOper_ErrorMessage
                WScript.Echo L_SeeHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If
        
            intOperation = OPER_SETADPROP

            If oScriptHelper.IsHelpRequested(arg) Then
                DisplaySetADPropHelpMessage
                WScript.Quit(ERR_OK)
            End If

            aArgs = oScriptHelper.GetSwitch(arg)
            
            If UBound(aArgs) = -1 Then
                WScript.Echo L_NotEnoughParams_ErrorMessage
                WScript.Echo L_SeeSetADPropHelp_Message
                WScript.Quit(ERR_GENERAL_FAILURE)
            End If

    End Select
Next

' Check Parameters
If intOperation = 0 Then
    WScript.Echo L_OperationRequired_ErrorMessage
    WScript.Echo L_SeeHelp_Message
    WScript.Quit(ERR_GENERAL_FAILURE)
End If

' Check if /p is specified but /u isn't. In this case, we should bail out with an error
If oScriptHelper.Switches.Exists("password") And Not oScriptHelper.Switches.Exists("user") Then
    WScript.Echo L_PassWithoutUser_ErrorMessage
    WScript.Quit(ERR_GENERAL_FAILURE)
End If

' Check if /u is specified but /p isn't. In this case, we should ask for a password
If oScriptHelper.Switches.Exists("user") And Not oScriptHelper.Switches.Exists("password") Then
    strPassword = oCmdLib.GetPassword
End If

' Initializes authentication with remote machine 
' This initialization applies only for IIS operations. We skip it for AD operations
If intOperation <> OPER_GETADPROP And intOperation <> OPER_SETADPROP Then
    intResult = oScriptHelper.InitAuthentication(strServer, strUser, strPassword)
    If intResult <> 0 Then
        WScript.Quit(intResult)
    End If
End If

' Choose operation
Select Case intOperation
    Case OPER_START
        intResult = ChangeFtpSiteStatus(aArgs, SERVER_STARTED)
        
    Case OPER_STOP
        intResult = ChangeFtpSiteStatus(aArgs, SERVER_STOPPED)

    Case OPER_PAUSE
        intResult = ChangeFtpSiteStatus(aArgs, SERVER_PAUSED)

    Case OPER_DELETE
        intResult = DeleteFtpSite(aArgs)

    Case OPER_CREATE
        intResult = CreateFtpSite(strRoot, strName, strPort, strIP, bDontStart, strISO, strADDomain, strADAdmin, strADPass)

    Case OPER_QUERY
        intResult = QueryFtpSite(aArgs)

    Case OPER_GETADPROP
        intResult = GetADProp(strServer, strUser, strPassword, aArgs)

    Case OPER_SETADPROP
        intResult = SetADProp(strServer, strUser, strPassword, aArgs)

End Select

' Return value to command processor
WScript.Quit(intResult)

'''''''''''''''''''''''''
' End Of Main Block
'''''''''''''''''''''

'''''''''''''''''''''''''''
' DisplayHelpMessage
'''''''''''''''''''''''''''
Sub DisplayHelpMessage()
    WScript.Echo L_Help_HELP_General01_Text
    WScript.Echo L_Help_HELP_General01a_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General02_Text
    WScript.Echo L_Help_HELP_General03_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General04_Text
    WScript.Echo L_Help_HELP_General05_Text
    WScript.Echo L_Help_HELP_General06_Text
    WScript.Echo L_Help_HELP_General07_Text
    WScript.Echo L_Help_HELP_General07a_Text
    WScript.Echo L_Help_HELP_General08_Text
    WScript.Echo L_Help_HELP_General09_Text
    WScript.Echo L_Help_HELP_General10_Text
    WScript.Echo L_Help_HELP_General11_Text
    WScript.Echo L_Help_HELP_General11a_Text
    WScript.Echo L_Help_HELP_General12_Text
    WScript.Echo L_Help_HELP_General13_Text
    WScript.Echo L_Help_HELP_General13a_Text
    WScript.Echo L_Help_HELP_General14_Text
    WScript.Echo L_Help_HELP_General15_Text
    WScript.Echo L_Help_HELP_General15a_Text
    WScript.Echo L_Help_HELP_General18_Text
    WScript.Echo L_Help_HELP_General19_Text
    WScript.Echo L_Help_HELP_General19a_Text
    WScript.Echo L_Help_HELP_General19b_Text
    WScript.Echo L_Help_HELP_General20_Text
    WScript.Echo L_Help_HELP_General21_Text
    WScript.Echo L_Help_HELP_General21a_Text
    WScript.Echo L_Help_HELP_General21b_Text
    WScript.Echo L_Help_HELP_General21c_Text
    WScript.Echo L_Help_HELP_General21d_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General22_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General23_Text
    WScript.Echo L_Help_HELP_General24_Text
    WScript.Echo L_Help_HELP_General25_Text
    WScript.Echo L_Help_HELP_General27_Text
    WScript.Echo L_Help_HELP_General28_Text
    WScript.Echo L_Help_HELP_General29_Text
    WScript.Echo L_Help_HELP_General30_Text
    WScript.Echo L_Help_HELP_General31_Text
End Sub

Sub DisplayStartHelpMessage()
    WScript.Echo L_Help_HELP_Start01_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Start02_Text
    WScript.Echo L_Help_HELP_Start02p1_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status03_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General06_Text
    WScript.Echo L_Help_HELP_General07_Text
    WScript.Echo L_Help_HELP_General07a_Text
    WScript.Echo L_Help_HELP_General08_Text
    WScript.Echo L_Help_HELP_General09_Text
    WScript.Echo L_Help_HELP_General10_Text
    WScript.Echo L_Help_HELP_Status09_Text
    WScript.Echo L_Help_HELP_Status09p1_Text
    WScript.Echo 
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status10_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Start11_Text
    WScript.Echo L_Help_HELP_Start12_Text
    WScript.Echo L_Help_HELP_Start13_Text
    WScript.Echo L_Help_HELP_Start14_Text
End Sub

Sub DisplayStopHelpMessage()
    WScript.Echo L_Help_HELP_Stop01_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Stop02_Text
    WScript.Echo L_Help_HELP_Stop02p1_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status03_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General06_Text
    WScript.Echo L_Help_HELP_General07_Text
    WScript.Echo L_Help_HELP_General07a_Text
    WScript.Echo L_Help_HELP_General08_Text
    WScript.Echo L_Help_HELP_General09_Text
    WScript.Echo L_Help_HELP_General10_Text
    WScript.Echo L_Help_HELP_Status09_Text
    WScript.Echo L_Help_HELP_Status09p1_Text
    WScript.Echo 
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status10_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Stop11_Text
    WScript.Echo L_Help_HELP_Stop12_Text
    WScript.Echo L_Help_HELP_Stop13_Text
    WScript.Echo L_Help_HELP_Stop14_Text
End Sub

Sub DisplayGetADPropHelpMessage()
    WScript.Echo L_Help_HELP_GetADProp01_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_GetADProp02_Text
    WScript.Echo L_Help_HELP_GetADProp02p1_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status03_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General06_Text
    WScript.Echo L_Help_HELP_General07_Text
    WScript.Echo L_Help_HELP_General07a_Text
    WScript.Echo L_Help_HELP_General08_Text
    WScript.Echo L_Help_HELP_General09_Text
    WScript.Echo L_Help_HELP_General10_Text
    WScript.Echo L_Help_HELP_GetADProp10_Text
    WScript.Echo L_Help_HELP_GetADProp10a_Text
    WScript.Echo 
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status10_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_GetADProp11_Text
    WScript.Echo L_Help_HELP_GetADProp12_Text
End Sub

Sub DisplaySetADPropHelpMessage()
    WScript.Echo L_Help_HELP_SetADProp01_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_SetADProp02_Text
    WScript.Echo L_Help_HELP_SetADProp02p1_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status03_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General06_Text
    WScript.Echo L_Help_HELP_General07_Text
    WScript.Echo L_Help_HELP_General07a_Text
    WScript.Echo L_Help_HELP_General08_Text
    WScript.Echo L_Help_HELP_General09_Text
    WScript.Echo L_Help_HELP_General10_Text
    WScript.Echo L_Help_HELP_SetADProp10_Text
    WScript.Echo L_Help_HELP_SetADProp10a_Text
    WScript.Echo 
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status10_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_SetADProp11_Text
    WScript.Echo L_Help_HELP_SetADProp12_Text
End Sub

Sub DisplayPauseHelpMessage()
    WScript.Echo L_Help_HELP_Pause01_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Pause02_Text
    WScript.Echo L_Help_HELP_Pause02p1_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status03_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General06_Text
    WScript.Echo L_Help_HELP_General07_Text
    WScript.Echo L_Help_HELP_General07a_Text
    WScript.Echo L_Help_HELP_General08_Text
    WScript.Echo L_Help_HELP_General09_Text
    WScript.Echo L_Help_HELP_General10_Text
    WScript.Echo L_Help_HELP_Status09_Text
    WScript.Echo L_Help_HELP_Status09p1_Text
    WScript.Echo 
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status10_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Pause11_Text
    WScript.Echo L_Help_HELP_Pause12_Text
    WScript.Echo L_Help_HELP_Pause13_Text
    WScript.Echo L_Help_HELP_Pause14_Text
End Sub

Sub DisplayDeleteHelpMessage()
    WScript.Echo L_Help_HELP_Delete01_Text
    WScript.Echo L_Help_HELP_Delete01p1_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Delete02_Text
    WScript.Echo L_Help_HELP_Delete02p1_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status03_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General06_Text
    WScript.Echo L_Help_HELP_General07_Text
    WScript.Echo L_Help_HELP_General07a_Text
    WScript.Echo L_Help_HELP_General08_Text
    WScript.Echo L_Help_HELP_General09_Text
    WScript.Echo L_Help_HELP_General10_Text
    WScript.Echo L_Help_HELP_Status09_Text
    WScript.Echo L_Help_HELP_Status09p1_Text
    WScript.Echo 
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status10_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Delete11_Text
    WScript.Echo L_Help_HELP_Delete12_Text
    WScript.Echo L_Help_HELP_Delete13_Text
    WScript.Echo L_Help_HELP_Delete14_Text
End Sub

Sub DisplayCreateHelpMessage()
    WScript.Echo L_Help_HELP_Create01_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Create02_Text
    WScript.Echo L_Help_HELP_Create02p1_Text
    WScript.Echo L_Help_HELP_Create03_Text
    WScript.Echo L_Help_HELP_Create03a_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status03_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General06_Text
    WScript.Echo L_Help_HELP_General07_Text
    WScript.Echo L_Help_HELP_General07a_Text
    WScript.Echo L_Help_HELP_General08_Text
    WScript.Echo L_Help_HELP_General09_Text
    WScript.Echo L_Help_HELP_General10_Text
    WScript.Echo L_Help_HELP_Create09_Text
    WScript.Echo L_Help_HELP_Create09p1_Text
    WScript.Echo L_Help_HELP_Create09p2_Text
    WScript.Echo L_Help_HELP_Create10_Text
    WScript.Echo L_Help_HELP_Create10p1_Text
    WScript.Echo L_Help_HELP_Create12_Text
    WScript.Echo L_Help_HELP_Create12p1_Text
    WScript.Echo L_Help_HELP_Create13_Text
    WScript.Echo L_Help_HELP_Create13p1_Text
    WScript.Echo L_Help_HELP_Create15_Text
    WScript.Echo L_Help_HELP_Create16_Text
    WScript.Echo L_Help_HELP_Create17_Text
    WScript.Echo L_Help_HELP_Create17a_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status10_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Create22_Text
    WScript.Echo L_Help_HELP_Create23_Text
    WScript.Echo L_Help_HELP_Create23p1_Text
    WScript.Echo L_Help_HELP_Create24_Text
End Sub

Sub DisplayQueryHelpMessage()
    WScript.Echo L_Help_HELP_Query01_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Query02_Text
    WScript.Echo L_Help_HELP_Query02p1_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status03_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_General06_Text
    WScript.Echo L_Help_HELP_General07_Text
    WScript.Echo L_Help_HELP_General07a_Text
    WScript.Echo L_Help_HELP_General08_Text
    WScript.Echo L_Help_HELP_General09_Text
    WScript.Echo L_Help_HELP_General10_Text
    WScript.Echo L_Help_HELP_Status09_Text
    WScript.Echo L_Help_HELP_Status09p1_Text
    WScript.Echo 
    WScript.Echo 
    WScript.Echo L_Help_HELP_Status10_Text
    WScript.Echo 
    WScript.Echo L_Help_HELP_Query11_Text
    WScript.Echo L_Help_HELP_Query12_Text
    WScript.Echo L_Help_HELP_Query13_Text
    WScript.Echo L_Help_HELP_Query14_Text
    WScript.Echo L_Help_HELP_Query15_Text
End Sub


'''''''''''''''''''''''''''
' ChangeFtpSiteStatus
'
' Try to change the status of a site 
' to the one specified 
'''''''''''''''''''''''''''
Function ChangeFtpSiteStatus(aArgs, newStatus)
    Dim Server, strSiteName
    Dim intResult, i, intNewStatus
    Dim aSites
    Dim providerObj, ServiceObj
    Dim bNonFatalError

    On Error Resume Next

    bNonFatalError = False

    oScriptHelper.WMIConnect
    If Err.Number Then
        WScript.Echo L_WMIConnect_ErrorMessage
        oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
        ChangeFtpSiteStatus = Err.Number
        Exit Function
    End If
    
    Set providerObj = oScriptHelper.ProviderObj
    intResult = 0

    ' Quick check to see if we have permission
    Set ServiceObj = providerObj.Get("IIsFtpService='MSFTPSVC'")
    If Err.Number Then
        Select Case Err.Number
            Case &H80070005
                WScript.Echo L_Admin_ErrorMessage
                WScript.Echo L_Admin2_ErrorMessage

            Case Else
                WScript.Echo Err.Description
        End Select
        
        ChangeFtpSiteStatus = Err.Number
        Exit Function
    End If

    aSites = oScriptHelper.FindSite("Ftp", aArgs)
    If IsArray(aSites) Then
        If UBound(aSites) = -1 Then
            WScript.Echo L_SitesNotFound_ErrorMessage
            intResult = ERR_GENERAL_FAILURE
        End If
    Else
        ' Got duplicate sites. We should quit.
        ChangeFtpSiteStatus = intResult
        Exit Function
    End If
    
    For i = LBound(aSites) to UBound(aSites)

        bNonFatalError = False

        strSiteName = aSites(i)
    
        ' Grab site state before trying to start it
        Set Server = providerObj.Get("IIsFtpServer='" & strSiteName & "'")
        If (Err.Number <> 0) Then
            WScript.Echo L_GetFtpServer_ErrorMessage
            oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
            intResult = Err.Number
        End If
        
        If (Server.ServerState = newStatus) Then
            oCmdLib.vbPrintf L_IsAlready_Message, Array(strSiteName, UCase(SiteStatus(newStatus)))
        Else 
            If (Server.ServerState = SERVER_STARTING or Server.ServerState = SERVER_STOPPING or _
                Server.ServerState = SERVER_PAUSING or Server.ServerState = SERVER_CONTINUING) Then
                
                WScript.Echo L_CannotControl_ErrorMessage
                intResult = ERR_GENERAL_FAILURE
            Else
            
                Select Case newStatus
                    Case SERVER_STARTED
                        If (Server.ServerState = SERVER_STOPPED) Then
                            intNewStatus = SERVER_STARTED
                            Server.Start
                        Else 
                            If (Server.ServerState = SERVER_PAUSED) Then
                                intNewStatus = SERVER_CONTINUING
                                Server.Continue
                            Else
                                oCmdLib.vbPrintf L_CannotStart_Message, Array(strSiteName)
                                oCmdLib.vbPrintf L_CannotStart2_Message, Array(strSiteName, SiteStatus(Server.ServerState))
                                bNonFatalError = True
                            End If
                        End If
                        
                    Case SERVER_STOPPED
                        If (Server.ServerState = SERVER_STARTED) Then
                            intNewStatus = SERVER_STOPPED
                            Server.Stop
                        Else
                            WScript.Echo L_CannotStop_Message
                            oCmdLib.vbPrintf L_CannotStop2_Message, Array(strSiteName, SiteStatus(Server.ServerState))
                            bNonFatalError = True
                        End If
                    
                    Case SERVER_PAUSED
                        If (Server.ServerState = SERVER_STARTED) Then
                            intNewStatus = SERVER_PAUSED
                            Server.Pause
                        Else
                            WScript.Echo L_CannotPause_Message
                            oCmdLib.vbPrintf L_CannotPause2_Message, Array(strSiteName, SiteStatus(Server.ServerState))
                            bNonFatalError = True
                        End If
                    
                    Case Else
                        WScript.Echo L_UnexpectedState_ErrorMessage
                        WScript.Quit(ERR_GENERAL_FAILURE)

                End Select
                
                ' Error checking
                If (Err.Number <> 0) Then
                    oCmdLib.vbPrintf L_FailChange_ErrorMessage, Array(strSite)
                    oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
                    intResult = Err.Number
                Else
                    If (bNonFatalError = False) Then
                        oCmdLib.vbPrintf L_HasBeen_Message, Array(strSiteName, UCase(SiteStatus(intNewStatus)))
                    End If
                End If
            End If	
        End If
            
    Next
 
    Set Server = Nothing
    
    ChangeFtpSiteStatus = intResult
End Function


'''''''''''''''''''''''''''
' DeleteFtpSite
'''''''''''''''''''''''''''
Function DeleteFtpSite(aArgs)
    Dim strSiteName
    Dim RootVDirObj, FtpServerObj
    Dim aSites
    Dim providerObj, ServiceObj
    
    On Error Resume Next

    oScriptHelper.WMIConnect
    If Err.Number Then
        WScript.Echo L_WMIConnect_ErrorMessage
        oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
        DeleteFtpSite = Err.Number
        Exit Function
    End If

    Set providerObj = oScriptHelper.ProviderObj

    ' Quick check to see if we have permission
    Set ServiceObj = providerObj.Get("IIsFtpService='MSFTPSVC'")
    If Err.Number Then
        Select Case Err.Number
            Case &H80070005
                WScript.Echo L_Admin_ErrorMessage
                WScript.Echo L_Admin2_ErrorMessage

            Case Else
                WScript.Echo Err.Description
        End Select
        
        DeleteFtpSite = Err.Number
        Exit Function
    End If

    aSites = oScriptHelper.FindSite("Ftp", aArgs)
    If IsArray(aSites) Then
        If UBound(aSites) = -1 Then
            WScript.Echo L_SitesNotFound_ErrorMessage
            intResult = ERR_GENERAL_FAILURE
        End If
    Else
        ' Got duplicate sites. We should quit.
        ChangeFtpSiteStatus = intResult
        Exit Function
    End If
    
    For Each strSiteName in aSites
        ' Stop and delete the ftp site
        Set FtpServerObj = providerObj.Get("IIsFtpServer='" & strSiteName & "'")
        If (Err.Number <> 0) Then
            oCmdLib.vbPrintf L_SiteGet_ErrorMessage, Array(strSiteName)
            oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
            DeleteFtpSite = Err.Number
            Exit Function
        End If
        
        FtpServerObj.Stop
        If (Err.Number <> 0) Then
            oCmdLib.vbPrintf L_Stop_ErrorMessage, Array(strSiteName)
            oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
            DeleteFtpSite = Err.Number
            Exit Function
        End If
        
        FtpServerObj.Delete_
        If (Err.Number <> 0) Then
            oCmdLib.vbPrintf L_SiteDel_ErrorMessage, Array(strSiteName)
            oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
            DeleteFtpSite = Err.Number
            Exit Function
        End If
        
        oCmdLib.vbPrintf L_HasBeen_Message, Array(strSiteName, UCase(SiteStatus(8)))
    Next

    DeleteFtpSite = ERR_OK
End Function


'''''''''''''''''''''''''''
' GetADProp
'''''''''''''''''''''''''''
Function GetADProp(strServer, strUser, strPassword, aArgs)
    Dim objLocator
    Dim objService
    Dim collObj, userObj
    
    On Error Resume Next

    Set objLocator = CreateObject("WbemScripting.SWbemLocator")
    ' Set the impersonation level
    objLocator.Security_.ImpersonationLevel = 3

    If strUser <> "" And strPassword <> "" Then
        Set objService = objLocator.ConnectServer(strServer, "root\directory\LDAP", strUser, strPassword)
    Else
        Set objService = objLocator.ConnectServer(strServer, "root\directory\LDAP")
    End If
            
    If Err.Number Then
        oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
        GetADProp = Err.Number
        Exit Function
    End If

    ' Set the impersonation level
    objService.Security_.ImpersonationLevel = 3

    Set collObj = objService.ExecQuery("select * from ds_user where DS_sAMAccountName='" & aArgs(0) & "'")
	If Err.Number Then
		oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
		GetADProp = Err.Number
	Else
		If collObj.Count = 0 Then
			oCmdLib.vbPrintf L_ADUserNotFound_ErrorMessage, Array(aArgs(0))
			' Returns "element not found" error
			GetADProp = &H80070490
		Else
		    oCmdLib.vbPrintf L_GetAD_Message, Array(aArgs(1), aArgs(0))
		
		    For Each userObj in collObj
		        If UCase(aArgs(1)) = "FTPDIR" Then
		            WScript.Echo userObj.DS_msIIS_FTPDir
		        ElseIf UCase(aArgs(1)) = "FTPROOT" Then
		            WScript.Echo userObj.DS_msIIS_FTPRoot
		        Else
		            oCmdLib.vbPrintf L_InvalidArg_ErrorMessage, Array(aArgs(1))
		            GetADProp = ERR_GENERAL_FAILURE
		            Exit Function
		        End If
		    Next

		    GetADProp = ERR_OK
		End If
	End If
End Function


'''''''''''''''''''''''''''
' SetADProp
'''''''''''''''''''''''''''
Function SetADProp(strServer, strUser, strPassword, aArgs)
    Dim objLocator
    Dim objService
    Dim collObj, userObj
    Dim octx
    Dim propName

    On Error Resume Next

    Set objLocator = CreateObject("WbemScripting.SWbemLocator")
    ' Set the impersonation level
    objLocator.Security_.ImpersonationLevel = 3

    If strUser <> "" And strPassword <> "" Then
        Set objService = objLocator.ConnectServer(strServer, "root\directory\LDAP", strUser, strPassword)
    Else
        Set objService = objLocator.ConnectServer(strServer, "root\directory\LDAP")
    End If
            
    If Err.Number Then
        oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
        SetADProp = Err.Number
        Exit Function
    End If

    ' Set the impersonation level
    objService.Security_.ImpersonationLevel = 3

    Set collObj = objService.ExecQuery("select * from ds_user where DS_sAMAccountName='" & aArgs(0) & "'")
	If Err.Number Then
		oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
		SetADProp = Err.Number
	Else
		If collObj.Count = 0 Then
			oCmdLib.vbPrintf L_ADUserNotFound_ErrorMessage, Array(aArgs(0))
			' Returns "element not found" error
			SetADProp = &H80070490
		Else
		    Set octx = CreateObject("WbemScripting.SWbemNamedValueSet")
		    octx.Add "__PUT_EXT_PROPERTIES", Array("DS_msIIS_FTPDir","DS_msIIS_FTPRoot")
		    octx.Add "__PUT_EXTENSIONS", True
		    octx.Add "__PUT_EXT_CLIENT_REQUEST", True
		
		    For Each userObj in collObj
		        If UCase(aArgs(1)) = "FTPROOT" Then
			        userObj.DS_msIIS_FTPRoot = aArgs(2)
		        Elseif UCase(aArgs(1)) = "FTPDIR" Then
			        userObj.DS_msIIS_FTPDir  = aArgs(2)
		        Else
		            oCmdLib.vbPrintf L_InvalidArg_ErrorMessage, Array(aArgs(1))
		            SetADProp = ERR_GENERAL_FAILURE
		            Exit Function
		        End If
		
			    userObj.Put_ 1, octx
			    If Err.Number Then
					oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
					SetADProp = Err.Number
					Exit Function
			    End If
		    Next
		
		    oCmdLib.vbPrintf L_SetAD_Message, Array(aArgs(1), aArgs(0), aArgs(2))
		
		    SetADProp = ERR_OK
		End If
	End If
End Function


'''''''''''''''''''''''''''
' CreateFtpSite
'''''''''''''''''''''''''''
Function CreateFtpSite(strRoot, strName, strPort, strIP, bDontStart, strISO, strADDomain, strADAdmin, strADPass)
    Dim strSitePath
    Dim strSiteObjPath
    Dim Bindings
    Dim objPath, serviceObj
    Dim serverObj, vdirObj, settingObj
    Dim strStatus
    Dim providerObj
    
    On Error Resume Next
    
    ' Default port
    If (strPort = "") Then strPort = "21"

    ' Verify port number
    If Not oScriptHelper.IsValidPortNumber(strPort) Then
        WScript.Echo L_InvalidPort_ErrorMessage
        CreateFtpSite = ERR_GENERAL_FAILURE
        Exit Function
    End If
    
    ' Verify IP Address
    If strIP <> "" Then
        If Not oScriptHelper.IsValidIPAddress(strIP) Then
            WScript.Echo L_InvalidIP_ErrorMessage
            WScript.Echo L_InvalidIP2_ErrorMessage
            CreateFtpSite = ERR_GENERAL_FAILURE
            Exit Function
        End If
    End If
    
    ' Create physical directory
    If strRoot <> "" Then
        oScriptHelper.CreateFSDir strRoot
        If Err.Number Then
            Select Case Err.Number
                Case &H8007000C
                    WScript.Echo L_DirFormat_ErrorMessage
                    WScript.Echo L_DirFormat2_ErrorMessage
                    WScript.Echo L_SeeCreateHelp_Message
                    CreateFtpSite = Err.Number
                    Exit Function
            
                Case &H8007000F
                    WScript.Echo L_MapDrive_ErrorMessage
                    CreateFtpSite = Err.Number
                    Exit Function
    
                Case Else
                    WScript.Echo L_CannotCreateDir_ErrorMessage
                    oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
                    CreateFtpSite = Err.Number
                    Exit Function
            End Select
        End If
    End If

    ' Time to connect to the IIS namespace
    oScriptHelper.WMIConnect
    If Err.Number Then
        WScript.Echo L_WMIConnect_ErrorMessage
        oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
        CreateFtpSite = Err.Number
        Exit Function
    End If

    Set providerObj = oScriptHelper.ProviderObj
    
    ' Build binding object
    Bindings = Array(0)
    Set Bindings(0) = providerObj.get("ServerBinding").SpawnInstance_()
    Bindings(0).IP = strIP
    Bindings(0).Port = strPort

    Set serviceObj = providerObj.Get("IIsFtpService='MSFTPSVC'")
    If Err.Number Then
        Select Case Err.Number
            Case &H80070005
                WScript.Echo L_Admin_ErrorMessage
                WScript.Echo L_Admin2_ErrorMessage

            Case Else
                WScript.Echo Err.Description
        End Select
        
        CreateFtpSite = Err.Number
        Exit Function
    End If

    strSiteObjPath = serviceObj.CreateNewSite(strName, Bindings, strRoot)
    If Err Then
        oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
        CreateWebSite = Err.Number
        Exit Function        
    End If
    
    ' Parse site ID out of WMI object path
    Set objPath = CreateObject("WbemScripting.SWbemObjectPath")
    objPath.Path = strSiteObjPath
    strSitePath = objPath.Keys.Item("")

    ' Set ftp virtual directory properties
    Set vdirObj = providerObj.Get("IIsFtpVirtualDirSetting='" & strSitePath & "/ROOT'")
    vdirObj.AccessFlags = 1 ' read
    If UCase(strISO) = "AD" Then
        vdirObj.AccessFlags = 32769 ' read, AccessNoPhysicalDir
    End If
    vdirObj.Put_()
    If Err Then
        WScript.Echo L_VDirPut_ErrorMessage
        oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
        providerObj.Delete(strSiteObjPath)
        CreateWebSite = Err.Number
        Exit Function        
    End If

    ' Site is stopped - CreateNewSite stops it by default
    Set serverObj =  providerObj.Get("IIsFtpServer='" & strSitePath & "'")
    Set settingObj = providerObj.Get("IIsFtpServerSetting='" & strSitePath & "'")

    ' set UserIsolationMode
    If strISO <> "" Then
        If UCase(strISO) = "LOCAL" Then
            settingObj.UserIsolationMode = 1
            settingObj.Put_()
        End If

        If UCase(strISO) = "AD" Then
            settingObj.UserIsolationMode = 2
            settingObj.DefaultLogonDomain = strADDomain
            settingObj.ADConnectionsUserName = strADAdmin
            settingObj.ADConnectionsPassword = strADPass
            settingObj.AllowAnonymous = False
            settingObj.Put_()
        End If

    End If

    ' Should we start the site?
    If Not bDontStart Then
        serverObj.Start
        ' If we cannot start the server, check for error stating the port is already in use
        If Err.Number = &H80070034 Or Err.Number = &H80070020 Or Err.Number = &H80070057 Then
            strStatus = UCase(SiteStatus(4)) & " " & L_BindingConflict_ErrorMessage
        Else
            strStatus = UCase(SiteStatus(2))
        End If
    Else
        strStatus = UCase(SiteStatus(4))
    End If

    If (strServer = ".") Then 
        strServer = oScriptHelper.GetEnvironmentVar("%COMPUTERNAME%")
    End If

    If (strIP = "")  Then strIP  = L_AllUnassigned_Text
    If (strISO = "") Then strISO = L_NoISO_Text

    ' Post summary
    WScript.Echo L_Server_Text & Space(14 - Len(L_Server_Text)) & "= " & UCase(strServer)
    WScript.Echo L_SiteName_Text & Space(14 - Len(L_SiteName_Text)) & "= " & strName
    WScript.Echo L_MetabasePath_Message & Space(14 - Len(L_MetabasePath_Message)) & "= " & strSitePath
    WScript.Echo L_IP_Text & Space(14 - Len(L_IP_Text)) & "= " & strIP
    WScript.Echo L_Port_Text & Space(14 - Len(L_Port_Text)) & "= " & strPort
    WScript.Echo L_Root_Text & Space(14 - Len(L_Root_Text)) & "= " & strRoot
    WScript.Echo L_ISO_Text & Space(14 - Len(L_ISO_Text)) & "= " & strISO
    WScript.Echo L_Status_Text& Space(14 - Len(L_Status_Text)) & "= " & strStatus
    
    CreateFtpSite = intResult
End Function


'''''''''''''''''''''''''''
' QueryFtpSite
'''''''''''''''''''''''''''
Function QueryFtpSite(aArgs)
    Dim Servers, Server, strQuery
    Dim ServerObj, ServiceObj
    Dim i, intResult, firstLen
    Dim bindings, binding
    Dim line, strIP, strPort, strState
    Dim providerObj
    Dim bFirstIteration
    
    On Error Resume Next

    oScriptHelper.WMIConnect
    If Err.Number Then
        WScript.Echo L_WMIConnect_ErrorMessage
        oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
        QueryFtpSiteStatus = Err.Number
        Exit Function
    End If

    Set providerObj = oScriptHelper.ProviderObj
    intResult = 0

    ' Quick check to see if we have permission
    Set ServiceObj = providerObj.Get("IIsFtpService='MSFTPSVC'")
    If Err.Number Then
        Select Case Err.Number
            Case &H80070005
                WScript.Echo L_Admin_ErrorMessage
                WScript.Echo L_Admin2_ErrorMessage

            Case Else
                WScript.Echo Err.Description
        End Select
        
        QueryFtpSite = Err.Number
        Exit Function
    End If

    If (UBound(aArgs) = -1) Then
        strQuery = "select Name, ServerComment, ServerBindings from IIsFtpServerSetting"
    Else
        strQuery = "select Name, ServerComment, ServerBindings from IIsFtpServerSetting where "
        For i = LBound(aArgs) to UBound(aArgs)
            strQuery = strQuery & "(Name='" & aArgs(i) & "' or ServerComment='" & aArgs(i) & "')"
            If (i <> UBound(aArgs)) Then
                strQuery = strQuery & " or "
            End If
        Next
    End If
    
    ' Semi-sync query. (flags = ForwardOnly Or ReturnImediately = &H30)
    Set Servers = providerObj.ExecQuery(strQuery, , &H30)
    If (Err.Number <> 0) Then
        WScript.Echo L_Query_ErrorMessage
        oCmdLib.vbPrintf L_Error_ErrorMessage, Array(Hex(Err.Number), Err.Description)
        WScript.Quit(Err.Number)
    End If

    bFirstIteration = True
    For Each Server in Servers
        bindings = Server.ServerBindings

        If bFirstIteration Then
            WScript.Echo L_SiteName_Text & " (" & L_MetabasePath_Message & ")" & _
                Space(40 - Len(L_SiteName_Text & L_MetabasePath_Message) + 3) & _
                L_Status_Text & Space(4) & L_IP_Text & Space(14) & L_Port_Text
            WScript.Echo "=============================================================================="
        End If
        
        ' Get server status from the element instance
        Set ServerObj = providerObj.Get("IIsFtpServer='" & Server.Name & "'")
        strState = UCase(SiteStatus(ServerObj.ServerState))
        
        If (IsArray(bindings)) Then
            For i = LBound(bindings) to UBound(bindings)
                If (bindings(i).IP = "") Then
                    strIP = L_All_Text
                Else
                    strIP = bindings(i)
                End If
    
                strPort = bindings(i).Port

                ' If this is the first binding list, print server comment and server name		
                If (i = LBound(bindings)) Then

                    firstLen = 40 - Len(Server.ServerComment & Server.Name) + 3

                    If (firstLen < 1) Then
                        firstLen = 1
                    End If

                    line = Server.ServerComment & " (" & Server.Name & ")" & _
                        Space(firstLen) & strState & _
                        Space(10 - Len(strState)) & strIP & Space(16 - Len(strIP)) & strPort
                Else
                    line = Space(56) & strIP & Space(16 - Len(strIP)) & strPort
                End If

                WScript.Echo line
            Next
        End If
        
        bFirstIteration = False
    Next
    
    If bFirstIteration Then
        WScript.Echo L_SitesNotFound_ErrorMessage
    End If
        
End Function