none
Mapeo de Unidades con script VBS - Windows Server 2012 - Active Directory RRS feed

 > 

  • Pregunta

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Que tal amigos; 

    Primero que nada saludarlos por tan grande comunidad. Y bueno aca acudiendo a ustedes esperando puedan ayudarme. Tengo lo siguiente:

    SO: Windows server 2012
    Mapeo de unidades: A travez de este script: 

     Set oWshNet = CreateObject("Wscript.Network")
 Set oShellApp = CreateObject("Shell.Application")
  
 sDriveLetter1 = "U:"
 sDriveDesc1 = "usuario1"
 sShare1 = "\\datastore\USU-ADM$\usuario1"

 sDriveLetter2 = "V:"
 sDriveDesc2 = "ADMINISTRACION"
 sShare2 = "\\datastore\ADMINISTRACION$"

 sDriveLetter3 = "S:"
 sDriveDesc3 = "SCANS"
 sShare3 = "\\datastore\ESCANEOS$\ADMINISTRACION\usuario1"

 sDriveLetter4 = "T:"
 sDriveDesc4 = "ALLE"
 sShare4 = "\\datastore\TODOS$"

 ' Remueve la unidad de red
 On Error Resume Next
 oWshNet.RemoveNetworkDrive sDriveLetter1, True, True
 oWshNet.RemoveNetworkDrive sDriveLetter2, True, True
 oWshNet.RemoveNetworkDrive sDriveLetter3, True, True
 oWshNet.RemoveNetworkDrive sDriveLetter4, True, True
   
 ' Mapea unidad de red
 On Error Goto 0
 oWshNet.MapNetworkDrive sDriveLetter1, sShare1
 oWshNet.MapNetworkDrive sDriveLetter2, sShare2
 oWshNet.MapNetworkDrive sDriveLetter3, sShare3
 oWshNet.MapNetworkDrive sDriveLetter4, sShare4
   
 ' Establece el nombre de la unidad
 oShellApp.NameSpace(sDriveLetter1 & "\").Self.Name = sDriveDesc1
 oShellApp.NameSpace(sDriveLetter2 & "\").Self.Name = sDriveDesc2
 oShellApp.NameSpace(sDriveLetter3 & "\").Self.Name = sDriveDesc3
 oShellApp.NameSpace(sDriveLetter4 & "\").Self.Name = sDriveDesc4

    Ahora; tengo el problema que aveces si y aveces no le cargan sus unidades. A pesar que reinicio la pc no le carga en ocasiones y tengo q darle un gpupdate /force para que se les mapee. 

    Alguna idea de lo que pueda estar ocasionandolo?. El script que coloco arriba esta limpio ya que el original tiene variables y llamados con parametros que le paso desde el campo sript: 

    usuario1.vbs DATASTORE ADMINISTRACION

    Gracias de antemano por su apoyo.

    Jorge


    • Editado DunkleSeele martes, 14 de agosto de 2018 22:19
    martes, 14 de agosto de 2018 22:19
    |

Todas las respuestas

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Hola Jorge,

    Si el script te carga forzando un gpupdate, tiene que estar correcto. Por lo que describes el problema puede venir por que el script se ejecute antes de tener red.

    Prueba habilitando "Always wait for network" en la GPO  a ver si así tienes mas suerte.

    Otra opción es meter un delay a principio del script, pero haría demorar mas el arranque.

    Saludos,

    martes, 14 de agosto de 2018 23:52
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar
    Lo Recomendable es que coloque el script en el perfil del cada usuario :)
    miércoles, 30 de septiembre de 2020 14:19
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar
    Buen día estuve tratando de usar el que tenias y vi que algo estaba mal y lo corregí aquí la corrección espero les funcione.

    Set oWshNet = CreateObject("Wscript.Network")
    Set oShellApp = CreateObject("Shell.Application")

    sDriveLetter = "R:"
    sDriveDesc = "HiramMontaner"
    sShare = "\\Servfile\Hairam$"

    sDriveLetter1 = "M:"
    sDriveDesc1 = "HairamMontaner2"
    sShare1 = "\\Servfile\Montaner$"

    ' Mapeo de la unidad de red
    On Error Resume Next
    oWshNet.RemoveNetworkDrive sDriveLetter, True, True
    oWshNet.RemoveNetworkDrive sDriveLetter1, True, True
    On Error Goto 0
    oWshNet.MapNetworkDrive sDriveLetter, sShare
    oWshNet.MapNetworkDrive sDriveLetter1, sShare1

    ' Establece la descripcion
    oShellApp.NameSpace(sDriveLetter & "\").Self.Name = sDriveDesc
    oShellApp.NameSpace(sDriveLetter1 & "\").Self.Name = sDriveDesc1
    domingo, 16 de enero de 2022 0:08
    |