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
