' Check BssCfgManip.htm in your SSH Server installation directory for the correct COM object name for your installation.
' The VBScript instance executing this script needs to run elevated, as administrator, to access SSH Server settings.

Set cfg = CreateObject("BssCfg815.BssCfg815")

cfg.settings.Lock()
cfg.settings.Load()

For Each account in cfg.settings.access.winAccounts.entries
    WScript.Echo("Processing " & account.winAccount)

    account.xfer.inheritMountPoints = false
    account.xfer.mountPoints.Clear()
    account.xfer.mountPoints.new.allowUnlimitedAccess = false
    account.xfer.mountPoints.new.realRootPath = account.term.initDir
    account.xfer.mountPoints.NewCommit()
Next

cfg.settings.Save()
cfg.settings.Unlock()