|
'************************************** ' chiude l'oggetto WINWORD.EXE ....CAZZO!! ' chiude i processi o processo '************************************** Dim obj As Object For Each obj In GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE Name= 'WINWORD.EXE'") If obj.Name = "WINWORD.EXE" Then obj.Terminate Next |