[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[网络连接] [已解决]关于Net use \\IP\IPC$ /del无法立即断开映射的问题

本帖最后由 gobi918 于 2012-5-30 14:36 编辑

RT,以下是我做的一个维护工具的退出代码,退出的时候要求断开服务器映射。
事实上也能断开,最近却发现一个小小的BUG,这个代码执行完,程序退出之后的几秒钟之内马上在运行里面粘贴\\10.144.133.210\setup,回车后依然能打开
当然,如果几秒钟之外,粘贴打开就提示输入账号密码了。
我试过在代码中加入ping延时3S命令,依然存在这个BUG
如下我还多次加入net use \\IP\.. /DEL 的命令依然存在。。。

求助以下大哥大侠,是不是断开后还存在映射缓存之类的东西?
有没有办法立即断开?为感~!
  1. rem ============以下是退出程序掃尾代碼=================
  2. :Menu0
  3. echo=
  4. set choice=
  5. set /p choice=確定退出嗎? [確認請回車 / N.取消退出]:
  6. if /i "%choice%"=="N" goto menu
  7. echo=
  8. echo 正在清理操作痕跡,請稍後...
  9. net use \\10.144.133.210\IPC$ /del /Y 1>NUL 2>NUL
  10. net use \\10.144.133.210\setup /del /Y 1>NUL 2>NUL
  11. if not %username%==Administrator taskkill /f /im explorer.exe >nul
  12. if exist "%windir%\DWRCS Uploads\IT.Multi-F.M.Tools.exe" del /f /q /S "%windir%\DWRCS Uploads\IT.Multi-F.M.Tools.exe" 1>NUL 2>NUL
  13. if exist "%windir%\dwrcs\Uploads\IT.Multi-F.M.Tools.exe" del /f /q /S "%windir%\dwrcs\Uploads\IT.Multi-F.M.Tools.exe" 1>NUL 2>NUL
  14. if exist "%tmp%\IT.Multi-F.M.Tools.exe" del /f /q /s "%tmp%\IT.Multi-F.M.Tools.exe" 1>NUL 2>NUL
  15. if exist "%tmp%\Update.txt" del /f /q /s "%tmp%\Update.txt" 1>NUL 2>NUL
  16. reg delete "HKEY_CURRENT_USER\Software\WinRAR SFX" /F 1>NUL 2>NUL
  17. reg delete "HKEY_CURRENT_USER\Software\WinRAR" /F 1>NUL 2>NUL
  18. net use \\10.144.133.210\IPC$ /del /Y 1>NUL 2>NUL
  19. net use \\10.144.133.210\setup /del /Y 1>NUL 2>NUL
  20. if not %username%==Administrator start "" explorer.exe
  21. net use \\10.144.133.210\IPC$ /del /Y 1>NUL 2>NUL
  22. net use \\10.144.133.210\setup /del /Y 1>NUL 2>NUL
  23. rd /q /S "%userprofile%\Application Data\Microsoft\Installer" 1>NUL 2>NUL
复制代码

╮(╯▽╰)╭ 延时断开还是存在,估计系统就是这样的~代码运行后,立马在运行里面打开\\10.144.133.210 ,之后就不会断开了、。、、
代码运行退出大概5S后,桌面会抖动一下,类似于刷新。然后运行里面输入地址访问就弹出账号和密码框了。。。
估计本身就是这样的、、、

TOP

  1. mshta vbscript:execute("On Error Resume Next : set wn=CreateObject(""WScript.Network"") : wn.RemoveNetworkDrive ""\\10.144.133.210\IPC$"", true : wn.RemoveNetworkDrive ""\\10.144.133.210\setup"", true : window.close")
复制代码
1

评分人数

TOP

本帖最后由 gobi918 于 2012-5-30 13:34 编辑

回复 2# powerbat

  谢谢分享!

用VBS应该是有效果的,就是有一个小问题,呵呵,我不会vbs。。

映射这个服务器之后,那个连接可能是以下其中一个,有时是IPC$,有时却是setup,并不确定,能否2个都打上,而不提示错误?
大哥给的代码如果有一个不存在就会提示错误。
  1. CreateObject("WScript.Network").RemoveNetworkDrive "\\10.144.133.210\IPC$", true
  2. CreateObject("WScript.Network").RemoveNetworkDrive "\\10.144.133.210\setup", true
复制代码
是不是下面这样就不会提示错误?
  1. On Error Resume Next
  2. CreateObject("WScript.Network").RemoveNetworkDrive "\\10.144.133.210\IPC$", true
  3. CreateObject("WScript.Network").RemoveNetworkDrive "\\10.144.133.210\setup", true
复制代码
能否改造成bat式的的vbs,不然还要生成一个vbs临时文件~

再次谢谢~

TOP

用vbs试试,如果还是一样则说明是系统内部的实现问题。
  1. CreateObject("WScript.Network").RemoveNetworkDrive "\\10.144.133.210\IPC$", true
复制代码

TOP

返回列表