Listing 1: The Window_Onload Subroutine

Sub Window_Onload
  On Error Resume Next
  ' ******* BEGIN CALLOUT A *******
  ' Set WshNetwork = CreateObject("WScript.Network")
  ' strComputer = WshNetwork.ComputerName
  ' ******* END CALLOUT A *******

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

  ComputerSource.value = strComputer
  self.focus
  self.resizeTo 950,375
  self.moveTo 1,1

  ' ******* BEGIN CALLOUT C *******
  TimerInterval = window.setInterval("OpenXML",100)
  ' ******* END CALLOUT C *******
End Sub