Function RunExmerge(ByVal serverName)
Dim listFile, objFile, strComputer, objWMIService, objExec, itemsInQueue
Set WshShell = WScript.CreateObject(“WScript.Shell”)
Set objFS = CreateObject(“Scripting.FileSystemObject”)
listFile = ExmergeFolder & serverName & “DNs.txt”
Set objFile = objFS.OpenTextFile(listFile,ForReading)
itemsInQueue = objFile.AtEndOfStream
objFile.Close
If itemsInQueue <> True Then
WriteLog “Running Exmerge for server ” & serverName
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & WSH_Namespace)
Set objExec = WshShell.Exec(“E:\program files\Exchsrvr\bin\Exmerge.exe -B -F ” & ExmergeFolder & serverName &”.ini -logmed”)
End If
End Function