none
Ajuda pra reduzir o codigo RRS feed

  • Pergunta

  • Pessoal gostaria de reduzir esse meu codigo.

     

    strMSG = "Mensagem escrita"


    'Declarando todas as Maquinas da empresa
    dim arrayComputer(1 to 28)
        arrayComputer(1) = "RJ-BRG007FDJ0"
        arrayComputer(2) = "RJ-BRB52803J8"
        arrayComputer(3) = "RJ-BRB61802JM"
        arrayComputer(4) = "RJ-BRB509000F"
        arrayComputer(5) = "RJ-BRG007FFM2"
        arrayComputer(6) = "RJ-BRG007FFHQ"
        arrayComputer(7) = "RJ-BRB5280395"
        arrayComputer(8) = "RJ-BRG007FFHG"
        arrayComputer(9) = "RJ-BRG52803DQ"
        arrayComputer(10) = "RJ-BRG007FFJ5"
        arrayComputer(11) = "RJ-BRB52804TL"
        arrayComputer(12) = "RJ-BRG905F2RQ"
        arrayComputer(13) = "RJ-BRG007FDKY"
        arrayComputer(14) = "RJ-BRB5280426"
        arrayComputer(15) = "RJ-BRB61802LD"
        arrayComputer(16) = "RJ-BRB61802L5"
        arrayComputer(17) = "RJ-BRG007FFDP"
        arrayComputer(18) = "RJ-BRG007FDJ2"
        arrayComputer(19) = "RJ-BRG007FFHN"
        arrayComputer(20) = "RJ-BRG7150446"
        arrayComputer(21) = "RJ-BRG007FFJK"
        arrayComputer(22) = "RJ-BRG007FDKX"
        arrayComputer(23) = "RJ-BRB52803G1"
        arrayComputer(24) = "RJ-BRB52502YT"
        arrayComputer(25) = "RJ-BRB52803FR"
        arrayComputer(26) = "RJ-BRG007FFKM"
        arrayComputer(27) = "RJ-BRG007FDH4"
        arrayComputer(28) = "RJ-BRB715043W"

     'Declarando todos os logins da empresa
    dim arrayLogin(1 to 7)
        arrayLogin(1) = "rbonomo"
        arrayLogin(2) = "dcsilva"
        arrayLogin(3) = "bssilva"
        arrayLogin(4) = "gvalente"
        arrayLogin(5) = "veoliveira"
        arrayLogin(6) = "lmarins"
        arrayLogin(7) = "apresentacaorj"

    set oShell = createobject("wscript.shell")

    'Percorre todas as maquinas e os Logins
        for i=1 to ubound(arrayComputer)
            for y=1 to ubound(arrayLogin)

                'Envia as mensagens para os login nas maquinas
                oshell.run "MSG /server:"+ arrayComputer(i) +" "+ arrayLogin(y)+" "+strMSG
            next
        next



    quinta-feira, 3 de fevereiro de 2011 18:58

Respostas

  • strMSG = "Mensagem escrita"
    
    'Declarando todas as Maquinas da empresa
    arrayComputer=array("RJ-BRG007FDJ0","RJ-BRB52803J8","RJ-BRB61802JM","RJ-BRB509000F","RJ-BRG007FFM2",_
    					"RJ-BRG007FFHQ","RJ-BRB5280395","RJ-BRG007FFHG","RJ-BRG52803DQ","RJ-BRG007FFJ5",_
    					"RJ-BRB52804TL","RJ-BRG905F2RQ","RJ-BRG007FDKY","RJ-BRB5280426","RJ-BRB61802LD",_
    					"RJ-BRB61802L5","RJ-BRG007FFDP","RJ-BRG007FDJ2","RJ-BRG007FFHN","RJ-BRG7150446",_
    					"RJ-BRG007FFJK","RJ-BRG007FDKX","RJ-BRB52803G1","RJ-BRB52502YT","RJ-BRB52803FR",_
    					"RJ-BRG007FFKM","RJ-BRG007FDH4","RJ-BRB715043W")
    
     'Declarando todos os logins da empresa
    arrayLogin=array("rbonomo","dcsilva","bssilva","gvalente","veoliveira","lmarins","apresentacaorj")
    
    set oShell = createobject("wscript.shell")
    'Percorre todas as maquinas e os Logins 
    for each Computador in arrayComputer
    	for each Login in arrayLogin
    
    		'Envia as mensagens para os login nas maquinas
    		oshell.run "MSG /server:"+ Computador +" "+ Login +" "+strMSG
    	next 
    next

    Alterações:

    1)Forma de iniciar os arrays

    2)For each ao invés do for "contador"


    Fábio de Paula Junior

    terça-feira, 12 de novembro de 2013 15:56
    Moderador