Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Fabio Aragao

Desligamento Remoto No W2k

Recommended Posts

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

Compartilhar este post


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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ah... para este script funcionar no NT4 ou Windows 98, deve estar instalado o cliente de Active Directory, este cliente encontra-se no CD do Windows 2000 Server.

Abraço,

Celso

Compartilhar este post


Link para o post
Compartilhar em outros sites

Uai... você não quer desligar vários computadores ao mesmo tempo?

Você deve alterar o script para desligar todos, certo, ou pode ir um a um trocando o nome do computador,.

Abraço,

Celso

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você testou a parada?

Você pode fazer um script depois do outro com os nomes de todos os computadores para desligar de uma só vez.

Abraço,

Celso

Compartilhar este post


Link para o post
Compartilhar em outros sites

Certo, mas o que eu não entendi, e me desculpe pela ignorância, onde vou inserir o nome de todos os computadores da rede, em qual local do script.

Compartilhar este post


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

Compartilhar este post


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

Compartilhar este post


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 ?

Compartilhar este post


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

Compartilhar este post


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

Compartilhar este post


Link para o post
Compartilhar em outros sites
Postado Originalmente por assmarvin@20 maio 2004, 17:33

muito interessante :)

como faço para testar isso ???

é simplesmente tentar rodar o VBS

tipo executar... script.VBS

É isso mesmo

Até mais,

Celso

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro 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
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×