none
Alteração da resolução de tela do windows xp e 2000 pelo registro RRS feed

  • Pergunta

  • Bom dia, gostaria de saber se tem como e como fazer a alteração da resolução de tela do windows xp e 2000 pelo registro.

    O meu problema é : Tenho que configurar 280 estações no trabalho, de forma que fiquem padronizadas com o tamanho da resolução da tela em 1024x768.

    Agradeço a ajuda de todos.
    Roberto s.
    terça-feira, 21 de julho de 2009 13:02

Respostas

  • Olá,

    Segue abaixo o script:

    Utilize em uma GPO Nas configurações de computador.

    Na OU que terá o link da GPO deve conter as contas de computador, não de usuários.


    Dim RegValueData
    Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    objReg.GetStringValue &H80000002,"HARDWARE\DEVICEMAP\VIDEO","\Device\Video0",RegValueData

    strResolucaoX = "1024"
    strResolucaoY = "768"

    objReg.SetDWORDValue &H80000002,RIGHT(RegValueData, 82),"Acceleration.Level",0
    objReg.SetDWORDValue &H80000002,RIGHT(RegValueData, 82),"DefaultSettings.XResolution",strResolucaoX
    objReg.SetDWORDValue &H80000002,RIGHT(RegValueData, 82),"DefaultSettings.YResolution",strResolucaoY


    objReg.SetDWORDValue &H80000005,RIGHT(RegValueData, 82),"Acceleration.Level",0
    objReg.SetDWORDValue &H80000005,RIGHT(RegValueData, 82),"DefaultSettings.XResolution",strResolucaoX
    objReg.SetDWORDValue &H80000005,RIGHT(RegValueData, 82),"DefaultSettings.YResolution",strResolucaoY



    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    • Marcado como Resposta RSRSUPORTE quarta-feira, 22 de julho de 2009 21:19
    terça-feira, 21 de julho de 2009 14:48

Todas as Respostas

  • Olá,

    Segue abaixo o script:

    Utilize em uma GPO Nas configurações de computador.

    Na OU que terá o link da GPO deve conter as contas de computador, não de usuários.


    Dim RegValueData
    Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    objReg.GetStringValue &H80000002,"HARDWARE\DEVICEMAP\VIDEO","\Device\Video0",RegValueData

    strResolucaoX = "1024"
    strResolucaoY = "768"

    objReg.SetDWORDValue &H80000002,RIGHT(RegValueData, 82),"Acceleration.Level",0
    objReg.SetDWORDValue &H80000002,RIGHT(RegValueData, 82),"DefaultSettings.XResolution",strResolucaoX
    objReg.SetDWORDValue &H80000002,RIGHT(RegValueData, 82),"DefaultSettings.YResolution",strResolucaoY


    objReg.SetDWORDValue &H80000005,RIGHT(RegValueData, 82),"Acceleration.Level",0
    objReg.SetDWORDValue &H80000005,RIGHT(RegValueData, 82),"DefaultSettings.XResolution",strResolucaoX
    objReg.SetDWORDValue &H80000005,RIGHT(RegValueData, 82),"DefaultSettings.YResolution",strResolucaoY



    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    • Marcado como Resposta RSRSUPORTE quarta-feira, 22 de julho de 2009 21:19
    terça-feira, 21 de julho de 2009 14:48
  • Obrigado Jesiel, vou realizar os teste e informo  ok
    Roberto s.
    quarta-feira, 22 de julho de 2009 21:20
  • Desculpe , mais foi de grande ajuda funcionou beleza . Valeu

    Roberto s.
    sábado, 21 de agosto de 2010 00:40