none
Acentos no script VBS RRS feed

  • Pergunta

  • Olá pessoas,

    Estou montando um script em VBS para me mostrar usuários que fazem parte do grupo local "Usuários da área de trabalho remota". No momento que eu realizo a busca dos usuários membros do grupo informado, o vbs me retorna uma mensagem falando que não identificou o nome do grupo, desta forma realizei testes em outros grupos tais como Administradores, HomeUsers entre outros e todos esses funcionaram normalmente, agora quando realizo a busca em grupos que possuem acento, o script não o identifica.

    Segue o script

    strComputer="RJ7469ET527"

    Set colGroups = GetObject("WinNT://" & strComputer & "/Usuários da área de trabalho remota")

    For Each objUser In colGroups.Members
        Wscript.Echo objUser.Name
    Next

    segunda-feira, 2 de março de 2015 02:58

Todas as Respostas

  • Olá Guilherme,

    Costumava ter muitos problema similares quando criava alguns scripts em Batch e pesquisando na internet descobri que isto geralmente ocorre devido há um problema na tradução dos caracteres de codificação na maquina quem você esta desenvolvendo o script.

    Sugiro você usar o Notepad++ para criar este e demais scripts pois com ele caso você tenha este tipo de problema poderá corrigir alterando o formato de codificação.

    Para mudar a codificação no Notepad++ vá em "Encoding > Character Sets > Western European > OEM 360: Portuguese"

    Fiz um teste em seu script e ele esta funcional.

    sexta-feira, 6 de março de 2015 18:53
  • Olá Rodolfo, tudo bem?

    Estou com um problema parecido e não consegui resolver com a tua solução ou estou fazendo errado.

    Está dando um erro na linha 10, pq qdo atribuo na linha 6 "c:\testeéteste" ele modifica a letra "é" para "é" e não encontra esta pasta, dá erro de leitura.

    Qual tua sugestão?

    Obrigado!

    1 Dim Diretorio_inicio_busca 
    2 Dim Diretorio_copia 
    3 Dim objFSO
    4 Dim ofolder
    5 Dim objStream
    6 Diretorio_inicio_busca = "C:\testeéteste"
    7 WScript.Echo Diretorio_inicio_busca
    8 Diretorio_copia = "c:\teste"
    9 Set objFSO = CreateObject("scripting.filesystemobject")
    'Executando a checagem e cópia em todas as pastas e subastas 
    10 CheckFolder (objFSO.getfolder(Diretorio_inicio_busca )), objStream, Diretorio_copia , Diretorio_inicio_busca

    quinta-feira, 18 de fevereiro de 2016 21:01
  • Tive um problema parecido, resolvi convertendo para ANSI.
    terça-feira, 21 de junho de 2016 20:23