Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 No encuentro el error
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Maya_blue
Starting Member

Mexico
9 Posts
Mensajes - 15 Sep 2008 :  19:28:30  Ver Perfil  Enviar Email
Alguien me puede decir q tngo q arreglar esq no puedo correr este codigo lo siguiente es el mnsg de error q m produce mi codigo
Scripts:\\SRVBLUE\NETLOGON\LOGON.VBS
Line : 11
Char: 1
Error: Type mismatch Join
Code : 800a000d
Source: Microsoft vbscript runtime error

Este es el codigo que estoy usando
Dim strGrupos
Const ES = "cn=ELECTRONICA_SOLA"
Const FI = "cn=Finanzas"
Const RH = "cn=Recursos humanos"

Set prueba = CreateObject("WScript.Network")
prueba.MapNetworkDrive "h:", "\\SRVBLUE\Users\" & prueba.UserName

Set ADSysInfo = CreateObject("ADSystemInfo")
Set usuarioActual = GetObject("LDAP://" & ADSysInfo.UserName)
set strGrupos = LCase(CDbl(Join(UsuarioActual.MemberOf)))

If InStr(strGrupos, ES) Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\ELECTRONICA_SOLA\"
prueba.AddWindowsPrinterConnection "\\SRVBLUE\LexmarkO"
prueba.SetDefaultPrinter "\\SRVBLUE\LexmarkO"

ElseIf InStr(strGrupos,FI) Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\Finanzas\"
prueba.AddWindowsPrinterConnection "\\SRVBLUE\LexmarkO"
prueba.SetDefaultPrinter "\\SRVBLUE\LexmarkO"

ElseIf InStr(strGrupos, RH) Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\Recursos humanos\"
prueba.AddWindowsPrinterConnection"\\SRVBLUE\LexmarkO"
wshNetWork.SetDefaultPrinter "\\SRVBLUE\LexmarkO"
End If

alguien m pued señalar q tngo q hacer para poder hacer funcionar correctamente el siguiente codigo, lo q sigue es el mansaje de error q m arroja.
Scripts:\\SRVBLUE\NETLOGON\LOGON.VBS
Line : 11
Char: 1
Error: Type mismatch Join
Code : 800a000d
Source: Microsoft vbscript runtime error

Este es el codigo que estoy usando
Dim strGrupos
Const ES = "cn=ELECTRONICA_SOLA"
Const FI = "cn=Finanzas"
Const RH = "cn=Recursos humanos"

Set prueba = CreateObject("WScript.Network")
prueba.MapNetworkDrive "h:", "\\SRVBLUE\Users\" & prueba.UserName

Set ADSysInfo = CreateObject("ADSystemInfo")
Set usuarioActual = GetObject("LDAP://" & ADSysInfo.UserName)
set strGrupos = LCase(CDbl(Join(UsuarioActual.MemberOf)))

If InStr(strGrupos, ES) Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\ELECTRONICA_SOLA\"
prueba.AddWindowsPrinterConnection "\\SRVBLUE\LexmarkO"
prueba.SetDefaultPrinter "\\SRVBLUE\LexmarkO"

ElseIf InStr(strGrupos,FI) Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\Finanzas\"
prueba.AddWindowsPrinterConnection "\\SRVBLUE\LexmarkO"
prueba.SetDefaultPrinter "\\SRVBLUE\LexmarkO"

ElseIf InStr(strGrupos, RH) Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\Recursos humanos\"
prueba.AddWindowsPrinterConnection"\\SRVBLUE\LexmarkO"
wshNetWork.SetDefaultPrinter "\\SRVBLUE\LexmarkO"
End If

se los agradeceria mucho


aqui tngo casi lo mismo esq la vdd yo no c mucho de esto apnas lo estoy practicando
Dim strGrupos
Const ELECTRONICA_SOLA = "cn=ELECTRONICA_SOLA"
Const Finanzas = "cn=Finanzas"
Const Recursos_humanos = "cn=Recursos humanos"

Set prueba = CreateObject("WScript.Network")
prueba.MapNetworkDrive "h:", "\\SRVBLUE\Users\" & prueba.UserName

Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGrupos = LCase(Join(CurrentUser.MemberOf))

If InStr(strGrupos,"cn=ELECTRONICA_SOLA") Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\ELECTRONICA_SOLA\"
prueba.AddWindowsPrinterConnection "\\SRVBLUE\LexmarkO"
prueba.SetDefaultPrinter "\\SRVBLUE\LexmarkO"

ElseIf InStr(strGrupos,"cn=Finanzas") Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\Finanzas\"
prueba.AddWindowsPrinterConnection "\\SRVBLUE\LexmarkO"
prueba.SetDefaultPrinter "\\SRVBLUE\LexmarkO"

ElseIf InStr(strGrupos,"cn=Recursos_humanos") Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\Recursos humanos\"
prueba.AddWindowsPrinterConnection"\\SRVBLUE\LexmarkO"
wshNetWork.SetDefaultPrinter "\\SRVBLUE\LexmarkO"
End If


ESQ YO APNAS ESTOY EMPEZANDO A PRACTICAR ESTO Y NO SE Q TNGO Q CORREGIR
Dim strGrupos
Const ELECTRONICA_SOLA = "cn=ELECTRONICA_SOLA"
Const Finanzas = "cn=Finanzas"
Const Recursos_humanos = "cn=Recursos humanos"

Set prueba = CreateObject("WScript.Network")
prueba.MapNetworkDrive "h:", "\\SRVBLUE\Users\" & prueba.UserName

Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGrupos = LCase(Join(CurrentUser.MemberOf))

If InStr(strGrupos,"cn=ELECTRONICA_SOLA") Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\ELECTRONICA_SOLA\"
prueba.AddWindowsPrinterConnection "\\SRVBLUE\LexmarkO"
prueba.SetDefaultPrinter "\\SRVBLUE\LexmarkO"

ElseIf InStr(strGrupos,"cn=Finanzas") Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\Finanzas\"
prueba.AddWindowsPrinterConnection "\\SRVBLUE\LexmarkO"
prueba.SetDefaultPrinter "\\SRVBLUE\LexmarkO"

ElseIf InStr(strGrupos,"cn=Recursos_humanos") Then
prueba.MapNetworkDrive "i:", "\\SRVBLUE\Recursos humanos\"
prueba.AddWindowsPrinterConnection"\\SRVBLUE\LexmarkO"
wshNetWork.SetDefaultPrinter "\\SRVBLUE\LexmarkO"
End If


GRACIAS

Editado: No abras varios hilos con el mismo problema.

Editado por - DonGato on 16 Sep 2008 10:10:46

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar