Set write access on local ftpsite.

This script sets write access on the local FTP site. After installing FTP server default access is readonly.

'*****************************************************************
'** Script:   SetFtpWrite.vbs
'** Version:  1.0
'** Created:  date / time
'** Author:   Adriaan Westra
'** E-mail:   
'**
'** Purpose / Comments:
'**     Set write access on FTP site.
'**
'** Changelog :
'** date / time     : Reason
'** 22-05-2006 07:44  : Initial version
'**
'*****************************************************************


' Get reference to the Networkingobject
Set WN = Wscript.CreateObject("Wscript.Network")

' Get computername
strComputer = WN.ComputerName

' Get reference to the Default FTP Site
Set objFTPSite = GetObject("IIS://" & strComputer & "/MSFTPSVC/1/root")

'Set write access to true
objFTPSite.AccessWrite = TRUE

'Save settings
ObjFTPSite.setinfo