我试图在VB（Excel宏）中运行下面提到的代码，但我坚持运行时弹出一个错误说“自动化错误”。

strComputer = "."

Set objNetwork = CreateObject("Wscript.Network")
Set fs = CreateObject("Scripting.FileSystemObject")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='U:\'} Where " _ 
        & "ResultClass = CIM_DataFile")
For Each objFile In colFiles
       if objFile.FileName = "ml_*" Then
           destinationPROD = "X:\ABC\" & objFile.FileName & "." & objFile.Extension
           objFile.Copy(destinationPROD)
           objFile.delete
       else
           destinationPROD = "X:\PQR\" & objFile.FileName & "." & objFile.Extension
           objFile.Copy(destinationPROD)
           objFile.delete
       End If
Next