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

相关文章:

  • 2021-09-29
  • 2021-10-06
  • 2021-08-12
  • 2021-05-04
  • 2021-10-29
  • 2021-09-16
  • 2021-12-03
  • 2022-12-23
猜你喜欢
  • 2021-12-11
  • 2021-12-20
  • 2021-07-19
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
相关资源
相似解决方案