Const AdminUsername="Admin"
Const AdminPassword="password"

Dim oFTP, rsFTP

Set oFTP = CreateObject("HELM.CFTP")

Set rsFTP = oFTP.Search(AdminUsername, AdminPassword)

WScript.Echo "Recreating "& rsFTP.RecordCount &" FTP Accounts..."

Do While Not rsFTP.EOF
	wscript.Echo "  Recreating "& rsFTP("FTPUserName")
	oFTP.UpdateFTPAccount AdminUserName, AdminPassword, rsFTP("FTPAccountId"), , , , True, True
	rsFTP.MoveNext
Loop

Set oFTP = Nothing