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

把以下這個寫成指令碼，放在開機啟動項裡面，進行解決即可。