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

Rank: 1

帖子
47 
积分
58 
技术
0  
捐助
0  
注册时间
2011-11-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2012-5-30 08:14 | 只看该作者

[网络连接] [已解决]关于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 
复制代码
收藏 分享

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
2楼
发表于 2012-5-30 12:15 | 只看该作者
用vbs试试，如果还是一样则说明是系统内部的实现问题。
  1. CreateObject("WScript.Network").RemoveNetworkDrive "\\10.144.133.210\IPC$", true
复制代码
script56
新加坡Google

TOP

gobi918

Rank: 1

帖子
47 
积分
58 
技术
0  
捐助
0  
注册时间
2011-11-9 
3楼
发表于 2012-5-30 13:30 | 只看该作者
本帖最后由 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

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
4楼
发表于 2012-5-30 13:43 | 只看该作者 
  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

评分人数

script56
新加坡Google

TOP

gobi918

Rank: 1

帖子
47 
积分
58 
技术
0  
捐助
0  
注册时间
2011-11-9 
5楼
发表于 2012-5-30 14:17 | 只看该作者
╮(╯▽╰)╭ 延时断开还是存在，估计系统就是这样的~代码运行后，立马在运行里面打开\\10.144.133.210 ，之后就不会断开了、。、、
代码运行退出大概5S后，桌面会抖动一下，类似于刷新。然后运行里面输入地址访问就弹出账号和密码框了。。。
估计本身就是这样的、、、

TOP

返回列表