Usuário com melhor resposta
script para remover contas locais (sem ser pelo AD)

Pergunta
-
Prezados amigos
Estou com uma demanda para remover varias contas localis que foram criadas nas estações aqui no trabalhor alguns usuários em varias estações. Como só uma pessoa de infra não tenho muita facilidade com progrmação.
Gostaria de ter a ajuda de vocês para ajudarem a elaborar um sript que pode-se remover estas contas locais remotamente.
Lembrando eu tenho o nome das estações como também as contas que devem ser removidas.
Desde já agradeço a asmepre ajuda e aguardo retorno...
Respostas
-
Olá Sr. Carlos;
Voce pode usar o seguinte script postado pelo Sr. Welington Lima para deletar os usuarios remotamente... é só alterar algumas coisas:
strComputer = "." ' Nome da maquina
Userlocal = inputbox("Digite o nome do usuário que você deseja criar","Criação de usuários locais" ,"")
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", Userlocal) ' Troque para .Delete
objUser.SetPassword "minhasenha" ' Senha
objUser.SetInfo
[]'s -
Carlos, no script abaixo você especifica as máquinas em um arquivo TXT uma embaixo da outra, localizado ou no C ou no servidor, você decide, daí o usuário João será removido para todas estas máquinas
set fso = CreateObject("Scripting.FileSystemObject")
const ForREAding = 1
set leia = fso.opentextFile("c:\maquinas.txt",ForREAding)
Do until leia.AtEndOfStreamstrComputer = leia.Readline
if strComputer = "" then
wscript.quit
end if
strUser = "João"
Set objComputer = GetObject("WinNT://" & strComputer & "")
objComputer.Delete "user", strUserloop
Caso queira efetuar isso via script de logon, GPO fica assim:
strComputer = "."
strUser = "João"
Set objComputer = GetObject("WinNT://" & strComputer & "")
objComputer.Delete "user", strUserObrigado Rafael por me citar no post anterior.
abraços
Todas as Respostas
-
Olá Sr. Carlos;
Voce pode usar o seguinte script postado pelo Sr. Welington Lima para deletar os usuarios remotamente... é só alterar algumas coisas:
strComputer = "." ' Nome da maquina
Userlocal = inputbox("Digite o nome do usuário que você deseja criar","Criação de usuários locais" ,"")
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", Userlocal) ' Troque para .Delete
objUser.SetPassword "minhasenha" ' Senha
objUser.SetInfo
[]'s -
Carlos, no script abaixo você especifica as máquinas em um arquivo TXT uma embaixo da outra, localizado ou no C ou no servidor, você decide, daí o usuário João será removido para todas estas máquinas
set fso = CreateObject("Scripting.FileSystemObject")
const ForREAding = 1
set leia = fso.opentextFile("c:\maquinas.txt",ForREAding)
Do until leia.AtEndOfStreamstrComputer = leia.Readline
if strComputer = "" then
wscript.quit
end if
strUser = "João"
Set objComputer = GetObject("WinNT://" & strComputer & "")
objComputer.Delete "user", strUserloop
Caso queira efetuar isso via script de logon, GPO fica assim:
strComputer = "."
strUser = "João"
Set objComputer = GetObject("WinNT://" & strComputer & "")
objComputer.Delete "user", strUserObrigado Rafael por me citar no post anterior.
abraços
-
-
opa,
seria assim: você colocaria os nomes das máquinas uma embaixo da outra assim:
maquina_001
maquina_002
maquina_003
maquina_004
Depois salva isso em um lugar onde vc descreve no script nesta linha:
set leia = fso.opentextFile("c:\maquinas.txt",ForREAding), onde c:\maquinas.txt é o local onde está o seu arquivo com os nomes das máquinas que você colocou acima. Você pode mudar este caminho par onde quiser desde que tenha acesso à leitura do arquivo.
Grande abraço.
-
-
Olá,
a linha está correta. Verifique o código do arquivo VBS para ver se, ao copiar/colar do navegador, não foi incluído nenhum caractere estranho.
[]s,
--
Vinicius Canto <scripterbr_at_gmail_dot_com>
MVP Visual Developer - Scripting
MCP Windows 2000 Server, Windows XP e SQL Server 2000
Blog sobre Scripting: http://viniciuscanto.blogspot.com -
-
http://www.microsoft.com/technet/scriptcenter/scripts/ad/users/manage/usmgvb07.mspx
--
Vinicius Canto <scripterbr_at_gmail_dot_com>
MVP Visual Developer - Scripting
MCP Windows 2000 Server, Windows XP e SQL Server 2000
Blog sobre Scripting: http://viniciuscanto.blogspot.com -
-
Verifique as aspas. Aspas são diferentes de aspas inglesas (no Word vc pode ver as inglesas, já que ele substitui automaticamente por padrão).
[]s,
Vinicius Canto
MVP Admin Frameworks
blog sobre scripting: http://viniciuscanto.blogspot.com