[Script] Alterando o grupo de trabalho com VBScript
Enviado: 17 Jul 2013 08:37
Script com a função de alterar o grupo de trabalho da estação do usuário. Reinicia o PC automaticamente após alterar.
Pronto, em anexo.
Bom proveito
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 ifBom proveito