Function ShellAndWait(cmd As String) As String
    'sheel 执行命令行 等待并读取结果
    Dim oShell As Object, oExec As Object
    Set oShell = CreateObject("WScript.Shell")
    Set oExec = oShell.exec(cmd)
    ShellAndWait = oExec.StdOut.ReadAll
    Set oShell = Nothing
    Set oExec = Nothing
End Function