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

oscar

Programador WordPress freelance