Set cfgObj = CreateObject("WinsshdCfg502.WinsshdCfg502")
cfgObj.SetSite("WinSSHD")		' Optional, but necessary if multiple WinSSHD sites are installed
cfgObj.LockWinsshdSettings()
cfgObj.LoadWinsshdSettings()
cfgObj.ProcessInstruction("access.winAccounts.New.winAccount ""jones""")
cfgObj.ProcessInstruction("access.winAccounts.New.loginAllowed true")
cfgObj.ProcessInstruction("access.winAccounts.New.sfsMap.useDefaultSfsMap false")
cfgObj.ProcessInstruction("access.winAccounts.New.sfsMap.mountPoints.1.realRootPath ""c:\\sftp\\jones""")
cfgObj.ProcessInstruction("access.winAccounts.NewCommit")
cfgObj.SaveWinsshdSettings(true)
cfgObj.UnlockWinsshdSettings()