pienso que si el muchachito se quiere divertir, puede poner esto en un script ( o sea abres el notepad y pegas esto):
' Inicio de vars
strMsg = ""
numFound = 0
' Checa parametros de comando
Select Case WScript.Arguments.Count
Case 0
' hasta que pongas un proceso a matar
Syntax
Case 1
' El primer parametro debe ser el proceso a matar
' o "/?" para ver la ayuda en linea
strP2k = Wscript.Arguments(0)
if InStr( strP2k, "?" ) > 0 Then Syntax
strComputer = "."
Case 2
' primer parametro debe ser el nombre de proceso
strP2k = Wscript.Arguments(0)
if InStr( strP2k, "?" ) > 0 Then Syntax
' el segundo parametro debe ser el nombre de la computafdora victima
strComputer = Wscript.Arguments(1)
if InStr( strComputer, "?" ) > 0 Then Syntax
Case Else
' Como maxinmo son dos parametros (o le pones los que se te antojen, igual los ignora
Syntax
End Select
On Error Resume Next
' pregunta y corre el proceso
Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/cimv2" )
' Muestra el error y la descripcion si es aplicable
If Err.Number Then
strMsg = vbCrLf & "Error # " & Err.Number & vbCrLf & _
Err.Description & vbCrLf & vbCrLf
Syntax
End If
On Error GoTo 0
' Mata el proceso especificado (je je je, te recomiendo que pruebes con el messenger)
Set colItems = objWMIService.ExecQuery( "Select * from Win32_Process", , 48 )
For Each objItem in colItems
If LCase( objItem.Caption ) = LCase( strP2k ) Then
numFound = numFound + 1
Wscript.Echo "Terminating " & objItem.Caption
objItem.Terminate
End If
Next
' Checa si algun proceso ha sido encontrado
If numFound = 0 Then
WScript.Echo "Ningun proceso nombrado " & Chr(34) & strP2k & Chr(34) & " se ha encontrado"
End If
' Listisimo
WScript.Quit(0)
Sub Syntax
strMsg = strMsg & vbCrLf & "killer.vbs, Version 1.01" & vbCrLf & _
"Termina (" & Chr(34) & "mata" & Chr(34) & _
") un programa activo." & vbCrLf & vbCrLf & _
"Uso: CSCRIPT killer.VBS prog_name [ computer_name ]" & _
vbCrLf & vbCrLf & _
"donde: " & Chr(34) & "prog_name" & Chr(34) & _
" es el nombre del programa a ser terminado" & vbCrLf & _
" " & Chr(34) & "computer_name" & Chr(34) & _
" es el nombre de la maquina donde " & Chr(34) & _
"prog_name" & Chr(34) & " esta" & vbCrLf & _
" por ser eliminado" & _
vbCrLf & vbCrLf & _
"escrito por AzRaEL [NuKE]" & vbCrLf & _
"
Para ver los enlaces debes ser usuario
Crear Usuario o
Hacer Sesion" & vbCrLf
WScript.Echo strMsg
' Termina con codigo 1 (el error)
WScript.Quit(1)
End Sub
despues de que lo pegas, le picas en archivo (del notepad) guardar, eliges una zona en disco donde se va a almacenar, y lo guardas como killer.vbs....
Ahora, para usar este script te vas a la linea de comandos, ejecutar....cmd enter, te vas al directorio donde guardaste el archivo (de preferencia guardalo en c:\) en la ventanita de comandos, si no sabes como desplazarte entre directorios ahi te va:
"cd [nombre_directorio]" te cambia al directorio siempre y cuando exista en el mismo nivel donde estas
"cd .. "te regresa al directorio anterior
etc......
ya en el directorio donde esta nuestro amigo script escribes:
killer [nombre_del_programa] \\nombre_de_la_maquina
si tienes dudas escribeme a _daemon @mail.ru o postea aqui.....
Suerte con tus bromas, si te repruebas no vengas llorando que el jilipollas de tu profe te cacho fregando a tus amiguitos....
AzRaEL [NuKE]
Autor