删除文件和打印机共享 - 中国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 ]

第1楼　fhcweb	发表于 2008-03-08 18:18
新手上路　发帖 8　积分 14
删除文件和打印机共享[非正规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 ]