中国DOS联盟

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