VBA½áÊø³ÌÐò

Sub jsq()

Set ob=GetObject (¡°winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2¡±)

Set cl=ob.ExecQuery(¡°select * from Win32_Process Where Name=¡®winword.exe¡¯¡±)

If cl.Count > 0 Then

¡®ÅжÏwinword.exe¿ªÆôµÄ¸öÊý

For Each i in cl

i.Terminate

¡®½áÊø³ÌÐò

Next

End if

End sub