Enhancement on Richard's scripts - this version does not display a visible CMD console and makes different assumptions about the formatted output of the route command. We use the script via BGInfo so do not require the "WScript." (context)
specified on lines 12 and 46, if you're running this script raw then add "WScript." ahead of the CreateObject on 12 and the the Echo on 46.
Dim ObjFSO, strTempFolder, strTemp, strTextLine, strIP, intMaxMetric, intMetric, arrValues
' Ask for temp file location and name
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
strTemp = ObjFSO.GetSpecialFolder(2) & "\" & ObjFSO.GetTempName
' Direct output to a temp file (no command chell visible)
WSHCmd = "%comspec% /c route print -4 0.0.0.0 2>&1 >" & strTemp
' If the script is used via BGInfo then drop `WScript` due to context
' Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshShell = CreateObject("WScript.Shell")
return = WshShell.Run(WSHCmd, 0, true)
' Use regular expression to help parse command output.
' We need to replace all whitespace with a single space character.
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.Pattern = "\s+"
' Don't assume there is only one default g/w (MS VPN, dual LAN, etc), find the one with the lowest metric
intMaxMetric = 32767
' Read our temp file line by line, doing regex replacement as we go
Set objFile = objFSO.OpenTextFile(strTemp, 1)
Do Until objFile.AtEndOfStream
strTextLine = objRegExp.Replace(objFile.ReadLine, " ")
' Look for destination 0.0.0.0 and netmask 0.0.0.0 (i.e. default g/w)
if InStr(strTextLine, "0.0.0.0 0.0.0.0") <> 0 then
arrValues=split(strTextLine)
' Metric is "fifth" field in string
intMetric = cint(arrValues(5))
' If this is the lowest metric so far in the table, record the i/f IP
if intMetric < intMaxMetric then
intMaxMetric = intMetric
strIP = arrValues(4)
end if
end if
Loop
' Close and remove the temp file
objFile.close
objFSO.DeleteFile strTemp
' If the script is used via BGInfo then drop `WScript` due to context
'wscript.echo strIP
echo strIP
-- All opinions expressed here are my own and although they comply with my employers code of practice regarding the use of social media my employer cannot be held accountable for them --
