[问题求助] VBS关闭我的电脑的“被调用的对象已与其客户端断开连接”错误如何解决？

ww0000

Dim objws,folders
Set objws=WScript.CreateObject("wscript.shell")
Set shell = CreateObject("Shell.Application")
folders="我的电脑"
strfolder=Split(folders,";",-1,1)
Do
    For Each f In strfolder
        For Each window In shell.Windows
             if window.locationname = f Then
                 objWs.Popup "5秒钟后将关闭" & f, 5
                 window.quit
             End If
        Next
    Next
    WScript.Sleep 1000
Loop


以上是监控“我的电脑”的脚本，一打开“我的电脑”，就会出现提示框，5秒后关闭；
但出现的问题是：如果没等5秒后脚本关闭“我的电脑”，而是自己在5秒内手动关闭“我的电脑”，那么，就会出现“ 被调用的对象已与其客户端断开连接”的提示，并退出脚本，这个问题如何解决？