This is a minimal VBScript translation of what you linked to:
Option Explicit
Dim wmi
Dim col
DIm itm
Set wmi = GetObject("winmgmts:\\.\root\cimv2")
Set col = wmi.ExecQuery("Select DeviceID,ProviderName From Win32_LogicalDisk where DriveType=4")
With WScript
For Each itm in col
.Echo "========="
.Echo "DeviceID:" & vbTab & itm.DeviceID
.Echo "ProviderName:" & vbTab & itm.ProviderName
Next
End With
Set wmi = Nothing
Set col = Nothing
WScript.Quit
In short, I don't think it is quite what you want... I think you would have to map drives first before running this.
The tidier way to do it would be to run a query against Active Directory to find the DFS share definitions, but where to actually look within AD can be difficult to identify