Vbscript WMIService文件结果有时会给出；对象不支持此属性；

我正在尝试修改计算机上的所有快捷方式。该脚本工作正常，但偶尔会抛出一个错误，即对象的.Target属性不可用。因为我的查询只查找扩展名为.lnk的文件，所以永远不会出现这种情况。（有关此错误的更多详细信息，请参见此处的MS文档：）

有关剧本：

strComputer = "."

Set wshShell    = WScript.CreateObject("WScript.Shell")

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile WHERE Extension = 'lnk' AND Drive = 'C:'")

For Each objFile in colFiles

    If InStr(1, ucase(objFile.Target), "METER.EXE") Then
        Set objShortcut = wshShell.CreateShortcut(objFile.Name)
                Wscript.Echo "FIXING: " & objShortcut.TargetPath
        End If
Next

出于好奇：这个脚本的目的是修复我们实验室机器上的几十个快捷方式，这些快捷方式以前被修改为支持“自制”许可/计量应用程序。在所有情况下，原始.EXE路径都已从目标中剥离，但仍可从快捷方式的图标路径中找到

谢谢

编辑：完整的错误消息。它似乎在重新启动后更频繁地出现，但在我运行脚本2-3次之后就不再出现了

Microsoft VBScript运行时错误：对象不支持此属性 或方法：“objFile.Target”

没有

目标

属性

我相信你是想用它来代替