0

表示されているすべてのウィンドウ (名前と上部) を一覧表示しようとしています。スクリプトは正常に動作していますが、Microsoft Word のインストールが必要です。私のスクリプトを実行するには、このコマンドを実行できます

Cscript -B myScript.vbs

muScript.vbs :

Dim console
Set console = WScript.StdOut
Dim myString
myString = ""

Set Word = CreateObject("Word.Application")
Set Tasks = Word.Tasks
Set colTasks = Word.Tasks
For Each Task in Tasks
    If Task.Visible Then 
        If colTasks.Exists(Task.Name) Then
            myString = myString & "@@##@@" & colTasks(Task.Name).Name & ","& colTasks(Task.Name).Top
        End If  
   End If
Next
Word.Quit
console.WriteLine myString

Microsoft Word をインストールせずに、myScript.vbs のような可視ウィンドウを一覧表示する方法を知っていますか?

どうもありがとう

4

1 に答える 1

0

これは不可能だと思います。ただし、実行中のすべてのプロセスを一覧表示できます。

http://www.computerperformance.co.uk/vbscript/wmi_process.htm

' Process.vbs
' VBScript Win32_Process to discover which processes are running
' Author Guy Thomas http://computerperformance.co.uk/
' Version 1.4 - December 2010
' -------------------------------------------------------' 
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _ 
& strComputer & "\root\cimv2") 

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process")

For Each objProcess in colProcess
  strList = strList & vbCr & _
  objProcess.Name
Next

WSCript.Echo strList
WScript.Quit

' End of List Process Example VBScript
于 2012-04-24T21:55:22.593 に答える