Listing 1: The Main Code Block in UpdateSIDdb.vbs 

Public DRS,strComputerMaster,FileString

On Error Resume Next
Set WshNetwork = CreateObject("WScript.Network")

' ******* BEGIN CALLOUT A *******
' strComputerMaster = WshNetwork.ComputerName
' ******* END CALLOUT A *******

' ******* BEGIN CALLOUT B *******
strComputerMaster = "DomainControllerName"
' ******* END CALLOUT B *******

FileString = "C:\Temp\DRS-" & strComputerMaster & "-SID.xml"

Call OpenUpdateXML
Call SaveIt
Call CloseIt
' Msgbox "Done"