Dim objNetwork
Set objNetwork = CreateObject("Wscript.Network")
if objNetwork.EnumNetworkDrives.count=0 then 'objNetwork.EnumNetworkDrives.count 判断网络驱动器是否存在
objNetwork.MapNetworkDrive "z:","\\192.168.0.100\MSlearn",true,"panda","123" '创建网络驱动器
end if
Set colDrives=nothing
set objNetwork=nothing
欢迎加入QQ技术群聊:70539804
转载于:https://www.cnblogs.com/boltkiller/p/4791775.html
相关资源:JAVA上百实例源码以及开源项目