Actualizacion Masiva de Password Locales

Encontré esta herramienta de sysinternals que permite hacer cambio masivos de passwords a usuarios locales es sencillo y nos va a ahorrar tiemp

 

La herramienta se llama PsPasswd v1.22 es parte del conjunto de herramientas PSTools DESCARGA AQUI

Se baja , se descomprime , la primera ocasión que se va utilizar nos aparece los términos de la licencia

Desde una ventana de comandos podemos ejecutar el comando con los siguientes parámetros

pspasswd           \\servidor124    Administrator   Password10

\\servidor124  ========= equipo remoto al que se le va establecer la contraseña

Administrator ========= Nombre del usuario que se le va modificar el password

Password10     =========  Nueva contraseña

Mi BAT luce asi

pspasswd           \\servidor124    Administrator   Password10

pspasswd           \\servidor125    Administrator   Computers10

pspasswd           \\servidor126    Administrator   Contraseña.10

pspasswd           \\servidor127    Administrator   Passwordn10

pspasswd           \\servidor128    Administrator   NContra10

Al momento de ejecutar el BAT pongo la opción de que genere un log

Password.bat > c:\log.txt

Para cambiar el password del Administrador local en todos los equipos por un mismo password  es más sencillo porque es una misma contraseña solo necesitamos tener un archivo con la lista de equipos que vamos a modificar y la sintaxis es algo así

Pspasswd @c:\lista.txt HPADMIN Password01

Convertir Minusculas a Mayusculas Excel

 

 

 

 

 

 

Esta semana tenia un inventario de servidores donde  algunos datos estaban en mayusculas y otros en minusculas y ocupabamos ponertodo en mayusculas, hacerlo de manera manual me iva a tomar mucho tiempo asi que encontre esto que les puede ayudar

Primero encontre la funcion

=upper

con la syntaxis

=upper(A1)

pero esto me creaba otra celda con el texto en mayusculas , no era lo que yo buscaba

 

Se resolvio utilizando este esta pequeño codigo de Visual Basic

---

Public Sub mayuscula2()
Set rgColA = Range("aO2:AO5000")
Dim rg As Range
For Each rg In rgColA. Cells
rg. Value = UCase(rg. Text)
Next
End Sub

---