none
Otima ferramenta em HTA mas não consigo fazer rodar. RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Bom dia galera

    Ba, pesquizando tche para tentar achar a solução de um problema, encontrei uma otima ferramenta feita em hta tche mais não estou conseguindo fazer ela rodar tche aparentemente esta no trexo abaixo tche.

    Dim Admins(2)
Admins(0)="admin1"
Admins(1)="admin2"
Admins(2)="admin3"

Sub Window_OnLoad
    strComputerName = "."
    Set objWMIService = GetObject("winmgmts:{ImpersonationLevel=impersonate}\\" & strComputerName & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_ComputerSystem",,48)
    For Each objItem in colItems
    username = objitem.UserName
        For i = 0 to 4

        If LCase(right(username,3)) = Admins(i) Then AdminTools.style.display = "block"

        Next
    Next
End Sub

    Ba, ja coloquei a conta de rede, a conta local no arry do Admin e nada, ele sempre apresenta o erro ( Fora do intervalo:"i").

    Abaixo o link da ferramenta completa tche, obrigado galera.

    http://community.spiceworks.com/scripts/show/928-hta-menu-screen

    sábado, 22 de junho de 2013 14:16
    |

Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Veja que no inicio do script tem este Array:

    Dim Admins(2)
Admins(0)="admin1"
Admins(1)="admin2"
Admins(2)="admin3"


    E lá no meio do script existe um FOR que "passeia" por este array:

    For i = 0 to 4

        If LCase(right(username,3)) = Admins(i) Then AdminTools.style.display = "block"

Next

    Este for está inde de 0 até 4 e seu array só vai até 2. quando ele chega no 3 dá o erro, altere a linha do for para

    For i = 0 to 2

    Fábio de Paula Junior

    • Marcado como Resposta Marcelo TI domingo, 23 de junho de 2013 13:37
    domingo, 23 de junho de 2013 01:28
    |
    Moderador

Todas as Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Veja que no inicio do script tem este Array:

    Dim Admins(2)
Admins(0)="admin1"
Admins(1)="admin2"
Admins(2)="admin3"


    E lá no meio do script existe um FOR que "passeia" por este array:

    For i = 0 to 4

        If LCase(right(username,3)) = Admins(i) Then AdminTools.style.display = "block"

Next

    Este for está inde de 0 até 4 e seu array só vai até 2. quando ele chega no 3 dá o erro, altere a linha do for para

    For i = 0 to 2

    Fábio de Paula Junior

    • Marcado como Resposta Marcelo TI domingo, 23 de junho de 2013 13:37
    domingo, 23 de junho de 2013 01:28
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Ba Fabião show, obrigado agora vou brincar com a pagina conforme descrito no site tche.
    domingo, 23 de junho de 2013 13:37
    |