none
Deleted RRS feed

Respostas

  • Segue o seguinte script :

     

    Instala uma porta de impressora  TCP/IP, instala uma impressora, e ajusta então a impressora para imprimire remorve a porta do cache  .

    On Error Resume Next 
     
    'SETS 'LOAD DRIVER' PRIVILEGE. 
     
     
        Set objWMIService = GetObject("Winmgmts:") 
     
        objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege"True 
     
     
    'SETS PRINTER PORT. 
     
     
        Set objNewPort = objWMIService.Get _ 
            ("Win32_TCPIPPrinterPort").SpawnInstance_ 
     
        objNewPort.Name = "Brother" 
     
        objNewPort.Protocol = 1 
     
        objNewPort.HostAddress = "192.168.100.7" 
     
        objNewPort.PortNumber = "9100" 
     
        objNewPort.SNMPEnabled = False 
     
        objNewPort.Put_ 
     
     
    'SETS PRINTER TO PORT. 
     
     
        Set objPrinter = objWMIService.Get _ 
            ("Win32_Printer").SpawnInstance_ 
     
        objPrinter.DriverName = "Brother HL-1270N" 
     
        objPrinter.PortName   = "Brother" 
     
        objPrinter.DeviceID   = "Brother HL-1270N" 
     
        objPrinter.Location = "Front Office" 
     
        objPrinter.Network = True 
     
        objPrinter.Shared = False 
     
        'objPrinter.ShareName = 
     
        objPrinter.Put_ 
     
     
    'SETS PRINTER AS DEFAULT. 
     
     
        Set colInstalledPrinters =  objWMIService.ExecQuery _ 
            ("Select * from Win32_Printer Where Name = 'Brother HL-1270N'") 
     
        For Each objPrinter in colInstalledPrinters 
            objPrinter.SetDefaultPrinter() 
     
        next 
    

    Denis Faustino
    quarta-feira, 6 de julho de 2011 03:20

Todas as Respostas

  •  

    Amigo,

     

    Veja esse post :

    http://forums.microsoft.com/Technet-BR/ShowPost.aspx?PostID=2453647&SiteID=29

     

    Ele irá te ajudar no que precisa.

     

    Espero ter ajudado.

     

    Não deixe de classificar a ou as mensagens como "respondido”, caso tenha ajudado.

    Fazendo isso, você estará ajudando outros usuários do Fórum a identificar qual ou quais foram as soluções aplicadas na correção do problema.

     

    Luiz Espínola

    MCTS  - Windows 2008 Active Directory       

    MCTS  - Windows 2008 Applications Infrastructure

    MCTS  - Windows 2008 Network Infrastructure
    MCSE +Security, MCT, MCDBA, Comptia Security+

    IBM CSex, ITIL Foundation, Novell CNA, SCSA Solaris 9, Citrix CCA

     

    quinta-feira, 27 de dezembro de 2007 16:07
  • Deleted
    sexta-feira, 28 de dezembro de 2007 16:34
  • Segue o seguinte script :

     

    Instala uma porta de impressora  TCP/IP, instala uma impressora, e ajusta então a impressora para imprimire remorve a porta do cache  .

    On Error Resume Next 
     
    'SETS 'LOAD DRIVER' PRIVILEGE. 
     
     
        Set objWMIService = GetObject("Winmgmts:") 
     
        objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege"True 
     
     
    'SETS PRINTER PORT. 
     
     
        Set objNewPort = objWMIService.Get _ 
            ("Win32_TCPIPPrinterPort").SpawnInstance_ 
     
        objNewPort.Name = "Brother" 
     
        objNewPort.Protocol = 1 
     
        objNewPort.HostAddress = "192.168.100.7" 
     
        objNewPort.PortNumber = "9100" 
     
        objNewPort.SNMPEnabled = False 
     
        objNewPort.Put_ 
     
     
    'SETS PRINTER TO PORT. 
     
     
        Set objPrinter = objWMIService.Get _ 
            ("Win32_Printer").SpawnInstance_ 
     
        objPrinter.DriverName = "Brother HL-1270N" 
     
        objPrinter.PortName   = "Brother" 
     
        objPrinter.DeviceID   = "Brother HL-1270N" 
     
        objPrinter.Location = "Front Office" 
     
        objPrinter.Network = True 
     
        objPrinter.Shared = False 
     
        'objPrinter.ShareName = 
     
        objPrinter.Put_ 
     
     
    'SETS PRINTER AS DEFAULT. 
     
     
        Set colInstalledPrinters =  objWMIService.ExecQuery _ 
            ("Select * from Win32_Printer Where Name = 'Brother HL-1270N'") 
     
        For Each objPrinter in colInstalledPrinters 
            objPrinter.SetDefaultPrinter() 
     
        next 
    

    Denis Faustino
    quarta-feira, 6 de julho de 2011 03:20