VBScript（HTA）MapNetworkDrive-登录失败

我正在尝试创建一个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

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

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

我确信用户名和密码没有问题，因为使用

net use x:\\testsystem3\temp/user:user pass

命令可以成功连接驱动器

有什么建议可以让它工作吗？我可以关闭Windows 7计算机上的密码保护共享，但我不喜欢这样

---

谢谢大家!

用户名的格式是否为

DOMAIN\USER

或

MACHINE\USER

？用户名不包括域或计算机。有必要吗？正如我所说的，当使用网络时，它没有这个功能就可以工作。它不应该是必要的，但有时它会有所帮助。为什么不试试呢？我用

objNetwork.MapNetworkDrive“x:”、“\\testsystem3\temp”、False、“testsystem3\User”、Pass

进行了尝试，但我仍然收到错误消息……服务器上的安全事件日志对失败的登录有何评论？