Q onda chav@sEn este mi primer aporte les traigo un pequeño script q es como un segundo administrador de tareas
Es muy simple de usar solo ejecuten les preguntara q si qieren ver las aplicaciones
q estan corriendo si le dicen q si les creara y abrira un archhivo de texto con el nombrte de cada aplicacion segundos despues les pedira la aplicacion q se qiere cerrar no olviden la extensión ,ahora solo den enter y listo
Lo cree por q un virus no me degaba abrir el AT.
Es muy simple de usar solo ejecuten les preguntara q si qieren ver las aplicaciones
q estan corriendo si le dicen q si les creara y abrira un archhivo de texto con el nombrte de cada aplicacion segundos despues les pedira la aplicacion q se qiere cerrar no olviden la extensión ,ahora solo den enter y listo
Lo cree por q un virus no me degaba abrir el AT.
aqui el code
Código
'VBScript By KsV Set ws = CreateObject("wscript.shell") a=msgbox ("Quieres Ver Las Aplicaciones En Ejecucion",36,".:Mini-Administrador De Tareas ksv:.") If a=VBYes Then Set ofso = CreateObject("scripting.filesystemobject") Set lita = ofso.createtextfile(".\EnEjecucion.txt") Set WM =GetObject("winmgmts:") Set listser= WM.instancesof("win32_process") For Each service In listser lita.writeline service.name lita.writeblanklines(1) Next lita.close ws.run ".\EnEjecucion.txt" Wscript.sleep 2000 cual() Else cual() Sub cual() uv = InputBox("Nombre del proseso a terminar ",".:Mini-Administrador De Tareas:.") If Right(uv, 1) <> ".exe" Then ap = uv & ".exe" ter(ap) else ter(uv) end if End Sub sub ter(prne) 'empleando wmi Windows Management Instrumentation terminamos el proceso indicado Set WM =GetObject("winmgmts:") 'tomamos control de winmgmts por aqui pasan los procesos q se inician Set listser= WM.instancesof("win32_process") 'tomamos control de los procesos q se estan corriendo For Each service In listser 'recorremos cada uno de los prosesos If prne=service.name Then 'si el contenido de la var prne coincide con alguno de la lista service.Terminate 'lo terminamos End If Next End sub End If
Espero que les sirva el code creo q no tiene errores ,pero si les da uno m avisan no olviden los creditos
KsV DUDAS COMENTARISO SUGERENCIAS RECLAMOS ETC SON SIEMPRE ACEPTADOS