0

Windows 7 PC のリモート ネットワーク ドライブに接続する HTA ファイルを作成しようとしています。これを行うには、ユーザー名/パスワードが必要です。次のコードがあります。

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