none
Adicionando grupo Remote Desktop em script vbs RRS feed

  • Pergunta

  • Boa noite!

    Estou com dificuldade para um script em vbs para criação de usuário e adicionando o mesmo no grupo de remote desktop. Por favor, poderiam me dar um help?

    Segue abaixo trecho do código:

    set objgroup = GetObject("WinNT://" & strcomputer & "/administrators, group")

    set objuser = GetObject("WinNT://" & strcomputer & "/" & user1 & ",user)

    É possível adicionar os grupo remote desktop e power users pelo código abaixo ou existe outro método para adicionar esses grupos?

    set objgroup = GetObject("WinNT://" & strcomputer & "/remote desktop, group")

    set objuser = GetObject("WinNT://" & strcomputer & "/" & user1 & ",user)

     

    Desde já agradeço!

     

    terça-feira, 14 de dezembro de 2010 20:48

Todas as Respostas

  • Poderia nos fornecer maioreis informações...

    Se apresenta algum erro

    Informações sobre o seu ambiente se é dominio ou grupo...

     

    mas voce pode dar uma olhada aqui...

    http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/eebe7f60-4c5e-4c1a-8654-db8aaae5edcd

     

     

     


    Paul
    segunda-feira, 20 de dezembro de 2010 12:38
  • 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
    segunda-feira, 20 de dezembro de 2010 20:05