使用vbscript和wmi创建一个zip文件夹而不使用CopyHere

Question

我正在尝试在VBScript中编写一个函数，该函数从另一个常规文件夹创建一个压缩文件夹。问题是我的讲师说我不能使用以下代码中的.CopyHere方法：

Sub ArchiveFolder (zipFile, sFolder)
    With CreateObject("Scripting.FileSystemObject")
        zipFile = .GetAbsolutePathName(zipFile)
        sFolder = .GetAbsolutePathName(sFolder)

        With .CreateTextFile(zipFile, True)
            .Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, Chr(0))
        End With
    End With

    With CreateObject("Shell.Application")
        .NameSpace(zipFile).CopyHere .NameSpace(sFolder).Items

        Do Until .NameSpace(zipFile).Items.Count = .NameSpace(sFolder).Items.Count
            WScript.Sleep 1000 
        Loop
    End With
End Sub

我可以创建zip文件，但是无法在其中复制文件（.MoveHere也被我的讲师弃用）。是否可以使用WMI或其他Windows组件复制文件？