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

  • Pergunta

  • 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

  • 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

  • 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
  • Ba Fabião show, obrigado agora vou brincar com a pagina conforme descrito no site tche.
    domingo, 23 de junho de 2013 13:37