Archivo de noviembre, 2009
VBScript: Mapear unidades de red
30 nov
Este script de ejemplo nos va a servir para mapear unidades de red en equipos.
——————————————————————–
‘ mapearunidad.vbs
‘ script que mapea las unidades V: y M: a carpetas compartidas en la red.
‘ V: ==> \\servfich\ventas
‘ M: ==> \\servfich\marketing
‘
‘Creado por Oscar Abad el 18-11-09
‘
Dim Unidad
Set Unidad = WScript.CreateObject(“WScript.Network”)
Unidad.MapNetworkDrive “V:”, “\\servfich\ventas”
Unidad.MapNetworkDrive “M:”, “\\servfich\marketing”
——————————————————————–
No tiene mucho mas que decir, simplemente probadlo y me comentais.
Saludos.
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
Nuevo Veeam Monitor 4.5 free edition
26 nov
Ya tenemos nueva version de este software de monitorizacion que utilizaremos para monitorizar nuestros servidores ESXi.
La version que voy a comentar es la verion libre puesto que hay otra version de pago que, por supuesto, dispone de mas utilides y funcionalidad.
Veeam Free Edition Monitor es una herramienta fácil de usar para monitorización de VMware diseñado para cumplir con el día a día las necesidades de los administradores de VMware que necesitan un rendimiento en tiempo real de vigilancia y alerta. Construido a partir de cero específicamente para el mundo virtual, Veeam Monitor ofrece una visión panorámica de las métricas clave de desempeño en toda su infraestructura ESXi virtual.
Con Veeam Monitor, podemos ver en tiempo real los recursos de datos en tiempo de uso de cualquier objeto de infraestructura virtual o colección de objetos, así como eventos de la infraestructura conocidos, todos en una sola pantalla. Esto nos permite ver por fin nuestra infraestructura virtual como una entidad unificada, no sólo una colección de ordenadores aislados e invitados.
Para mas informacion, podemos acudir a la pagina web de Veeam Monitor Free Edition.
Tambien podremos descargarnos esta version desde la misma pagina.
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
VBScript: Copiar directorio y su contenido
25 nov
Otra de las tareas que podemos automatizar por medio de scripts en Visual Basic Script es la copia de una serie de carpetas y ficheros.
En el ejemplo, el script copia una carpeta al equipo local junto con todo el contenido que hay dentro de esta, ya sean carpetas o ficheros.
El script es el siguiente:
———————————————————————————-
‘ copiarcarpetascomunes.vbs
‘ Copia el contenido de la carpeta “\servficheros\ficheros\Carpetas comunes\” a “c:\”
‘
‘Creado por Oscar Abad el 7-8-09
‘
Option Explicit
Const SOBREESCRIBIR = True
Dim objFSO
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
objFSO.CopyFolder “\\servficheros\ficheros\Carpetas comunes\*.*” , “C:\” , SOBREESCRIBIR
—————————————————————————————-
Copia el contenido de “\\servficheros\ficheros\Carpetas comunes\” a la raiz del disco C:.
Script sencillo y de gran utilidad que podemos compaginar o complementar con las GPOs.
Saludos.
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
VmWare Workstation 7 compatible con ESX 4.0
24 nov
Aunque es algo que ya sabiamos por la informacion que Vmware habia lanzado cuando hizo publico el nuevo lanzamiento de la version 7 de Vmware Workstation, queria cerciorarme de ello.
Pues bien, he instalado, como ya sabeis, la esta version en mi Ubuntu y hoy me ha dado por comprobar esta afirmacion. Para ello, no he tenido mas que hacer la intencion de crear una maquina virtual para que me mostrar las compatibilidades.
Enseguida me ha mostrado la siguiente captura:
Como podeis comprobar, en la lista de “productos compatibles” aparece el “ESX 4.0″.
Esto nos va a venir muy bien para realizar pruebas.
Ahora solo queda realizar algunas pruebas para poder ver hasta donde llega esta compatibilidad y si funciona igualmente con ESXi 4.0.
Bueno, a probarlo se ha dicho.
Saludos.
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
VBScript: Compartir directorio en Windows XP
23 nov
Otra de las tareas que podemos automatizar en nuestros Windows XP es la de compartir un directorio que tenemos por costumbre compartir en todos los equipos para quien sabe que.
En el script he tomado como ejemplo el directorio c:\usuario. Por supuesto, este directorio debe de existir antes de ejecutar el script en cuestion.
Aqui lo teneis:
———————————————————————
‘ compartirdirectorio.vbs
‘ Comparte el directorio “c:\usuario” como “usuario”
‘
‘ Creador por Oscar Abad el 7-8-09 para www.aprendeinformaticaconmigo.com
‘
Option Explicit
Dim equipo
Dim objWMI, objNuevoCompartido
Dim errReturn
Const COMPARTIR_FICHEROS = 0
equipo = “.”
Set objWMI = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & equipo & “\root\cimv2″)
Set objNuevoCompartido = objWMI.Get(“Win32_Share”)
errReturn = objNuevoCompartido.Create (“C:\usuario”, “usuario”, COMPARTIR_FICHEROS,,”")
——————————————————————-
Pues eso es todo.
Saludos.
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
Los titulares de VCP4 obtendran una licencia de Vmware Workstation 7
21 nov
Jon Hall, del equipo de certificacion de Vmware ha confirmado que los que se capaciten en la nueva certificacion de Vmware VCP4, recibirán una nueva licencia para Vmware Workstation 7.
Vmware tiene que ultimar una serie de detalles internos, pero cuando los tenga solucionados, comenzaran a entregar las licencias.
Los titulares de VCP3 seguiran recibiendo una licencia para Vmware Workstation 6, como hasta ahora.
¿Que os parece? ¿quien se anima?
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
VBScript: Configurar servicio de Windows XP como automatico
20 nov
Continuando con los scripts en vbscript para automatizar tareas que realizamos normalmente para que no sean tan tediosas, en esta ocasion vamos a configurar un servicio como automatico y ademas lo iniciaremos.
Para este ejemplo, yo voy a utilizar el servicio servidor. Ya sabeis, ese que nos permite enviar y/o recibir mensajes “net send” entre los equipos.
No tiene ninguna complicacion asi que os dejo el script para que lo probeis y me digais que os parece:
——————————————————————-
‘serviciomensajeroautomatico.vbs
‘Script que establece el servicio “Mensajero” o “Messenger” como Automatico y lo inicia.
‘Nos sirve para cualquier idioma.
‘Creado por Oscar Abad el 4-8-09 para www.aprendeinformaticaconmigo.com
Option Explicit
Dim objSrvMens
Dim servicios, servicio
Dim equipo
Dim errReturnCode
equipo = “.”
Set objSrvMens = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & equipo & “\root\cimv2″)
Set servicios = objSrvMens.ExecQuery (“Select * from Win32_Service Where Name = ‘Messenger’”)
For Each servicio in servicios
errReturnCode = servicio.ChangeStartMode(“Automatic”)
errReturnCode = servicio.StartService()
Next
——————————————————————-
Espero vuestras opiniones despues de probarlo.
Saludos.
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
Guia de conversion de VBScript a Powershell
19 nov
Investigando un poco por la web, me he encontrado con una “Guia de conversion de VBScript a Powershell“.
Esta en ingles, pero no es muy dificil entenderla para cualquiera de nosotros que ya controlamos el segundo, tercer o cuarto idioma (como es mi caso) a la perfeccion (esto ultimo es broma).
Bien, el caso es que todavia no he podido leerla toda, pero si que le he echado un vistazo y considero que puede ser de gran ayuda para todos aquellos que ya conocen y/o trabajan con VBScript y quieren hacerlo ahora con Windows Powershell. El caso es que si no sabemos como hacer un… por ejemplo… Select Case en Powershell pero si lo sabemos hacer con VBScript, esta es la guia que necesitamos.
Enlace para la descarga de “The VBScript-to-Windows PowerShell Conversion Guide”.
Saludos.
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
Quique Gonzalez – Daiquiri blues
18 nov
Ya tenemos el nuevo disco de Quique Gonzalez a la venta.
Es el octavo disco de este fenomeno de la musica en sus ya diez años de carrera profesional.
Personalmente sigo a Quique Gonzalez desde su primer disco, aquel “Personal” que me impresiono nada mas escucharlo.
Mucho ha cambiado su musica desde aquel primer disco, pero el cambio ha sido para bien y manera gradual.
Con este disco creo que deja bien claro su postura musical afianzandose cada vez mas en un mercado muy complicado.
Listado de canciones
1.-Daiquiri Blues.
2.-Cuando estés en vena.
3.-Un arma precisa.
4.-Hasta que todo encaje.
5.-La lluvia debajo del brazo.
6.-Deslumbrado.
7.-Lo voy a derribar por ti.
8.-Su día libre.
9.-Riesgo y altura.
10.-Nadie podrá con nosotros.
11.-Restos de stock
12.-Anoche estuvo aquí.
13.-Algo me aleja de ti.
Tambien tenemos disponibles algunas fechas de su nueva gira en su pagina web.
Yo ya tengo las entradas para el concierto del dia 27 en Bilbao.
Bueno, una vez escuchado el disco por completo os aconsejo que le deis un par de oidas a ver que os parece.
Venga, saludos.
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
VBScript: Deshabilitar ctrl + alt + supr en Windows XP
17 nov
Muchos de vosotros, ya os habreis dado cuenta de esta característica de Windows XP.
Mediante este script, conseguimos con un click de raton, lo que tendriamos que realizar a mano en cada equipo que instalemos. Tendriamos que ir al panel de control, cuentas de usuario y cambiar la forma en que los usuarios inician y cierran sesion.
El script es el siguiente:
———————————————————
Option Explicit
Dim objReg
Dim strCaminoClave
Dim strNombreValor
Dim strValor
Dim equipo
Const HKLM = &H80000002
equipo = “.”
Set objReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & equipo & “\root\default:StdRegProv”)
strCaminoClave = “SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon”
strNombreValor = “DisableCAD”
objReg.DeleteValue HKLM,strCaminoClave,strNombreValor
strValor = 1
objReg.SetDWORDValue HKLM,strCaminoClave,strNombreValor,strValor
——————————————————-
A mi me es de gran utilidad.
Probadlo y me contais que os parece.
Venga, saludos.
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
Loading ...