[Script] Alterando o grupo de trabalho com VBScript

[marceloleaes]

Script com a função de alterar o grupo de trabalho da estação do usuário. Reinicia o PC automaticamente após alterar.

Código: Selecionar todos

' =================================================================================================
' Script para setar o grupo de trabalho na estação do usuário
' Por Marcelo Leães - [email protected]
' =================================================================================================

strComputer = "."

' Defina aqui o novo grupo de trabalho que será utilizado
strWorkGroup = "ETH1"

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer & "'")
errEnable = objComputer.JoinDomainOrWorkGroup(strWorkgroup, NULL, NULL, NULL, 0)

if errEnable = 0 then
  Wscript.Echo "Grupo de trabalho alterado com sucesso."
else
  Wscript.Echo "Precisa ser Administrador."
  badstate = 1
End if

' Reinicia a estação do usuário em 1 minuto
if badstate <> 1 then
  Wscript.Echo "Necessario reinicializacao do sistema para aplicar."
  Set objShell = WScript.CreateObject("WScript.Shell")
  objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 60"
End if

Pronto, em anexo.

Bom proveito