Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
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

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

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

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

muito interessante :)

como faço para testar isso ???

é simplesmente tentar rodar o VBS

tipo executar... script.VBS

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

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

O computador está adicionado no domínio?

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

Até mais,

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

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

Abraço,

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

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

×