update the script Option Explicit Dim obBaseApp Dim objFSO Dim objTextFile Dim strNewUser,i Const ForReading = 1 Set obBaseApp = CreateObject("hMailServer.Application") Call obBaseApp.Authenticate("Administrator","admin password") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFi...