Set cfgObj = CreateObject("BssCfg554.BssCfg554")
cfgObj.SetSite("Bitvise SSH Server")		' Optional, but necessary if multiple SSH server sites are installed
cfgObj.LockServerSettings()
cfgObj.LoadServerSettings()
cfgObj.ProcessInstruction("access.winAccounts.New.winAccount ""jones""")
cfgObj.ProcessInstruction("access.winAccounts.New.loginAllowed true")
cfgObj.ProcessInstruction("access.winAccounts.New.sfsMap.inheritMountPoints false")
cfgObj.ProcessInstruction("access.winAccounts.New.sfsMap.mountPoints.New.realRootPath ""c:\\sftp\\jones""")
cfgObj.ProcessInstruction("access.winAccounts.New.sfsMap.mountPoints.NewCommit")
cfgObj.ProcessInstruction("access.winAccounts.NewCommit")
cfgObj.SaveServerSettings()
cfgObj.UnlockServerSettings()