如何使用 VBS 以编程方式将 DFS 路径转换为 ​​UNC？

Question

我有几个脚本必须使用 UNC 路径 - 而不是 DFS - 并且希望能够通过 DFS 路径以编程方式确定 UNC 路径。例如，我们有类似的东西：

\\domain\fs\Home\HomeFolder\MyUserID

我想从中得到这样的 UNC 路径：

\\Server1\HomeFolder\MyUserID

我不能指望像 DFSUtil.exe 这样的实用程序可用。它需要在 VBScript 中。

我在 NET 中找到了以下使用 WMI 的代码，但我无法弄清楚将其转换为可用 VBS 时发生了什么： http://www.codeproject.com/Tips/158829/Convert-a-file-path-to-a-UNC-Path

有人可以帮忙吗？我迷失在翻译中（不会说 NET）...

Answer 1

这是您链接到的内容的最小 VBScript 翻译：

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

简而言之，我认为这不是您想要的...我认为您必须先映射驱动器才能运行它。

更简洁的方法是对 Active Directory 运行查询以查找 DFS 共享定义，但在 AD 中实际查找的位置可能难以识别