Boa tarde Paul! Obrigada por responder!!
Paul, ainda sou leiga no assunto.
Efetuei o seguinte procedimento para a execução do script: abri o prompt do comando e digitei wscript C:\Scriptadm.vbs
E apresentou o erro abaixo:
Script: C:\Scriptadm.vbs
Line: 65
char: 1
error: The username could not be found
Code: 800708AD
Source: (null)
Segue abaixo script executado:
' Criação de usuário, onde no próximo logon solicitará troca de senha.
' Usuários inclusos no grupo Remote Desktop
On error resume next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oWshNet = CreateObject("WScript.Network")
strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "cintia")
objUser.SetPassword "coloquesenhaforte"
objUser.Put "PasswordExpired", 1
objUser.Put "fullname", "novo usuario"
on error resume next
objUser.SetInfo
On Error Goto 0
User1 = "cintia"
sComputer = oWshNet.ComputerName
Set oGroup = GetObject("WinNT://" & sComputer & "/remote desktop,group")
Set oUser = GetObject("WinNT://" & sComputer & "/" & User1 & ",user")
' suprime o erro caso o usário já seja membro do grupo
On Error Resume Next
oGroup.Add(oUser.ADsPath)
On Error Goto 0
Poderia me ajudar?
Cintia Perrone
