Usuario
Mapeo de Unidades con script VBS - Windows Server 2012 - Active Directory

Pregunta
-
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
Todas las respuestas
-
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,
-
-
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