' Listing 5: Excerpt from the GetHPArray Function

Function GetHPArray(strComputer2, strUsername2, strPassword2)
   ' Create the necessary objects.
   Set objWMIServiceRem = objWMIService.Get("Win32_Process")
   Set objHPShell = CreateObject("WScript.Shell")
   Set objHPFSO = CreateObject("Scripting.FileSystemObject")

' ******* BEGIN CALLOUT A *******
   ' Create a network connection without a drive letter.
   Set WshNetwork2 = WScript.CreateObject("WScript.Network")
   WshNetwork2.MapNetworkDrive "", "\\" & strComputer2 & "\C$",, _
      strUsername2, strPassword2
' ******* END CALLOUT A *******

   ' Set the location of the HP ACU.
   strProgram = "\\" & strComputer2 & _
      "\C$\Program Files\Compaq\Cpqacuxe\Bin\cpqacuxe.exe"
   ' Ensure access is possible.
   If objHPFSO.FileExists(strProgram) Then
      ' Execute the HP ACU.
      strProcess = Chr(34) & _
         "C:\Program Files\Compaq\Cpqacuxe\Bin\cpqacuxe.exe" _
         & Chr(34) & " -c c:\output.txt"
      Process = objWMIServiceRem.Create(strProcess, null, null, intProcessID)