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.
