Mapear unidad de red

27/04/2009 - 10:36 por Juanjo | Informe spam
Hola,
He encontrado un srcript para conectar unidades de red mediante una
directiva local.
Tengo un servidor con windows 2008 y clientes con Windows Xp y Vista. En los
equipos con XP no tengo ningun problema, se conecta la unidad, pero en los
Vista no funciona.
A ver si alguien me puede echar un mano.
El script es el siguiente:

Option Explicit
Dim oNet, sUser, startTime

On Error Resume Next

' Objeto Red
Set oNet = CreateObject("WScript.Network")

' Obtenemos el login de usuario. En Windows 9x, el usuario puede no estar
todavía autentificado
' cuando el script comienza a ejecutarse; En ese caso reitera cada 1/2 segundo
sUser = oNet.UserName 'En minúsculas

startTime = Now
Do While sUser = ""
If DateDiff("s", startTime, Now) > 600 Then Wscript.Quit
Wscript.Sleep 500
sUser = oNet.UserName
Loop

' Mapeado de la unidad U particular de cada usuario

oNet.RemoveNetworkDrive "U:"
oNet.MapNetworkDrive "U:", "\\server2008\usuarios\" & sUser



Muchas gracias
Un saludo
 

Leer las respuestas

#1 Javier Inglés [MS MVP]
27/04/2009 - 10:58 | Informe spam
Si tienes un 2008 Server, por qué en lugar de usar un scrip de inicio de
sesión no usas mejor las Group Policy Preferences donde puedes hacer de
forma muy sencilla el mapeo de la unidad de red??

Lo único es que los XP deben tener instalado el complemento para poder
preocesarlos

Group Policy Preference Client Side Extensions for Windows XP (KB943729)
http://www.microsoft.com/downloads/...laylang=en

Salu2!!
Javier Inglés
https://mvp.support.microsoft.com/p...B5567431B0
MS MVP, Windows Server-Directory Services



"Juanjo" escribió en el mensaje
news:
Hola,
He encontrado un srcript para conectar unidades de red mediante una
directiva local.
Tengo un servidor con windows 2008 y clientes con Windows Xp y Vista. En
los
equipos con XP no tengo ningun problema, se conecta la unidad, pero en los
Vista no funciona.
A ver si alguien me puede echar un mano.
El script es el siguiente:

Option Explicit
Dim oNet, sUser, startTime

On Error Resume Next

' Objeto Red
Set oNet = CreateObject("WScript.Network")

' Obtenemos el login de usuario. En Windows 9x, el usuario puede no estar
todavía autentificado
' cuando el script comienza a ejecutarse; En ese caso reitera cada 1/2
segundo
sUser = oNet.UserName 'En minúsculas

startTime = Now
Do While sUser = ""
If DateDiff("s", startTime, Now) > 600 Then Wscript.Quit
Wscript.Sleep 500
sUser = oNet.UserName
Loop

' Mapeado de la unidad U particular de cada usuario

oNet.RemoveNetworkDrive "U:"
oNet.MapNetworkDrive "U:", "\\server2008\usuarios\" & sUser



Muchas gracias
Un saludo

Preguntas similares