Inquiridor
Criar usuario local e definir nivel de acesso

Pergunta
-
Todas as Respostas
-
Vinicius,
Segue o script que você precisa, modifique apenas o que está em vermelho.
Code Snippet'Cria o usuário
strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Usuário")
objUser.SetPassword "Senha"
objUser.SetInfo'Adiciona o usuário ao grupo
Set objGroup = GetObject("WinNT://" & strComputer & "/Power Users,group")
Set objUser = GetObject("WinNT://" & strComputer & "/Usuário,user")
objGroup.Add(objUser.ADsPath) -
Amigo to rodando aqui, quando não da erro na linha 5 da erro na linha 11, o script fico assim ve se ta correto
'Cria o usuário
strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Valspar")
objUser.SetPassword "1234"
objUser.SetInfo'Adiciona o usuário ao grupo
Set objGroup = GetObject("WinNT://" & strComputer & "/Administradores,group")
Set objUser = GetObject("WinNT://" & strComputer & "/Valspar,user")
objGroup.Add(objUser.ADsPath) -
Realmente para inserir o usuário a um grupo a variável strComputer não pode receber o valor "." tem que receber o nome NETBIOS da estação. Então substitua a variável strComputer pelo seguinte.
Code SnippetSet wshNetwork = WScript.CreateObject( "WScript.Network")
strComputer = WshNetwork.ComputerNamePs. Na senha do usuário não esquece de verificar se está com os requisitos minimos necessários, tipo caracteres especiais, números e letras. Vai depender de como está configurada a sua estação.
-
-