6,185
社区成员
发帖
与我相关
我的任务
分享
Set oShell = CreateObject("Shell.Application")
Set oDir = oShell.NameSpace(3)
Set oFolder = oDir.Items.Item(3).GetFolder
For Each x In oFolder.Items
If x.name = "本地连接" Then Set oFile = x
Next
Do
oFile.Verbs.item(0).doit
WScript.Sleep 60000 * 30
Loop