' 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("BssCfg726.BssCfg726") cfg.SetSite("Bitvise SSH Server") ' Optional, but necessary if multiple SSH server sites are installed cfg.LockServerSettings() cfg.LoadServerSettings() cfg.settings.access.winAccountsEx.new.winAccount = "jones" cfg.settings.access.winAccountsEx.new.loginAllowed = cfg.DefaultYesNo.yes cfg.settings.access.winAccountsEx.new.xfer.inheritMountPoints = false cfg.settings.access.winAccountsEx.new.xfer.mountPointsEx.new.realRootPath = "C:\Work" cfg.settings.access.winAccountsEx.new.xfer.mountPointsEx.NewCommit() cfg.settings.access.winAccountsEx.NewCommit() cfg.SaveServerSettings() cfg.UnlockServerSettings()