É possível adicionar um sub-menu em Configurações/Opções/SessionCloseTime na versão do PW3270 (para linux e windows)?
Na versão 2.6 do PW3270 para windows existe esta opção.
Gostaria de colocar esta opção nas novas versões.
Esta opção expira a seção ociosa, por exemplo se em 10 minutos o usuário não utilizar o terminal ele fecha a sessão, liberando a porta para outro usuário.
Se alguém puder ajudar agradeço!
Rodrigo
Autor: Rodrigo Ferreira
2222 comentários
Para: Exec=/usr/bin/pw3270 -D 10
Como esse arquivo não é editável pelo usuário a configuração ficará fixa.
Set objNetwork = CreateObject("Wscript.Network")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process where name = 'pw3270.exe'" )
conta=0
limit=0
Set WSHShell = WScript.CreateObject("WScript.Shell")
For each Processo in ColProcesses
conta = conta +1
Next
Set fso = CreateObject("Scripting.FileSystemObject")
If conta <= limit Then
If (fso.FileExists("C:\\Progra~1\\pw3270\\pw3270.EXE")) Then
WSHShell.Run "C:\\Progra~1\\pw3270\\pw3270.EXE --host=bhmvsb.prodemge.gov.br:23"
ElseIf (fso.FileExists("C:\\arquiv~1\\pw3270\\pw3270.EXE")) Then
WSHShell.Run "C:\\arquiv~1\\pw3270\\pw3270.EXE --host=bhmvsb.prodemge.gov.br:23"
Else
MsgBox "Binário do PW3270 nao foi encontrado, Gentileza instalar novamente o programa nos diretorios padrões do sistema.",16,"Error, File not found"
End if
Else
MsgBox "Você atingiu o máximo de Emuladores terminal para sua máquina, se necessário chame o administrador de rede.",16,"Limite Atingido"
End If