Não vamos aprofundar em como preencher o endereço da OU, como criar GPO, entre outros.
Primeiro, vá na OU onde estão os computadores (em nosso código VBS usamos a última OU da estrutura), edite essa OU e, na parte de endereço, preencha a sigla do estado (ex: DF).
Agora faça uma GPO e link ela em um local que alcance os computadores que você deseja.
Nessa GPO vá em Computer Configuration > Windows Configuration > Scripts e abra Startup. Clique em Adicionar, insira o nome timezone.vbs e clique em OK. Agora clique em Show Files, dentro dessa pasta crie um arquivo timezone.vbs com o seguinte conteúdo:
| On Error Resume Next Dim WshNetwork,ComputerName,objADSysInfo,strComputerName,objComputer,strOUName,objShell Set objShell = WScript.CreateObject(“WScript.Shell”) ‘PEGA O NOME DO PC Set WshNetwork = CreateObject(“WScript.Network”) ComputerName = WshNetwork.ComputerName ‘PEGA OU DO PC Set objADSysInfo = CreateObject(“ADSystemInfo”) strComputerName = objADSysInfo.ComputerName Set objComputer = GetObject(“LDAP://” & strComputerName) strOUName = Replace(objComputer.DistinguishedName,objComputer.Name&”,”,””) ‘OBTEM INFORMACOES SOBRE A OU Set objContainer = GetObject (“LDAP://”&strOUName) ‘OBTEM O ESTADO qualestado = Trim(objContainer.St) ‘DEFINE FUSO, BASEADO NO ENDERECO DA OU If InStr(“AC”, qualestado) Then objShell.Exec(“tzutil.exe /s “”SA Pacific Standard Time”” “) End If ‘-4HV If InStr(“MT|MS”, qualestado) Then objShell.Exec(“tzutil.exe /s “”Central Brazilian Standard Time”” “) End If ‘-4 If InStr(“AM|RO|RR”, qualestado) Then objShell.Exec(“tzutil.exe /s ‘SA Western Standard Time”” “) End If ‘-3HV If InStr(“DF|ES|GO|MG|PR|RJ|RS|SC|SP”, qualestado) Then objShell.Exec(“tzutil.exe /s “”E. South America Standard Time”” “) End If ‘-3 If InStr(“AL|AP|BA|CE|MA|PA|PB|PE|PI|RN|SE|TO”, qualestado) Then objShell.Exec(“tzutil.exe /s “”Bahia Standard Time”” “) End If |
Mais Informações
Esperamos ter ajudado da melhor forma possível e estaremos sempre a disposição para mais informações.
Entre em contato conosco pelo e-mail equipe@nvlan.com.br.