none
VBS NTNAME RRS feed

  • Pergunta

  • Boa tarde! Pessoal.

    Em minha rede , existe um script com extensão .vbs que é exceutado quando os usuários efetuam logon.

    Nesse script tem a seguinte instrução:

    If WshShell.Run("\\pictor\netlogon\ntname " & sUser & " >" & sTempFile,2,TRUE)=1 Then 'user already logged in
    rem If WshShell.Run("\\pictor\netlogon\ntname " & sUser & " >" & sTempFile,2,TRUE)=1 Then 'user already logged in
        Const ForReading = 1, ForWriting = 2, ForAppending = 3 
        Dim fs, f, sOtherPC
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.OpenTextFile(sTempFile, ForReading)
        WshShell.Popup sUser & " Atenção! Você já esta conectado em " & f.ReadAll,10,,16
        f.Close
        WshShell.Run "\\pictor\netlogon\logout"
    rem    WshShell.Run "\\pictor\netlogon\logout"
        WScript.Quit
    End If

    Essas linhas são para evitar que um usuário logue em dois computadores ao mesmo tempo.

    O problema é que estou tendo que esse arquivo ntname.exe não funciona em plataforma 64 bits. Quando eu executo esse script em um Windows 64, aparece a mensagem:" O Programa ou recurso \pictor\netlogon\ntname  não pode ser executado devido a uma imcompatibilidade com versões de 64 bits".

    Eu já editei as configurações desse arquivo para que ele funcione em modo de compatibilidade, entretanto não resolver...

    Alguém tem alguma dica?

    Abraço.

     

    terça-feira, 13 de dezembro de 2011 16:15

Respostas

Todas as Respostas