如何用代码连接服务器，共取得共享文件夹的访问权限呢？

Question

如何用代码连接服务器，共取得共享文件夹的访问权限呢？
我的程序中，要访问服务器上的一个共享文件夹。所以必须要对这个文件夹有读写权限，但是我不知如何实现连接服务器。如果不通过vb代码实现的话，很好办，登录一个服务器(输入用户名，密码即可)，只要登录一次服务器，就算与服务器建立连接了，应可以具有登录人的权限了。可是这些操作必须要用代码来完成，如何实现呢？
即在程序中，实现用某个用户的身份登录一次服务器，然后才有权限实现共享文件夹中文件的复制，删除等操作。
我现在应急的实现办法是，让用户在使用程序前，手工登录一次服务器，然后就能访问共享文件夹了，可是这样太麻烦，如何在vb中，用代码实现自动登录服务器的功能呢？目的是取得服务器共享文件夹的读写访问权限。

Answer 1

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

Answer 2

使用SHELL运行 NET USE \\IP 用户密码 /USER:用户名进行远程登录吧。呵呵。

Answer 3

服务器上的共享文件夹就是允许程序访问的，我就是不知如何在程序代码中设定可以连接并访问这个共享文件夹。
是不是只能用 net use呢？

Answer 4

dim objNetwork as object
Set objNetwork = CreateObject("WScript.Network") 
objNetwork.MapNetworkDrive "K:", "\\ALAN\home",,username,password