中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 删除文件和打印机共享[非正规VBS版]

fhcweb
新手上路

积分 14
发帖 8
注册 2007-3-7
状态离线

『楼主』: 删除文件和打印机共享[非正规VBS版]

删除文件和打印机共享[非正规VBS版],请高手帮忙完善一下,,还有最好能把这些操作调到后台执行,这样就能避免了用户的误操作造成无法正常删除！另外如果有更正规的办法请给指点一下，小弟将万分感谢！欢迎兄弟们找我交流，我的ＱＱ是285584

=======================
'''NetShare_Uninstall.VBS
Dim WshSHell
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
WshSHell.Run "control.exe ncpa.cpl"
WScript.Sleep 500
WshSHell.SendKeys "{DOWN}{UP}"
WScript.Sleep 500
WshSHell.SendKeys "%FR"
WScript.Sleep 500
WshSHell.SendKeys "{DOWN}{ }"
WScript.Sleep 500
WshSHell.SendKeys "%U"
WScript.Sleep 500
WshSHell.SendKeys "Y"
WScript.Sleep 3000
WshSHell.SendKeys "%{F4}"
WScript.Sleep 2000
WshSHell.SendKeys "%FC"
Set WshSHell = Nothing
WScript.Quit

[ Last edited by fhcweb on 2008-3-8 at 06:51 PM ]

2008-3-8 18:18

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: