WinCC VBS要求比较严格，变量必须事先声明.

Ws cript.Echo是WSH独有的东西，到WinCC可该为HMIRuntime.Trace

另外就是论坛对s cript这个单词做了一定的处理，需要注意，呵呵。

改造后的代码如下：
Dim strComputer,objWMIService,colFiles,objFile
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Path ='\\temp\\tempsub\\' and Drive ='C:'")
For Each objFile In colFiles
HMIRuntime.Trace objFile.Name & vbCrLf
Next