I'm not a programmer in any way and because of that i realy need help with this.
Maybe somebody have had a peek on the ftp user isolation mode in iis 6. U can create a FTP site that isolates users in a defined path by extracting values from the AD. I have set up such ftp site and got it to work. First u create the site then u set properties to the user regarding his ftproot and ftpdir path. My problem is that i have only figured out how to do this with one user at a time and i'm going to do so for 1500 users in one week. There must be a way to do it by script.
The command i'm running to set it for one user is:
(In MS Dos prompt i write)
This means that the fysical path to the user buffalo.bill is D:\SHARE\ELEV\DEPARTMENT\buffalo.bill
When the user connects to the ftpserver he is entering ftp:\\servername and then he is redirected to his ftpdir.
I have tried to run this commandlines in logonscript with %username% but cant get it to work. The commands must be run on the server it self.
So is there a way to run a script that gets the username from a msaccess db, the path to ftproot and ftpdir is pretty much the same for all users. The DEPARTMENT and Username are the only thing that changes, thats not the big problem....
Here is the iisftp vbscript that comes with iis install.
Hope that someone can crack this beast!
Maybe somebody have had a peek on the ftp user isolation mode in iis 6. U can create a FTP site that isolates users in a defined path by extracting values from the AD. I have set up such ftp site and got it to work. First u create the site then u set properties to the user regarding his ftproot and ftpdir path. My problem is that i have only figured out how to do this with one user at a time and i'm going to do so for 1500 users in one week. There must be a way to do it by script.
The command i'm running to set it for one user is:
(In MS Dos prompt i write)
Code:
iisftp.vbs /SetADProp buffalo.bill FTPRoot D:\SHARE\ELEV
iisftp.vbs /SetADProp buffalo.bill FTPDir \DEPARTMENT\buffalo.billThis means that the fysical path to the user buffalo.bill is D:\SHARE\ELEV\DEPARTMENT\buffalo.bill
When the user connects to the ftpserver he is entering ftp:\\servername and then he is redirected to his ftpdir.
I have tried to run this commandlines in logonscript with %username% but cant get it to work. The commands must be run on the server it self.
So is there a way to run a script that gets the username from a msaccess db, the path to ftproot and ftpdir is pretty much the same for all users. The DEPARTMENT and Username are the only thing that changes, thats not the big problem....
Here is the iisftp vbscript that comes with iis install.
Code:
'
' 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 FunctionHope that someone can crack this beast!
