none
objShell.Run o.0 Sinistro RRS feed

  • Pergunta


  • Galera, estou com problemas.... estou tentando usar o wscript.shell pra executar atalhos....
    Funcionava tranquilamente, mas parou, do nada, agora eu não consigo mais abrir atalho  usando o shell...

    Ele executa qualquer coisa, já testei com vários tipos de arquivo, mas com atalho não rola..

    Alguém sabe me dizer o que eu posso fazer pra resolver isso ?

    Eu testei em outros pcs e funciona normal, só em um pc que tá dando isso...

    Já chequei permissão, já chequei tudo...

    Ele não dá nem erro, simplesmente não abre nada, não dá msg, não tem nada no event viewer...

    o.0 alguám tem alguma idéia ?
    segunda-feira, 20 de agosto de 2007 20:31
    Moderador

Todas as Respostas

  • Filipe tente isso no executar:

     

     

    regsvr32 -u wshom.ocx

    regsvr32 wshom.ocx

     

    caso dê erro coloque o caminho inteiro:

    regsvr32 %systemroot%\system32\wshom.ocx

     

    Poste o resultado, se não der certo tentaremos ajudá-lo de outra forma.

     

     

    Abs

    segunda-feira, 20 de agosto de 2007 20:43

  • Valeu... a máquina tá lá em casa, eu vou testar quando chegar hoje e amanhã eu posto o resultado.

    Brigaduu...
    segunda-feira, 20 de agosto de 2007 20:55
    Moderador

  • Cara....

    Executei os comandos, ele removeu e registrou a dll com sucesso, mas o problema persiste...

    Continua sem abrir atalho... até testei com outros tipos de arquivos de novo e deu certo, só com a porcaria do atalho que não abre....

    o.0 que coisa.....
    terça-feira, 21 de agosto de 2007 19:09
    Moderador
  • Filipe, poste o script aqui.

     

     

    Abraços.

     

    quarta-feira, 22 de agosto de 2007 14:49
  • Abaixo, script dusinfa.....  LinkGenerator.hta

     

    Code Snippet

    <HTML>
    <HEAD>
    <TITLE>LINK GENERATOR</TITLE>
     
     <HTA:APPLICATION ID="oHTA"
     APPLICATIONAME="HTALINKS"
     CONTEXTMENU="NO"
     SELECTION = "NO"
     SCROLL = "YES"
     SHOWINTASKBAR="NO"
     SINGLEINSTANCE = "YES"
     MAXIMIZEBUTTON = "YES"
     MINIMIZEBUTTON = "NO"
     >

    <SCRIPT LANGUAGE="VBScript">

    '//========= MONTA MENU PRELIMINAR ===========
    sub MostraMSG
     innerhtml = "<table align='center'  style='border-style: solid; border-width:1px; border-color: #000000;' width='100%' height='80%'>"
     innerhtml = innerhtml & "<tr><td align='center' width='100%'><font color='#000000'><strong>RELAÇÃO DE LINKS DISPONÍVEIS</font></strong></td></tr>"
     innerhtml = innerhtml & "<tr><td align='center' width='100%' class='topborder' height='100%'><span id='result'><input type='Button' value='GerarLista' onclick='GetLinks' style='background-color: #CCCCCC; border: outset 1px #000000; width: 100px'></span></td></tr></table>"
     
     msgbody.InnerHtml = innerhtml
    end sub


    '//========= GET LINKS ===========
    sub GetLinks

    pasta  = "\\tssrv02\links\"
    result.innerhtml = "<img src='" & pasta & "\img\aguarde.gif' alt='Gerando Lista....'></img>"
    set oshell = CreateObject("wscript.shell")
    oshell.run pasta & "\sleep.vbs 5000",0,0

    on error resume next
    set fs=CreateObject("Scripting.FileSystemObject")
    set Folder = fs.GetFolder(pasta)
    arquivos = Folder.Files

    if arquivos<>"" then
    '=========== GERA A LISTA ======

    innerh = "<table align='center' id='tblCentro' boder='0'>"
    contador = 0
    For each arq in arquivos

    on error resume next
    ArrF = split(arq.Name,".")
    imgP = Pasta & "\img\" & ArrF &(0) & ".png"

    innerh = innerh &  "<tr><td><img src='" & imgP & "' alt='" &arq.Name& "'></img></td>"
    innerh = innerh & "<td><a href='#" & contador & "'></a><a href='#" & contador & " onClick='Roda("& arq.Path &")'>" & ArrF(0) & "</a></td><tr>"

    if err.number<>0 then
    Erros err.number, err.desc, arq.Path
    end if

    Next
    innerh = innerh & "</table>"
    result.innerhtml = innerh

    else
    result.innerhtml = "ARQUIVOS NÃO ENCONTRADOS!<BR>FAVOR ENTRAR EM CONTATO COM O SUPORTE."
    end if
    end sub


    '//===== TRATAMENTO DE ERROS ======
    sub Erros(nr,desc,arq)

    arquivoerr = "\\tssrv02\ErrorLogs\ErrorLogLinks.txt"

    set fs=CreateObject("Scripting.FileSystemObject")
    set objErrorLog = fs.openTextFile(arquivoerr,8,True)
    objErrorLog.WriteLine "LOG DE ERROS - " & Date()
    objErrorLog.WriteLine "NÚMERO  - DESC - ARQUIVO"
    objErrorLog.WriteLine nr & " , " & desc & vbTab & arq
    objErrorLog.Close
    end sub

     

    '===== ABRE O LINK ===========
    sub Roda(arq)
    set oshell = CreateObject("wscript.shell")
    oshell.Run(arq)
    end sub

    </SCRIPT>
    <style>
    .topborder{
    border-top: 1px solid #000000;
    font-size: 20pt;
    };

    '===== FECHA A JANELA ====

    sub fechar

    set wsnet = CreateObject("wscript.network")

    set oshell = CreateObject("wscript.shell")

    if wsnet.UserName<>"AdmFilipeSup" then

    on error resume next

    oshell.run "logoff"

    if err.number<>0 then

    oshell.run "%windir%\system32\shutdown.exe -l -f"

    end if

    window.close()

    end if

    end sub


    </style>

    </HEAD>
    <BODY bgcolor="#c0c0c0" onload="MostraMSG" onunload"fechar" style="border-style: solid; border-width:1px; border-color: #000000;">

    <span id="msgbody"></span>
    <br><br>
    <input type="button" value="FECHAR" onclick="fechar" style="background-color: #CCCCCC; border: outset 1px #000000; width: 100px">
    <div>
    </BODY>
    </HTML>

     

     

    Dentro da pasta tem os links que ele vai exibir, além das imagens...

     

    o.0

    quarta-feira, 22 de agosto de 2007 20:40
    Moderador