'建立通信通道,防止使用不同的用户和密码登录WEB服务器,程序将自动通过 USE 命令和提供的用户名和密码来建立通信通道。
on error resume next
set objshell = CreateObject("Shell.Application")
objshell.shellexecute "net", " use //10.164.223.6 gis /USER:administrator",,,0 '最后一个参数 0 代表net的运行窗口隐藏并获得焦点 '(gis 为密码,administrator 为用户名)
if err.number <> 0 then
msgbox "没有建立连接"
window.status=("")
end if
set objShell = nothing