Set cfg = CreateObject("BssCfg554.BssCfg554")
cfg.LockServerSettings()
cfg.LoadServerSettings()

Dim accountsStr, accountsArray
accountsStr = cfg.QueryValue("access.winAccounts.All", false)
accountsArray = Split(accountsStr, Chr(13) & Chr(10))

For Each account in accountsArray
    If Len(account) > 0 Then
        WScript.Echo("Processing " & account)

        Dim initDir
        initDir = cfg.QueryValue(account & ".initDir", true)
        cfg.ProcessInstruction(account & ".sfsMap.inheritMountPoints false")
        cfg.ProcessInstruction(account & ".sfsMap.mountPoints.Clear")
        cfg.ProcessInstruction(account & ".sfsMap.mountPoints.New.realRootPath " & initDir)
        cfg.ProcessInstruction(account & ".sfsMap.mountPoints.NewCommit")
    End If
Next

cfg.SaveServerSettings()
cfg.UnlockServerSettings()