12 lines
354 B
Plaintext
12 lines
354 B
Plaintext
On Error Resume Next
|
|
|
|
For Each Service in GetObject("winmgmts:{impersonationLevel=Impersonate}").ExecQuery _
|
|
("Associators of {Win32_service.Name=""NetDDE""} Where AssocClass=Win32_DependentService Role=Dependent" )
|
|
WScript.Echo Service.Path_.DisplayName
|
|
Next
|
|
|
|
if Err <> 0 Then
|
|
WScript.Echo Err.Number, Err.Description, Err.Source
|
|
End if
|
|
|