判断映射盘无效，再次运行脚本，如何？ - 中国DOS联盟论坛

我把脚本放在注册表的启动项，有时可以正常映射成功，有时不出现网络磁盘

我想判断映射盘是不是存在，不存在的话就再次运行脚本，要加入什么代码？先谢过

映射磁盘的VBS脚本如下：

On error resume next

Set objNet = CreateObject("Wscript.Network")
strCompName = objnet.ComputerName
strNewName = "data"
strDriveLetter = "d:"

' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$",,"A" & strCompName, "A" & strCompName

' Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

第1楼　beyoungse	发表于 2007-10-22 12:47
中级用户　发帖 112　积分 253
判断映射盘无效，再次运行脚本，如何？我把脚本放在注册表的启动项，有时可以正常映射成功，有时不出现网络磁盘我想判断映射盘是不是存在，不存在的话就再次运行脚本，要加入什么代码？先谢过映射磁盘的VBS脚本如下： On error resume next Set objNet = CreateObject("Wscript.Network") strCompName = objnet.ComputerName strNewName = "data" strDriveLetter = "d:" ' Section to map the network drive Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$",,"A" & strCompName, "A" & strCompName ' Section which actually (re)names the Mapped Drive Set objShell = CreateObject("Shell.Application") objShell.NameSpace(strDriveLetter).Self.Name = strNewName

第2楼　beyoungse	发表于 2007-10-22 13:30
中级用户　发帖 112　积分 253
顶上去，我这边用的是无盘系统，启动就会还原的，只能不出现映射盘就现次运行

第3楼　abcd	发表于 2007-10-22 14:22
银牌会员　发帖 739　积分 1,436
fso对象不有个DriveExists方法吗？？