0

我正在尝试创建一个 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 机器上的密码保护共享，但我不喜欢那样...

谢谢！

4

0 回答 0