#############################################333
Dim ObjNet,ObjGroup                                  
Dim ComputerName,UserNamedim,CompType                 
 
'###Fin declaración variables#####################################################################

'###creación objetos    

Set OBJnet = CreateObject("WScript.Network")           'crea el objeto net

'###fin creación objetos###########################################################################

 
'####inicialización  variables#####################################################################

   	ComputerName = ObjNet.ComputerName             'no necesita explicación...
   	UserName = ObjNet.username                     'coje el nombre
   	
 
'### fin de inicialización variables ##################################################################

'### MAIN ############################################################################################

if not existe then 'Comprueba que existe el fichero c:\temp\existe.txt. si no existe, es la primera vez que se ha entrado
    WScript.Echo "User Name:        " & UserName
    WScript.Echo "computername:     " & ComputerName
    wscript.echo "tipo de máquina : " & tipoMaquina(ComputerName)'Por el tipo de letra del nombre, determina tipo de máquina.

     RemoveAllPrinters 'LAS BORRA TODAS BIEN BORRADAS.
     wscript.echo excel
    createafile 'crea el archivo para no ejecutar más el script.
end if
 
'###END MAIN ############################################################################################

 
'###FUNCIONES y RUTINAS ##############################################################################################

Function TipoMaquina(strcomputername)
on error resume next
CompType = ucase(mid(StrComputerName,6,1))                'determina que tipo de maquina es por la letra del nombre                                                                     'Desktop(D),Laptop(L) o server(0)
         select case CompType
		case "D" TipoMaquina = "desktop"
		case "N" TipoMaquina = "Laptop"
		case "0" TipoMaquina= "servidor"
		case else TipoMaquina = "error"
        end select
 
End Function
 
 
 
sub MapDrive(strDrive,strShare)                           'intenta mapear la unidad vía funcion y devuelve error false o true
	on error resume next                              ' si no se pone, para en el error y no comprueba el condicinoal del Err
	ObjNet.MapNetworkDrive strDrive,strShare
        If Err  Then
		ObjNet.RemoveNetworkDrive strDrive
               	ObjNet.MapNetworkDrive strDrive,strShare
        End If
End sub		
 
 
 
function  Getgroup(user,group) 'devuelve true or false dpendiendo si es del grupo o no. No hay otra manera de hacerlo
 Dim DomainName
 DomainName = "WinNT://MIDOMINIO/" 'cambiar al dominio propio.
    
          on error resume next
 
          Set ObjGroup = GetObject(DomainName &group)
          	if err then
          		wscript.echo "No existe el grupo : "&group
          		GetGroup = False
          	else
	               If ObjGroup.IsMember(DomainName&user) = true Then
  			       wscript.Echo "si, pertenece al grupo "&group
              		       Getgroup = True
              		Else
                 		wscript.Echo "No pertenece al grupo "&group
                 		Getgroup = False
                	End If
                 end if
end function
 
Function Excel 
 
 ArrayCols = Array ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O","P","Q", "R", "S", "T", "U","V","W","X","Y","Z")
                         'Define la tabla con letras, para hacer búsquedas secuenciales en el excel.
  Dim libro
  dim Intfil,Intcol
  dim RutaExcel
  RutaExcel = "\\RUTA_AL_EXCEL"
  set libro = Wscript.CreateObject("Excel.Application")
  call libro.Workbooks.Open(RutaExcel,0)
 
   libro.Sheets(1).Activate
        Intcol = 0                                 'esto es un hack, para no declarar más veces la variable
	do
                IntFil = 1
                if Getgroup (Username,libro.Range(ArrayCols(Intcol) & Intfil).Text) = True then	'Comprueba si el usuario pertenece al grupo								'Recorre las columnas y luego las filas, comparando si es distinto de espacio en blanco, en caso negativo, si la fi
			Do while libro.Range(ArrayCols(Intcol) & Intfil+1).Text <>  ""
                               wscript.echo "Instalando la impresora : " & libro.Range(ArrayCols(Intcol) & Intfil+1).Text & " espere... "
                               Objnet.AddWindowsPrinterConnection libro.Range(ArrayCols(Intcol) & Intfil+1).Text  'instala impresora
                               IntFil = IntFil + 1
			Loop
                        intfil = 1 'Para volver a la primera fila otra vez y comparar
		end if
                Intcol = Intcol + 1
	loop while  libro.Range(ArrayCols(Intcol) & Intfil).Text <> ""
        libro.Quit 'IMPORTANTÍSIMOOOOOOOOO. es como los accesos via ADOdb. Se ha de cerrar conexion sino queda zombi
end function
 
Function RemoveAllPrinters
On Error Resume Next
set objNetwork = CreateObject("wscript.network")
Set objPrinters = objNetwork.EnumPrinterConnections
For i = 0 to objPrinters.Count - 1 Step 2
    PrinterPath = objPrinters.Item(i+1)
    wscript.echo  "eliminando impresora : " & printerpath & " Espere..."
    objNetwork.RemovePrinterConnection PrinterPath, true, true
Next
 
end function
 
Function existe
Dim Exist
   Set Exist = CreateObject("Scripting.FileSystemObject")
   If (Exist.FileExists("c:\temp\existe.txt")) Then
    existe = True
   Else
     existe = False
   End If
 
End Function
 
 
Sub CreateAfile
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile("c:\temp\existe.txt", True)
   MyFile.Close
End Sub

Function texto 
 
 
 ArrayCols = Array ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O","P","Q", "R", "S", "T", "U","V","W","X","Y","Z")
                         'Define la tabla con letras, para hacer búsquedas secuenciales en el excel.
  Dim libro
  Dim Intfil,Intcol
  Dim archivotexto
 
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.opentextfile("C:\impresoras1.txt",1)	'abrimos el archivo
msgbox archivotexto.readline					'leemos una linea, la primera
archivotexto.skipline							'saltamos una linea
msgbox archivotexto.readline					'leemos una linea, la tercera
archivotexto.close							'cerramos el archivo

  'RutaExcel = "C:\impresoras1.xls"
 ' Set libro = Wscript.CreateObject("Excel.Application")
  Call libro.Workbooks.Open(archivotexto,0)
 
   libro.Sheets(1).Activate
        Intcol = 0                                 'esto es un hack, para no declarar más veces la variable
	do
                IntFil = 1
                if Getgroup (Username,libro.Range(ArrayCols(Intcol) & Intfil).Text) = True then	'Comprueba si el usuario pertenece al grupo								'Recorre las columnas y luego las filas, comparando si es distinto de espacio en blanco, en caso negativo, si la fi
			Do while libro.Range(ArrayCols(Intcol) & Intfil+1).Text <>  ""
                               wscript.echo "Instalando la impresora : " & libro.Range(ArrayCols(Intcol) & Intfil+1).Text & " espere... "
                               Objnet.AddWindowsPrinterConnection libro.Range(ArrayCols(Intcol) & Intfil+1).Text  'instala impresora
                               IntFil = IntFil + 1
			Loop
                        intfil = 1 'Para volver a la primera fila otra vez y comparar
		end if
                Intcol = Intcol + 1
	loop while  libro.Range(ArrayCols(Intcol) & Intfil).Text <> ""
        libro.Quit 'IMPORTANTÍSIMOOOOOOOOO. es como los accesos via ADOdb. Se ha de cerrar conexion sino queda zombi
end function

on error resume next 
Dim objADSystemInfo, objUser, objMemberOf, objGroup, objGroupEnum, objNetwork, objPrinter dim i, bTroubleFlag 
 
Set objNetwork = CreateObject("Wscript.Network") 
 
'Get current user info from active directory 
Set objADSystemInfo = CreateObject("ADSystemInfo") 
'bind to current user in active directory
set objUser = GetObject("LDAP://" & objADSystemInfo.UserName) 
 
if objuser.description = "printer.trouble" then 
    bTroubleFlag = true 
    msgbox "Troubleshooting Printer Logon Script" 
end if 
 
Set objPrinter = objNetwork.EnumPrinterConnections 'Test to see if we have any printers mapped If objPrinter.Count > 0 Then 
    'The Printer array is Printer name, printer path that is why it is step 2 
    for i=1 to objPrinter.Count Step 2 
        'test to make sure it is a network printer 
        if instr(objPrinter.Item(i),"\\") <> 0 then 
            if bTroubleFlag then 
                msgbox "Deleting:" & vbcrlf & 
objPrinter.Item(i) 
            end if 
            objNetwork.RemovePrinterConnection 
objPrinter.Item(i),true,true 
        end if 
    next 
end if 
 
 
'Get an array of group names that the user is a member of objMemberOf = objUser.MemberOf for Each objGroup in objMemberOf 
    'Test to see if it is a printer group. all printer groups should be in the same OU 
    if (instr(objGroup,"OU=Printer-Groups") <> 0) then 
        'Bind to the group to get is description. The description contain the path to the printer 
        set objGroupEnum = GetObject("LDAP://" & objGroup) 
        if bTroubleFlag then 
            msgbox "Adding:" & vbcrlf & "[" & 
objGroupEnum.name & "]" & vbcrlf & objGroupEnum.description 
        end if 
        objNetwork.AddWindowsPrinterConnection 
objGroupEnum.description 
        set objGroupEnum = nothing 
    end if 
next 
'Repeat as above for the default printer for Each objGroup in objMemberOf 
    if (instr(objGroup,"OU=Printer-Default-Groups") <> 0) then 
        set objGroupEnum = GetObject("LDAP://" & objGroup) 
        if bTroubleFlag then 
            msgbox "Setting Default:" & vbcrlf & "[" & objGroupEnum.name & "]" & vbcrlf & objGroupEnum.description 
        end if 
        objNetwork.SetDefaultPrinter objGroupEnum.description 
        set objGroupEnum = nothing 
    end if 
next 
 
if bTroubleFlag then 
    msgbox "Printer Logon Script Finished" 
end if