VBScript

VBScript: Mapear unidades de red

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 oscarProgramador WordPress freelance

Leer más »

VBScript: Copiar directorio y su contenido

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

Leer más »

VBScript: Compartir directorio en Windows XP

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.

Leer más »

VBScript: Configurar servicio de Windows XP como automatico

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

Leer más »

VBScript: Deshabilitar ctrl + alt + supr en Windows XP

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. —–

Leer más »