Vbscript VBS脚本错误

我为我对vbs的“新鲜感”提前道歉。我正在尝试运行此脚本以搜索文件服务器上的所有pst文件。此时，我得到了以下错误：

searchpst.vbs（6，26）Microsfot VBScript编译错误：应为语句结尾

我尝试运行的脚本当然名为searchpst.vbs，我知道（6，26）是错误的行号和字符号，但我似乎不知道如何修复它？下面是我的脚本，非常感谢您的帮助

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
strsql = "Select" * from CIM_DataFile Where Extension = '"pst"'"
Set fso = CreateObject("Scripting.FileSystemObject")
set wfile = fso.opentextfile("c:\test.csv",2,true)

For Each objFile in colFiles

    Wfile.writeline(strComputer & " " & objFile.Drive & " " & objFile.Path & " " & objFile.FileName & "." & objFile.Extension & " " & objFile.FileSize)

---

我重新格式化了代码，以便于阅读。单撇号

“

将其后面的所有内容更改为注释，因此它不是代码的一部分。因此，

“pst”

不可见

事实上，问题不止这些。整行的格式不正确，我想你还有几行的顺序不正确。我想应该是这样的：

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
strsql = "Select * from CIM_DataFile Where Extension = 'pst'"
Set colFiles = objWMIService.ExecQuery(strsql)
Set fso = CreateObject("Scripting.FileSystemObject")
set wfile = fso.opentextfile("c:\test.csv",2,true)

For Each objFile in colFiles
    Wfile.writeline(strComputer & " " & objFile.Drive & " " & objFile.Path & " " & objFile.FileName & "." & objFile.Extension & " " & objFile.FileSize)
Next

如果调用函数以接收其返回值，并且uu继续一行，则需要param list（），因此更改：

Set colFiles = objWMIService.ExecQuery _
strsql = "Select" * from CIM_DataFile Where Extension = '"pst"'"

到

或：

---

在阅读了@Joe的（+1）答案后，我试图清理您SQL中的引用。

Joe，非常感谢！它非常有效。我真的非常感谢！！

strsql = "Select * from CIM_DataFile Where Extension = 'pst'"
Set colFiles = objWMIService.ExecQuery(strsql)

Set colFiles = objWMIService.ExecQuery( _
     "Select * from CIM_DataFile Where Extension = 'pst'")