Desligamento Remoto No W2k

[Fabio Aragao]

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

[celsoboy]

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

[celsoboy]

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

[Fabio Aragao]

desculpe celso mas não entendi o que você quis dizer com conclua com o nome de todos os computadores

[celsoboy]

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

[celsoboy]

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

[Fabio Aragao]

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.

[celsoboy]

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

[mmedeirosbz]

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

[Fabio Aragao]

vou testar

[Fabio Aragao]

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 ?

[celsoboy]

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

[Fabio Aragao]

sim e em uma maquina 2000

então o codigo fica com 9 linhas ?

[celsoboy]

É isso ai... Você não testou isso ainda?

Abraço,

Celso

[Fabio Aragao]

vou testar esta tarde, onde eu tenho maquinas vazias para teste......... na parte da manha ate as 14:00 e complicado

[assmarvin]

muito interessante

como faço para testar isso ???

é simplesmente tentar rodar o VBS

tipo executar... script.VBS

[Fabio Aragao]

amigo celso este foi o erro exibido

<div class='bbimg'>http://www.agenciaumtoquedeamor.hpg.ig.com.br/Images/ERRO.jpg' border='0' alt='Imagem postada pelo usuário' /></div>

[celsoboy]

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

[Fabio Aragao]

estou executando a partir do servidor, com meu login que esta no grupo administrador

[celsoboy]

O computador está adicionado no domínio?

Faça um teste a partir da máquina que deseja desligar,.

Até mais,

Celso

[celsoboy]

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

[Fabio Aragao]

esta no dominio sim

[Fabio Aragao]

Celso, mais alguma sugestao ??

[celsoboy]

Bem... você pode fazer como eu... sente na frente do computador e tente executar o script nele mesmo.

Abraço,

Celso