| |
|
|
| |
-
Windows Script Host - VBScript - Sistema de archivos - Compartir archivos
-
El objeto "FileShare" representa una carpeta compartida. El acceso a ese objeto se realiza sobre el sistema de servicios de Windows
"ntlanmanserver". A un recurso compartido se accede sobre un path ADSI (Active Directory Services Interface) en forma
"WinNT://nombredelordenador/lanmanserver/nombre del recurso compartido".
La clase "FileShare" está disponible a partir del componente ADSI.
El siguiente ejemplo, muestra como compartir recursos.
El script crea, tras la declaración de variables, una referencia a "Fileservice LanManServer" con el metodo "GetObject( )"
y la guarda en la variable "red". Despues de instanciar el objeto "FileShare" sobre el metodo "Create( )" del "Fileservice"
se estableserá el atributo "Path" del objeto "FileShare" a la carpeta a compartir.
La llamada de "SetInfo( )" cierra la operación. Al final se mostrará un mensaje.
' compartir.vbs
' ================================================
Option Explicit
' declaracion de variables
Dim red, compartir
' declarar constantes
Const compartpath="c:\test"
Const compartnombre="testlibre:"
Const computer="Alfredo-pc"
' crear objeto
Set red = GetObject("WinNT://" & computer & "/lanmanserver")
' compartir recurso
Set compartir = red.Create("Fileshare",compartnombre)
' estableser atributo
' carpeta a compartir
compartir.path = compartpath
' escribir valores
compartir.SetInfo
' salida
WScript.Echo "Los recursos fueron compartidos."
 |
|
Ultima actualisación: Tue, 24 ▪ May ▪ 2011
|
|
|
|
