Un Administrador de Sistemas en Apuros

Para realizar un ping toda una red clase C basta con lo siguiente:

for /L %i in (1,1,255) do @ping 192.168.0.%i -n 1 |@find “TTL” >>PINGOK.LOG |echo %i 

La explicacion:

for /L %i in (1,1,255) %i vale 1 (primer valor del for)

el segundo valor = incremento en este caso vamos de 1 en 1.

tercer valor es el final. @ping 192.168.0.%i -n 1 = ejecuta ping a la ip especificada con el valor de %i y envia 1 solo paquete.

 |@find “TTL” >>pingok.log = el resultado del ping busca el valor TTL y si existe lo pasa al fichero pingok.log. |echo %i = es solo para ver el proceso

Si has llegado hasta este artículo, probablemente andas probando un script vbs sobre windows 2008 y te habra dado el error  0x8004100E.

Para solucionarlo solo debes hacer lo siguiente y bajo tu responsabilidad:

1.- Utilizar Regedit para comprobar el valor de default namespace en  HKEY_LOCAL_MACHINE\Software\Microsoft\WBEM\Scripting  sea  root\cimv2


2.- Edita tu script y cambia

Set oWebAdmin = GetObject("winmgmts:root\WebAdministration")
por
Set oWebAdmin = GetObject("winmgmts:root\cimv2")

Y ya no te dará este error.






Si esta informacion te ha sido de ayuda pincha en mis anuncios. Nos ayudamos mutuamente. Gracias

Podría ponerme a explicar que son los runlevels como introducción, pero si has llegado hasta aquí doy por hecho que hace tiempo que sabes que son los runlevels. Y si me equivoco lee antes este enlace http://es.wikipedia.org/wiki/Nivel_de_ejecuci%C3%B3n

Agregar un script de inicio
Yo recomiendo crear un enlace del script en /etc/init.d/ pero también hay quien directamente lo copia en esa ruta. Elige por tu criterio que ambas opciones son válidas con tal que aparezca en esa ruta. Después basta con ejecutar

# update-rc.d ‘nombre_script’ defaults

Eliminar un script de inicio

# update-rc.d -f ‘nombre_script’ remove

Si esta información te ha sido de ayuda pincha en mis anuncios. Nos ayudamos mutuamente. Gracias

Es posible que alguna vez te encuentres en un host ESX y solo tengas acceso mediante terminal. Si necesitas operar con las máquinas estos comandos te pueden servir,


Listar todas las máquinas vituales...

vmware-cmd -l

Arrancar...

vmware-cmd /vmfs/volumes/mv/mv.vmx  start

Para Apagar..

vmware-cmd /vmfs/volumes/mv/mv.vmx  stop

Reiniciar...

vmware-cmd /vmfs/volumes/mv/mv.vmx  reset

Para saber estado de la máquina virtual...

vmware-cmd /vmfs/volumes/mv/mv.vmx  getstate

Si esta información te ha sido de ayuda pincha en mis anuncios. Nos ayudamos mutuamente. Gracias

Probado en AIX

#!/bin/bash

NOW=$( date '+%s' )
REF=$(( $NOW - 15*60 )) ##previous 15 minute

while read MONTH DAY HMS A4 ; do

TIMESTAMP=$(date --date "${MONTH} ${DAY} ${HMS}" '+%s')
if [[ "$TIMESTAMP" -ge "$REF" ]] ; then
echo "${MONTH} ${DAY} ${HMS} ${A4}"
fi

done < log_file






Si esta información te ha sido de ayuda pincha en mis anuncios. Nos ayudamos mutuamente. Gracias

Con la siguiente línea podemos extraer todo el texto que se encuentre entre dos patrones, inicio (start) y fin (end) a partir del archivo "inputfile" generando el de salida "outputfil"

cat inputfile | awk '/start/,/end/ { print }' > outputfile

Si esta información te ha sido de ayuda pincha en mis anuncios. Nos ayudamos mutuamente. Gracias

Solo hay que copiar y pegar el siguiente código en un .vbs

Dim goal
Dim before
Dim x
Dim y
Dim i

goal = 2181818

Do While True
before = Timer
For i = 0 to goal
x = 0.000001
y = sin(x)
y = y + 0.00001
Next
y = y + 0.01
Loop

Ya solo queda ejecutarlo y la cpu se pondrá al 100%



Si esta información te ha sido de ayuda pincha en mis anuncios. Nos ayudamos mutuamente. Gracias

En ocasiones nos podemos encontrar con la imposibilidad de transferir archivos debido a que son muy pesados. Con el siguiente procedimiento solucionaremos estos inconvenientes.

Supongamos que tenemos un archivo que ocupa 4Gb y queremos dividirlo en 4 archivos de 1Gb:

split -b 1024m fichero.tar.gz "fichero.tar.gz.part-"

Para volver a unir todos los archivos:

cat fichero.tar.gz.part-* > fichero.tar.gz

find /tu/ruta/al/directorio/ -mtime +30 -exec rm {} \

donde +30 serian treinta días atrás.

find /tu/ruta/al/directorio/ -mtime -30 -exec rm {} \

si hacemos variar el signo del número esto nos daría aquellos archivos con menos de treinta días.

Esto suele ser muy útil para saber si el servidor remoto esta carente de espacio en disco.

#!/bin/bash
df -hx tmpfs|grep dev > dfd
limite=90;
for i in $(df |awk '{print $(5)}');
do
i=`echo $i | cut -f 1 -d "%"`
if (("$i" '>=' "$limite")); then
cat dfd | mail -s "Discos Llenandose" your@mail.here
break;
fi
done

Aclaración: este script esta corriendo en un servidor que tiene a su vez montado un mail server.

El siguiente script de extensión vbs, cambia la contraseña de administrador local de todas las máquinas de un dominio:

====================================================================

On Error Resume Next


strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell")


'Query Admin Members
Set colGroups = GetObject("WinNT://" & strComputer)
colGroups.Filter = Array("group")
For Each objGroup In colGroups
'check the administrators local group members..
If (InStr(1,objGroup.Name,"Administradores",1) >0) Then
For Each objUser in objGroup.Members
strUSER=strUSER &vbCrLf& objuser.class &"="& objUser.name
next
End If
Next


Set objUser = GetObject("WinNT://" & strComputer & "/administrador")
objUser.SetPassword "NUEVA_CONTRASEÑA"
objUser.Setinfo

If Err <> 0 Then
'write eventlog
call logit ("1","Admin Password Change: Failed " & Err & vbCrLf&Err.Description _
&vbCrLf&Err.Source &vbCrLf& strUSER)
Else
call logit ("0","Admin Password Change: Successfull")
End if



'*******************************
Function logit(strStatus,strDescription)
WshShell.LogEvent strStatus,strDescription
End Function

====================================================================

Busca la "palabra" = NUEVA_CONTRASEÑA en el codigo , aqui tendras que indicar la contraseña que te interesa poner.

En el visor de sucesos puedes comprobar que la contraseña se ha modificado, el origen es WSH.

¡¡¡OJO!!! Si distribuyes este script recuerda que tienes una contraseña sin encriptar. Estudia bien como hacerlo para que no sea fácil desencriptar el código.

Si esta información te ha sido de ayuda pincha en mis anuncios. Nos ayudamos mutuamente. Gracias

while :
do
clear
echo "****Bienvenido al Sistema ------------------****"
echo ""
echo ""
echo "MENU"
echo "1.-**************************"
echo "2.-**************"
echo "3.-**************"
echo "4.-**************"
echo "99.-SALIR"
echo ""
read -p "Seleccionar Opcion: " OPCION
case $OPCION in
1)
2)
3)
4)
99) echo "Fin del programa"
exit ;;
*) echo "ERROR 404"
esac
done

Estructura muy facil de comprender y más aun de implementar. Aunque yo no lo he puesto sería recomendable una especie de pausa o espera de tecleo del usuario al finalizar la opción introducida, sino se volvera a mostrar el menú inicial.

Quizá lo más facil es ir a google y buscar un programita que te lo haga, pero si quieres hacerlo tu mismo aqui tienes un pequeño script que puedes modificar a tu gusto

cd D:\BACKUP_USB #1
MKDIR %date:~0,2%%date:~3,2%%date:~8,2% #2
cd %date:~0,2%%date:~3,2%%date:~8,2%
xcopy X:\ /F /Y /E #3

#1 Carpeta donde se alojarán las copias (creada por defecto)
#2 Crea una carpeta con la fecha actual
#3 Aqui sería importante predefinir una unidad para nuestro usb, en este caso yo utilizo X:

Este script puedes ponerlo en un .bat y programar copias o ejecutarlo cuando te venga en gana.

Si se implementase un script similar para un entorno empresarial o algo bastante serio yo empezaría por agregar logs y por programar un control de las carpetas que se van creando, algo así como solo dejar la de los últimos 7 días.

El siguiente script muestra la cantidad de mb enviados / recibidos
para la eth0

cat /proc/net/dev | awk '$1 ~ /eth0/ {sub(/eth0:/,"",$1);
print "Mb recibidos:" $1/(1024*1024) " -
Mb enviados: " $9/(1024*1024)}'

Ahora que cada uno lo modifique a su gusto.

Si esta información te ha sido de ayuda pincha en mis anuncios. Nos ayudamos mutuamente. Gracias

Esto nos es útil cuando estamos realizando alguna migración de servidores, en el caso que vayamos a cambiar los servidores DNS de dirección IP o el servidor DNS de servidor, debemos cambiar en todos los puestos sus servidores DNS. Puede que los puestos estén configurados con una dirección IP dinámica por lo cual el cambio es muy simple y lo cambiaremos únicamente en el servidor DHCP. Pero.. qué pasa si nuestros puestos tienen una dirección IP fija? Que deberíamos cambiar el 'Servidor DNS preferido' y el 'Servidor DNS alternativo' o manualmente o mediante la ayuda de un simple script que podemos poner en el inicio de sesión de los puestos mediante una GPO.

Este sería el script a ejecutar en los puestos clientes:


On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
arrDNSServers = Array("DIRECCION_IP_SERVIDOR_DNS_1", "DIRECCION_IP_SERVIDOR_DNS_2")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)

Next


Esto nos cambiará los dos servidores DNS si nos tenemos con dirección IP fija, si sólo es uno, es cuestión de modificar el script.

Con el siguiente script bastará un simple clic ( y tener los datos necesarios correctos) para meter cualquier equipo en dominio.

Const JOIN_DOMAIN = 1

Const ACCT_CREATE = 2

Const ACCT_DELETE = 4

Const WIN9X_UPGRADE = 16

Const DOMAIN_JOIN_IF_JOINED = 32

Const JOIN_UNSECURE = 64

Const MACHINE_PASSWORD_PASSED = 128  

Const DEFERRED_SPN_SET = 256

Const INSTALL_INVOCATION = 262144



strDomain = "FABRIKAM"   -----> Cambiar por el nombre del dominio correcto

strPassword = "ls4k5ywA"   -----> Cambiar por la contraseña de administrador del dominio

strUser = "administrador"       -----> Username del administrador de dominio



Set objNetwork = CreateObject("WScript.Network")

strComputer = objNetwork.ComputerName



Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _

    strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _

        strComputer & "'")



ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _

    strPassword, strDomain & "\" & strUser, NULL, _

        JOIN_DOMAIN + ACCT_CREATE)

Nunca dará ningún tipo de mensaje, pero una vez ejecutado simplemente hay que reiniciar para comprobar que ha funcionado.


Si esta información te ha sido de ayuda pincha en mis anuncios. Nos ayudamos mutuamente. Gracias