Usuario no aplica script de inicio.

18/05/2007 - 23:49 por Macleod | Informe spam
Hola a todos!!

Mi problema es el siguiente:

Tengo un Windows 2003 AS con un AD instalado. He creado un script de inicio
que especifico en "Logon script" de la pestaña "User Profile" del usuario.

Lo curioso de este asunto es que si el usuario esta simplemente dentro del
grupo "domain users" no ejecuta el script (que es para conectarlo a una
carpeta compartida segun el grupo al que pertenece). Pero si ingreso a
cualquier usuario dentro del grupo "domain admins" sí ejecuta el script y lo
conecta a su unidad correspondiente.

El escript es el siguiente:

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN

Select Case strGroupName
Case "Global_Depto Informatica"
objNetwork.MapNetworkDrive "X:", "\\Orion\Depto Informatica"

Case "Global_Dir General"
objNetwork.MapNetworkDrive "X:", "\\Orion\Dir General"

End Select
Next

DATOS QUE PUDEN SER DE AYUDA:
1.- Los permisos están correctos tanto de la carpeta o folder como del
usuario.
2.- El grupo al que pertenece el usuario está correcto y bien escrito.
3.- El script está dentro de la carpeta SYSVOL del Sistema Operativo.

Cualquier ayuda es siempre bienvenida.
Gracias!!

Preguntas similare

Leer las respuestas

#1 Rodrigo de los Santos
19/05/2007 - 15:23 | Informe spam
Has probado correr el script manualmente desde la estación de trabajo para
verificar si no salta algún error?
Remueve el On Error Resume Next y verifica en que línea estas tirando el
error.

Saludos

Rodrigo de los Santos
rodrigo at dlssolutions dot net
www.dlssolutions.net
"Macleod" wrote in message
news:
Hola a todos!!

Mi problema es el siguiente:

Tengo un Windows 2003 AS con un AD instalado. He creado un script de
inicio
que especifico en "Logon script" de la pestaña "User Profile" del usuario.

Lo curioso de este asunto es que si el usuario esta simplemente dentro del
grupo "domain users" no ejecuta el script (que es para conectarlo a una
carpeta compartida segun el grupo al que pertenece). Pero si ingreso a
cualquier usuario dentro del grupo "domain admins" sí ejecuta el script y
lo
conecta a su unidad correspondiente.

El escript es el siguiente:

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN

Select Case strGroupName
Case "Global_Depto Informatica"
objNetwork.MapNetworkDrive "X:", "\\Orion\Depto Informatica"

Case "Global_Dir General"
objNetwork.MapNetworkDrive "X:", "\\Orion\Dir General"

End Select
Next

DATOS QUE PUDEN SER DE AYUDA:
1.- Los permisos están correctos tanto de la carpeta o folder como del
usuario.
2.- El grupo al que pertenece el usuario está correcto y bien escrito.
3.- El script está dentro de la carpeta SYSVOL del Sistema Operativo.

Cualquier ayuda es siempre bienvenida.
Gracias!!
Respuesta Responder a este mensaje
#2 Macleod
19/05/2007 - 17:30 | Informe spam
Q'tal Rodrigo gracias por contestar, mira. Seguí tu consejo y me marca el
siguiente error:

Error de Microsoft VBScript en tiempo de ejecución: El objeto no es una
colección.

El script quedó de la siguiente manera y la línea en Mayúsculas es la que me
marca el error. Si lo he corrido de manera local y accediendo a el a través
de la red. Pero con un simple usuario no funciona y con un domain admin sí.

Gracias otra vez por tus comentarios.

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
SET OBJGROUP = GETOBJECT(STRGROUPPATH)
strGroupName = objGroup.CN

Select Case strGroupName
Case "Global_Depto Informatica"
objNetwork.MapNetworkDrive "X:", "\\Orion\Depto Informatica"

Case "Global_Dir General"
objNetwork.MapNetworkDrive "X:", "\\Orion\Dir General"

End Select
Next

"Rodrigo de los Santos" wrote:

Has probado correr el script manualmente desde la estación de trabajo para
verificar si no salta algún error?
Remueve el On Error Resume Next y verifica en que línea estas tirando el
error.

Saludos

Rodrigo de los Santos
rodrigo at dlssolutions dot net
www.dlssolutions.net
"Macleod" wrote in message
news:
> Hola a todos!!
>
> Mi problema es el siguiente:
>
> Tengo un Windows 2003 AS con un AD instalado. He creado un script de
> inicio
> que especifico en "Logon script" de la pestaña "User Profile" del usuario.
>
> Lo curioso de este asunto es que si el usuario esta simplemente dentro del
> grupo "domain users" no ejecuta el script (que es para conectarlo a una
> carpeta compartida segun el grupo al que pertenece). Pero si ingreso a
> cualquier usuario dentro del grupo "domain admins" sí ejecuta el script y
> lo
> conecta a su unidad correspondiente.
>
> El escript es el siguiente:
>
> On Error Resume Next
>
> Set objSysInfo = CreateObject("ADSystemInfo")
> Set objNetwork = CreateObject("Wscript.Network")
>
> strUserPath = "LDAP://" & objSysInfo.UserName
> Set objUser = GetObject(strUserPath)
>
> For Each strGroup in objUser.MemberOf
> strGroupPath = "LDAP://" & strGroup
> Set objGroup = GetObject(strGroupPath)
> strGroupName = objGroup.CN
>
> Select Case strGroupName
> Case "Global_Depto Informatica"
> objNetwork.MapNetworkDrive "X:", "\\Orion\Depto Informatica"
>
> Case "Global_Dir General"
> objNetwork.MapNetworkDrive "X:", "\\Orion\Dir General"
>
> End Select
> Next
>
> DATOS QUE PUDEN SER DE AYUDA:
> 1.- Los permisos están correctos tanto de la carpeta o folder como del
> usuario.
> 2.- El grupo al que pertenece el usuario está correcto y bien escrito.
> 3.- El script está dentro de la carpeta SYSVOL del Sistema Operativo.
>
> Cualquier ayuda es siempre bienvenida.
> Gracias!!


Respuesta Responder a este mensaje
#3 Rodrigo de los Santos
19/05/2007 - 18:36 | Informe spam
El error no vendrá del for each? te ifjaste si se instancia realmente el
strGroup en objUser.MemberOf? es decir, ¿podes levantar dicha propiedad?

Te muestro como lo tengo yo en un script

Const SECRETARIAS = "cn=secretarias"
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

strmemberOf = CurrentUser.GetEx("memberOf")
For Each Item in strmemberOf
strGroups=strGroups & LCase(item)
Next

If InStr(strGroups, SECRETARIAS) Then
wshNetwork.MapNetworkDrive "r:", "\\server\secretarias"
End If


Saludos

Rodrigo de los Santos
rodrigo at dlssolutions dot net
www.dlssolutions.net
"Macleod" wrote in message
news:
Q'tal Rodrigo gracias por contestar, mira. Seguí tu consejo y me marca el
siguiente error:

Error de Microsoft VBScript en tiempo de ejecución: El objeto no es una
colección.

El script quedó de la siguiente manera y la línea en Mayúsculas es la que
me
marca el error. Si lo he corrido de manera local y accediendo a el a
través
de la red. Pero con un simple usuario no funciona y con un domain admin
sí.

Gracias otra vez por tus comentarios.

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
SET OBJGROUP = GETOBJECT(STRGROUPPATH)
strGroupName = objGroup.CN

Select Case strGroupName
Case "Global_Depto Informatica"
objNetwork.MapNetworkDrive "X:", "\\Orion\Depto Informatica"

Case "Global_Dir General"
objNetwork.MapNetworkDrive "X:", "\\Orion\Dir General"

End Select
Next

"Rodrigo de los Santos" wrote:

Has probado correr el script manualmente desde la estación de trabajo
para
verificar si no salta algún error?
Remueve el On Error Resume Next y verifica en que línea estas tirando el
error.

Saludos

Rodrigo de los Santos
rodrigo at dlssolutions dot net
www.dlssolutions.net
"Macleod" wrote in message
news:
> Hola a todos!!
>
> Mi problema es el siguiente:
>
> Tengo un Windows 2003 AS con un AD instalado. He creado un script de
> inicio
> que especifico en "Logon script" de la pestaña "User Profile" del
> usuario.
>
> Lo curioso de este asunto es que si el usuario esta simplemente dentro
> del
> grupo "domain users" no ejecuta el script (que es para conectarlo a una
> carpeta compartida segun el grupo al que pertenece). Pero si ingreso a
> cualquier usuario dentro del grupo "domain admins" sí ejecuta el script
> y
> lo
> conecta a su unidad correspondiente.
>
> El escript es el siguiente:
>
> On Error Resume Next
>
> Set objSysInfo = CreateObject("ADSystemInfo")
> Set objNetwork = CreateObject("Wscript.Network")
>
> strUserPath = "LDAP://" & objSysInfo.UserName
> Set objUser = GetObject(strUserPath)
>
> For Each strGroup in objUser.MemberOf
> strGroupPath = "LDAP://" & strGroup
> Set objGroup = GetObject(strGroupPath)
> strGroupName = objGroup.CN
>
> Select Case strGroupName
> Case "Global_Depto Informatica"
> objNetwork.MapNetworkDrive "X:", "\\Orion\Depto Informatica"
>
> Case "Global_Dir General"
> objNetwork.MapNetworkDrive "X:", "\\Orion\Dir General"
>
> End Select
> Next
>
> DATOS QUE PUDEN SER DE AYUDA:
> 1.- Los permisos están correctos tanto de la carpeta o folder como del
> usuario.
> 2.- El grupo al que pertenece el usuario está correcto y bien escrito.
> 3.- El script está dentro de la carpeta SYSVOL del Sistema Operativo.
>
> Cualquier ayuda es siempre bienvenida.
> Gracias!!


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida