解决硬盘映射重启自动断开的方法

 

 

set s = WScript.CreateObject("Scripting.FileSystemObject")
Set ss = WScript.CreateObject("WScript.Network")
Set sss = CreateObject("Shell.Application") 
if s.driveexists("z:") then 
  ss.RemoveNetworkDrive "z:"
  ss.MapNetworkDrive "z:","\\Nshared\bgs"
  sss.NameSpace("Z:\").Self.Name = "资料库"
else
ss.MapNetworkDrive "z:","\\Nshared\bgs",True
sss.NameSpace("Z:\").Self.Name = "资料库"
end if

 

把以下这个写成脚本，放在开机启动项里面，进行解决即可。