VBScript（HTA）MapNetworkDrive - 登录失败

Question

我正在尝试创建一个HTA文件，除其他外，它连接到Windows 7 PC上的远程网络驱动器。为了做到这一点，我需要一个用户名/密码。我有以下代码：

Sub ConnectDrive
        Set objNetwork = CreateObject("WScript.Network")
        Set oShell = CreateObject("Shell.Application")
        objNetwork.MapNetworkDrive "x:", "\\testsystem3\temp", False, User, Pass
        If Err.Number = 0 Then
            oShell.NameSpace("x:").Self.Name = "Temp on TS3"
        End If 
        Set oShell = Nothing
        Set objNetwork = Nothing
    End Sub

用户和 Pass 是用于连接的实际用户名和密码。

问题是我收到登录失败错误消息：“登录失败：未知用户名或密码错误”。

我确信用户名和密码都可以，因为使用net use x: \\testsystem3\temp /user:User pass命令可以成功连接驱动器。

有关如何使其发挥作用的任何建议吗？我可以关闭Windows 7机器上的密码保护共享，但我不喜欢这样......

谢谢！