Это от давным-давно, но если Вы не используете DFS или что-то подобное, Вы могли бы найти некоторое использование для этого (если у Вас есть идентичные сценарии, работающие в различных местоположениях, чтобы гарантировать, что файлы выполняются или копируются с корректных локальных серверов):
Dim WSHShell,strRegKey, DFS, DCName
Set WSHShell = WScript.CreateObject("WScript.Shell")
strRegKey="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Group Policy\History\DCName"
DCName = lcase(WSHShell.RegRead(strRegKey))
If DCName = "\\NADC01.domain.com" or DCName = "\\NADC02.domain.com" then
DFS = "NAsite"
ElseIf DCName = "\\UKDC01.domain.com" or DCName = "\\UKDC02.domain.com" then
DFS = "UKsite"
Else
DFS = "anotherSite"
End If
WshShell.Run("\\domain\" & DFS & "\DfsRoot\share\script.cmd")