Antón María Rodríguez Yuste

  
 
 

  • About

    Consultor orientado al sector TELCO (eTOM, SID), dirección de proyectos (scrum) y sistemas (Oracle, Weblogic, Jboss, Solaris, etc.). Un poco de todo, vamos.

  • Varios

Sindicación


Licencia


Validación



Sistemas






Varios

  
Script IP y nombre del PC December 12th, 2006

He creado un pequeño script para windows que cambia de forma inmediata la IP y el nombre del PC. Hay que ponerlo en un fichero con extesion .vbs y al ejecutarlo se realizara la accion deseada. Yo lo utilizo para al inicio que se cambia la IP y el nombre de un PC recien clonado. Para ver como ejecutar algo al inicio visitar esta web

PLAIN TEXT
CODE:
  1.  
  2. ' Script realizado por Anton Rodriguez Yuste para el establecimiento
  3. ' automatico de la IP y del nombre del PC
  4.  
  5. strComputer = "."
  6. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  7.  
  8. Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
  9.  
  10. strIPAddress = Array("172.19.28.201")
  11. strSubnetMask = Array("255.255.255.0")
  12. strGateway = Array("172.19.28.1")
  13. strGatewayMetric = Array(1)
  14.  
  15. For Each objNetAdapter in colNetAdapters
  16.     errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
  17.     errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
  18. Next
  19.  
  20. RegKeyCompName = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\"
  21. RegKeyTCPIP = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\"
  23. Set WSHShell = CreateObject("WScript.Shell")
  25. Set WSHShell = CreateObject("WScript.Shell")
  26. NewName = "PC_201"
  27. NewNameU = UCase(NewName)
  28. NewNameL = LCase(NewName)
  29. NewNameUCN = "CN=" & NewNameU
  31. With WSHShell
  32.   .RegDelete RegKeyTCPIP & "Hostname"
  33.   .RegDelete RegKeyTCPIP & "NV Hostname"
  34.   .RegWrite RegKeyCompName & "ComputerName\ComputerName", NewNameU
  35.   .RegWrite RegKeyCompName & "ActiveComputerName\ComputerName", NewNameU
  36.   .RegWrite RegKeyTCPIP & "Hostname", NewNameL
  37.   .RegWrite RegKeyTCPIP & "NV Hostname", NewNameL
  38. End With
Posted in Windows || No Comments »|| Convertir a PDF
write, talk y disquettes December 11th, 2006

Hoy encontré dos enlaces muy interesantes. El primero es este y nos explica varias formas de comunicarse entre usuarios linux. Yo ya conocía el comando write que nos permite mandar texto a la consola de otro usuario. Si ambos ejecutan el comando se puede incluso mantener una improvisada conversación lo que puede resultar bastante útil. También vale para hacer bromitas... El comando que no conocía es wall que le envia el mensaje a todos los usuarios.

Ademas explica como enviar emails desde consola que nunca esta de más.

El otro link de hoy es este y nos cuenta diferentes formas de hacer imágenes de un disquette. Hace tiempo que ando detrás de una herramienta gratuita y a poder ser GPL para hacerlo. Recuerdo que un compañero usaba una que estaba muy bien pero no la encuentro. Aquí hay muchas opciones. Por ahora la que mas me ha gustado es rawWritewin.

Se me olvidaba, si queremos hacer solo una copia de un disco podemos usar 'diskcopy a: a:' dentro de un acceso directo de windows y funciona a la perfeccion.

Posted in Linux, Windows || No Comments »|| Convertir a PDF