这个问题很老,但也许OP仍在寻找。不久前,我写了一个 HTA 页面来将网络地址映射到虚拟驱动器。代码是 VBScript,因此使用 WScript 库,它不是 VB.net 的本机部分。有关更多信息,请参阅StackOverflow 上的 VB.Net 中的 WScript 。
连接脚本:
SUB doLogOn()
Dim objNetwork, errNum, ojbFSO, strDrive, iNum
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists("\\MyServer\MyFolder\") = False Then
strDrive = "J:"
Set objNetwork = CreateObject("WScript.Network")
On Error Resume Next
objNetwork.MapNetworkDrive strDrive, "\\MyServer\MyFolder", False, "username", "password"
If Err.Number <> 0 Then
Err.Clear
End If
Set objFSO = Nothing
Set objNetwork = Nothing
End If
END SUB
就个人而言,我还没有找到在.Net 中做同样事情的代码。上面显示的 VBScript 非常原始。不过,我希望它加上绑定 WScript 的信息能给你一两个想法。
编辑:在这里查看 Eric Dalnas 的代码