Recentemente estive preocupado em instalar uma impressora em varios equipamentos, de uma empresa e seria um tanto cansativo instalar maquina por maquina (manualmente) em mais de 50 micros a mesma impressora.Entao eu procurei na net um script que me ajudasse a fazer isso e finalmente consegui achar um que funcionasse.Detalhamento do Script:Ao executa-lo o script procura no servidor o driver da impressora (por isso e importante vcs colocarem o driver num caminho de facil localizacao) a ser instalada, mapeia a porta da impressora(o ip da dita cuja) e ainda define ela como padrao.Salvem o arquivo na pasta scripts do servidor, e peca pra que todos os usuarios executem esse script.Nao esquecam de salva-lo com a extensao .vbs=============================SCRIPT==============================='Verifica se a impressora ja esta instaladaDIM multiPrinter, UNCpath1, UNCpath2, arrPrinters, oPrinters, strPrinter,boolMapped, iSet multiPrinter = CreateObject("wscript.network")Set oPrinters = multiPrinter.EnumPrinterConnections For i = 0 to oPrinters.Count - 1 Step 2 If oPrinters.Item(i+1) = "Nome da Impressora de Rede" Then WScript.Echo "A impressora Nome da Impressora ja esta instalada." WScript.quit 'Finaliza o script caso a impressora ja esteja instalada end if NextPathToDLL = "\\Caminho do driver no servidor"portloc = "Ip da impressora"DriverName = "Nome da impressora"PrintQueueName = ""set wshshell = wscript.createobject("wscript.shell")set fso = createobject("scripting.filesystemobject")'Copia e registra DLL para instalacao de impressorafso.copyfile PathToDLL, "c:\windows\Driver.DLL", Truewshshell.run "regsvr32 /s ""c:\windows\Driver.DLL""", , Truewscript.sleep 1000 dim oPort dim oMaster set oPort = CreateObject("Port.Port.1") set oMaster = CreateObject("PrintMaster.PrintMaster.1") portinput = "IP_" & portloc oPort.ServerName = "" sPortExist = False for each oPort in oMaster.Ports("") if oPort.PortName = portinput then sPortExist = True End If next If sPortExist = False then set oPort = CreateObject("Port.Port.1") oPort.PortName = portinput oPort.PortType = 1 oPort.HostAddress = portloc oPort.PortNumber = 9100 oPort.SNMP = false oMaster.PortAdd oPort if Err <> 0 then msgbox "an error occurred" end if End If dim oPrinter set oPrinter = CreateObject("Printer.Printer.1") oPrinter.ServerName = "" oPrinter.PrinterName = PrintQueueName oPrinter.DriverName = DriverName oPrinter.PortName = portinput oPrinter.DriverPath = "\\Caminho do driver no servidor" oPrinter.Inffile = "\\Caminho do driver no servidor" oMaster.PrinterAdd oPrinter 'if Err <> 0 then 'msgbox "an error occurred: " & Err 'end if set oport = nothing set oPrinter = nothing set oMaster = nothing msgbox "Impressora instalada com sucesso." set wshshell = nothing set fso = nothing'Seta a impressora como defaultDim objNetwork, strUNCPrinterstrUNCPrinter = "Lexmark E120n"Set objNetwork = CreateObject("WScript.Network")' Here is where we set the default printer to strUNCPrinterobjNetwork.SetDefaultPrinter strUNCPrinterWScript.Quit O Site IFIX, desmontou o novo lancamento da Apple, o Ipad 2. como podemos ver na foto abaixo Vamos ver como foi feita a desmontagem do Ipad e o que ele tem de novo Primeiramente, esse novo Ipad , nao tem presilhas para segurar o conjunto todo fechado, ele e colado, por isso, e necessario uma pistola de jato de calor para derreter a cola e abrir o tablet. Cuidado com a tela que e muito sensivel.Vemos aqui, na imagem abaixo, as 3 baterias de litio, que proporcionam cerca de 10 horas de carga, para o equipamento, elas ficam logo atras da tela de LCD. Logo apos a remocao da tela de LCD, vemos a placa principal do Ipad2, com o Chip de