VBS-Script für NSLOOKUP - DNS-Server

Moin,

ich habe ein VBS-Script mit dem ich per NSLOOKUP Servernamen auflösen kann.
Funktioniert auch ganz gut !

Nun will ich aber einen bestimmten DNS-Server abfragen. Habe es aber nicht geschafft einen bestimmten mitzugeben....

Vielleicht könnt ihr mir da weiterhelfen, wie ich es schaffe einen bestimmten DNS-Server abzufragen !?

Hier das Script dass ich für die NSLOOKUP Abfrage benutze:

WScript.Echo DNSLookup("SERVER01")   ' Server / Client der per NSLOOKUP aufgelöst werden soll  

Function DNSLookup(sAlias)
  
  Set objWSHShell = WScript.CreateObject("WScript.Shell")  
  Set objShell = CreateObject("Shell.Application")  
  
  
  If len(sAlias) = 0 Then
    DNSLookup = "Failed."  
    Exit Function
  End If

  Const OpenAsDefault = -2
  Const FailIfNotExist = 0
  Const ForReading = 1

  Set oShell = CreateObject("WScript.Shell")  
  Set oFSO = CreateObject("Scripting.FileSystemObject")  
  sTemp = oShell.ExpandEnvironmentStrings("%TEMP%")  
  sTempFile = sTemp & "\" & oFSO.GetTempName  

  oShell.Run "%comspec% /c nslookup " & sAlias & ">" & sTempFile, 0, True  

  Set fFile = oFSO.OpenTextFile(sTempFile, ForReading, FailIfNotExist, OpenAsDefault)
  sResults = fFile.ReadAll
  fFile.Close
  oFSO.DeleteFile (sTempFile)

  aIP = Split(sResults, "Address:")  

  If UBound(aIP) < 2 Then
    DNSLookup = "Failed."  
    
   Else
    aIPTemp = Split(aIP(2), Chr(13))
    DNSLookup = trim(aIPTemp(0))
  End If
    
  Set oShell = Nothing
  Set oFSO = Nothing
End Function