Function RunExmerge(ByVal serverName)
\n\u00c2\u00a0 Dim listFile, objFile, strComputer, objWMIService, objExec, itemsInQueue
\n\u00c2\u00a0 Set WshShell = WScript.CreateObject(“WScript.Shell”)
\n\u00c2\u00a0 Set objFS = CreateObject(“Scripting.FileSystemObject”)<\/p>\n
\u00c2\u00a0 listFile = ExmergeFolder & serverName & “DNs.txt”
\n\u00c2\u00a0 Set objFile = objFS.OpenTextFile(listFile,ForReading)
\n\u00c2\u00a0 itemsInQueue = objFile.AtEndOfStream
\n\u00c2\u00a0 objFile.Close<\/p>\n
\u00c2\u00a0 If itemsInQueue <> True Then
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 WriteLog “Running Exmerge for server ” & serverName
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 strComputer = “.”
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Set objWMIService = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\\\” & strComputer & WSH_Namespace)
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Set objExec = WshShell.Exec(“E:\\program files\\Exchsrvr\\bin\\Exmerge.exe -B -F ” & ExmergeFolder & serverName &”.ini -logmed”)
\n\u00c2\u00a0 End If
\nEnd Function<\/p>\n","protected":false},"excerpt":{"rendered":"
Function RunExmerge(ByVal serverName) \u00c2\u00a0 Dim listFile, objFile, strComputer, objWMIService, objExec, itemsInQueue \u00c2\u00a0 Set WshShell = WScript.CreateObject(“WScript.Shell”) \u00c2\u00a0 Set objFS = CreateObject(“Scripting.FileSystemObject”) \u00c2\u00a0 listFile = ExmergeFolder & serverName & “DNs.txt” \u00c2\u00a0 Set objFile = objFS.OpenTextFile(listFile,ForReading) \u00c2\u00a0 itemsInQueue = objFile.AtEndOfStream \u00c2\u00a0 objFile.Close \u00c2\u00a0 If itemsInQueue <> True Then \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 WriteLog “Running Exmerge for server ” & serverName…<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":30,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"jetpack_post_was_ever_published":false,"footnotes":""},"class_list":["post-46","page","type-page","status-publish","hentry"],"jetpack_shortlink":"https:\/\/wp.me\/Pkp1o-K","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/46","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/comments?post=46"}],"version-history":[{"count":0,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/46\/revisions"}],"up":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/30"}],"wp:attachment":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/media?parent=46"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}