You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1521 lines
59 KiB
1521 lines
59 KiB
'
|
|
' 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
|