我想用做一個快捷按鈕，點擊按鈕實作 打開局域網某電腦的共享檔案夾，但是有設定登錄名和密碼，現在想說如何做才能自動輸入賬戶名和密碼，實作打開檔案夾。
以下是我網上查過來的代碼 但是點擊登錄的時候，電腦還是一樣跳出要輸入賬戶名和密碼，請高手幫忙看看哦
Sub Loading()
Shell "cmd /c net use \\192.168.222.18 " & Chr(34) & "123" & Chr(34) & " /user:" & Chr(34) & "administrator" & Chr(34), vbHide
Shell "cmd /c start \\192.168.222.18\共享盤 ", vbHide
End Sub
uj5u.com熱心網友回復：
這個網站還有人嗎uj5u.com熱心網友回復：
僅供參考：ServerShare = "\\192.168.3.56\d$"
UserName = "somedomain\someuser"
Password = "somepassword"
Set NetworkObject = CreateObject("WScript.Network")
NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Directory = FSO.GetFolder(ServerShare)
For Each FileName In Directory.Files
WScript.Echo FileName.Name
Next
Set FileName = Nothing
Set Directory = Nothing
Set FSO = Nothing
NetworkObject.RemoveNetworkDrive ServerShare, True, False
Set NetworkObject = Nothing
uj5u.com熱心網友回復：
C:\>net use /?此命令的語法是:
NET USE
[devicename | *] [\\computername\sharename[\volume] [password | *]]
[/USER:[domainname\]username]
[/USER:[dotted domain name\]username]
[/USER:[username@dotted domain name]
[/SMARTCARD]
[/SAVECRED]
[[/DELETE] | [/PERSISTENT:{YES | NO}]]
NET USE {devicename | *} [password | *] /HOME
NET USE [/PERSISTENT:{YES | NO}]
C:\>
uj5u.com熱心網友回復：
非常感謝您的回答哦，有一個問題是\\192.168.3.56\d$ 這個d$是什么意思哦，如果沒有這個會有影響嗎，我的共享檔案夾路徑是\\192.168.222.18\共享檔案，UserName是administrator，您那個賬戶名有一個\ ，所以沒太理解哦，
uj5u.com熱心網友回復：
ServerShare = "\\192.168.222.18\業務促進部共享盤$"
UserName = "administrator"
Password = "Ting1123"
Set NetworkObject = CreateObject("WScript.Network")
NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Directory = FSO.GetFolder(ServerShare)
For Each FileName In Directory.Files
WScript.Echo FileName.Name
Next
Set FileName = Nothing
Set Directory = Nothing
Set FSO = Nothing
NetworkObject.RemoveNetworkDrive ServerShare, True, False
Set NetworkObject = Nothing
我改了之后 提示路徑出錯
uj5u.com熱心網友回復：
ServerShare = "\\192.168.222.18\業務促進部共享盤"
UserName = "domain\administrator"
Password = "Ting1123"
'其中“業務促進部共享盤”是“\\192.168.222.18”上的共享名
'domain是administrator的域（可通過在“\\192.168.222.18”上cmd視窗下執行whoami命令查看）
uj5u.com熱心網友回復：
改了之后提示不允許一個用戶使用一個以上用戶名與服務器或共享資源的多重連接。uj5u.com熱心網友回復：
我想實作直接打開檔案夾哦，就像點擊我的電腦跳出視窗，不是后臺訪問uj5u.com熱心網友回復：
參考3樓uj5u.com熱心網友回復：
沒看到那個代碼
uj5u.com熱心網友回復：
沒看懂uj5u.com熱心網友回復：
能否麻煩老師舉個例子解釋一下哦 非常感謝uj5u.com熱心網友回復：
如果共享的“服務器端”設定了賬號驗證，那個“登錄”應該是少不了的吧！只是不知道通過資源管理器進行訪問時，在出現登錄視窗后，輸入賬號和密碼，
并鉤上“記住我的憑證”（大概是這個意思的一個復選框）后，以后再訪問時是否需要再登錄。
還有一個，就是不知道用模擬操作能不能把賬號和密碼輸入進去。
我這兒沒有試驗環境，樓主自己試一下。
你這樣說，就是太為難趙4了!
因為他Ctrl+C不到具體實體，自然也就無法Ctrl+V來給你回復了。
uj5u.com熱心網友回復：
Sub Loading()
Shell "cmd /k net use z: \\192.168.222.18\共享盤 123 /user:administrator&cd /d z:\", vbHide
End Sub
uj5u.com熱心網友回復：
出于保密性，我開啟的共享不想設定保存憑據以及映射，不知道能否實作
uj5u.com熱心網友回復：
參考3樓。uj5u.com熱心網友回復：
還不明白，請百度搜索3樓內容中相關關鍵字。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/55841.html
標籤：API
上一篇：Show表單不能取得焦點的問題