Ir ao conteúdo
  • Cadastre-se

Posts recomendados

Amigos,

Hoje em nossa empresa, realizamos um procedimento que independe dos operadores, dai temos que ficar na empresa esperando uma determinada hora que temos que parar o processo e desligar as maquina, que sao num total de 45 maquinas.

Existe um processo que podemos desligar estas maquinas sem ter que ir a elas ?

pode se fazer isso do servidor ?

preciso de ajuda

Link para o post
Compartilhar em outros sites

Moleza...

Por scripts você consegue fazer isso numa boa.

Pegue este script e salve com a extensão .VBS.

''''''''''

strComputer = "COMPUTADOR01"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _

strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _

("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Shutdown()

Next

'''''''''

Consideração:

Na primeira linha o conteúdo de strComputer é COMPUTADOR01, você deve colocar o nome do computador NETBIOS que deseja usar, o script precisa encontrar os computadores na rede claro, senão dá erro, conclua o script com o nome de todos os computadores da rede.

Na penúltima linha do script onde está Shutdown() você pode colocar Reboot() para reiniciar o computador.

Cuidado para não reiniciar computador errado e sem autorização do usuário.

Faça o download da Microsoft do Script Center Samples:

http://www.microsoft.com/downloads/details...DA-B8814FE2DA5A

Acesse o site da Microsoft na central de script:

http://www.microsoft.com/technet/community...er/default.mspx

Há scripts que você pode fazer muita coisa para ajudar no dia a dia.

Faça testes, veja o funcionamento num computador sem ninguém usar.

Abraço,

Celso

Link para o post
Compartilhar em outros sites

Bem... primeiro testa o script com apenas um computador.

Em COMPUTADOR01, troque pelo nome (NETBIOS) de um computador da rede sua e na panúltima linha você pode trocar o Shutdown pelo Reboot() para reiniciar.

''''''

strComputer = "COMPUTADOR01"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _

strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _

("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Shutdown()

Next

''''''

Salve o script com a extensão .VBS e já pode executar.

Para inserir outros computadores você pode replicar o código inteiro e colocar os computadores da sua rede.

Primeiro teste com um computador e comente se conseguiu depois tente fazer para desligar todos ou os computadores que deseja.

Abraço,

Celso

Link para o post
Compartilhar em outros sites

Existe algum script para apagar o perfil do usuário assim que ele desloga? tenho várias máquinas (20) em redes em um domínio, essa rede é acessada por vários usuários através da matricula do usuário e senha tudo no winodws 2000. Acontece que por ser vários usuários, o hd não suporta a criação de tantos logins (HD de 10GB). A solução que encontrei era arrumar algum jeito de quando o usuário loga é criado o perfil e quando desloga esse perfil se apaga. Sei que existe o perfil móvel no win2000 mas no momento a empresa não tem condições de comprar equipamento para tal. Por favor me ajudem.

Marcelo

Link para o post
Compartilhar em outros sites

Celso apresentou o seguinte erro :

erro na linha 2, caract 1, Erro não especificado, cód 80004005, origem null

você pede para inserir as linhas mas no caso existem aspas ou tremas no começo e no fim , seriam para utilizar tambem ?

->''''''

strComputer = "COMPUTADOR01"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _

strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _

("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Shutdown()

Next

->''''''

depois da seta vermelha e aminha duvida, insiro estes caracteres tambem ?

Link para o post
Compartilhar em outros sites

Isso é apenas comentário, aspas simples

'

' comentário em um script

'

Quanto ao código você está executando ele onde, numa máquina 2000 mesmo?

O código é este mesmo:

strComputer = "COMP001"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _

strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _

("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Shutdown()

Next

O conteúdo de strComputer deve ser de um computador de sua rede.

Abraço,

Celso

Link para o post
Compartilhar em outros sites

Só o Administrador pode fazer isso, veja com que permissão está fazendo isso.

Se usa outros usuários, você deve estar no grupo Administradores do domínio, Administradores.

Veja as permissões suas perante a execução.

Abraço,

Celso

Link para o post
Compartilhar em outros sites
  • 3 semanas depois...

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!