none
Script Para Alterar o Fuso Horário RRS feed

  • Pergunta

  • Boas, estou com um problema na minha rede e preciso saber se é possível e se alguémme pode ajudar.

    Configurei um servidor RIS e todas as máquinas são preparadas por esse servidor, mas acontece que na altura que as imagens foram criadas o Fuso horário configurado não era o correcto, e entratanto já centenas de máquinas foram feitas.

    Criar nova imagem isso não é problema o pior é mudar o fuso horário de todas que estão em produção.

    já postei no Forum Windows Server mas nínguém conseguiu me ajudar.

    Será que algué sabe como posso mudar isso via Script?

     

    Agradeço toda a ajuda

    quarta-feira, 19 de dezembro de 2007 17:52

Respostas


  • Claudio utilize o script abaixo, você pode colocar no script de logon dos usuários.

     

    Code Snippet

    On Error Resume Next

    strComputer = "."
    intGMTOffset = -120

    Set objWMIService = GetObject("winmgmts:" _
     &; "{impersonationLevel=impersonate}!\\" &; strComputer &; "\root\cimv2")

    Set colCompSys = objWMIService.ExecQuery _
     ("Select * from Win32_ComputerSystem")

    For Each objCompSys in colCompSys
      objCompSys.CurrentTimeZone = intGMTOffset
      objCompSys.Put_
      If Err = 0 Then
        Wscript.Echo "Alterado com sucesso!"
      Else
        Wscript.Echo "Erro - " & err.description
      End If
      Err.Clear
    Next

     

     


     

    quarta-feira, 19 de dezembro de 2007 21:30

Todas as Respostas


  • Claudio utilize o script abaixo, você pode colocar no script de logon dos usuários.

     

    Code Snippet

    On Error Resume Next

    strComputer = "."
    intGMTOffset = -120

    Set objWMIService = GetObject("winmgmts:" _
     &; "{impersonationLevel=impersonate}!\\" &; strComputer &; "\root\cimv2")

    Set colCompSys = objWMIService.ExecQuery _
     ("Select * from Win32_ComputerSystem")

    For Each objCompSys in colCompSys
      objCompSys.CurrentTimeZone = intGMTOffset
      objCompSys.Put_
      If Err = 0 Then
        Wscript.Echo "Alterado com sucesso!"
      Else
        Wscript.Echo "Erro - " & err.description
      End If
      Err.Clear
    Next

     

     


     

    quarta-feira, 19 de dezembro de 2007 21:30
  • Bruno,

    Você sabe como posso executar esse script em um Windows Vista ou Seven?

    Abraço,
    quinta-feira, 18 de fevereiro de 2010 16:53