' 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")
cfgObj.SetInstance("Bitvise SSH Server")		' Optional, but necessary if multiple SSH server instances are installed
cfgObj.settings.Lock()
cfgObj.settings.Load()
cfgObj.settings.access.winAccounts.new.winAccount = "jones"
cfgObj.settings.access.winAccounts.new.loginAllowed = cfgObj.enums.DefaultYesNo.yes
cfgObj.settings.access.winAccounts.new.xfer.inheritMountPoints = false
cfgObj.settings.access.winAccounts.new.xfer.mountPoints.new.allowUnlimitedAccess = false
cfgObj.settings.access.winAccounts.new.xfer.mountPoints.new.realRootPath = "C:\Work"
cfgObj.settings.access.winAccounts.new.xfer.mountPoints.NewCommit()
cfgObj.settings.access.winAccounts.NewCommit()
cfgObj.settings.Save()
cfgObj.settings.Unlock()