Power Builder - Logout Usuarios

 
Vista:

Logout Usuarios

Publicado por John (6 intervenciones) el 28/02/2008 15:27:37
Buenas foristas.

Tengo un proceso, al cual quiero agregarle la opción que al terminar de realizar alguna operación, vote a todos los usuarios del sistema que esten conectados a la red, no se si se podría hacer esto a través del mismo poewr o quizas tenga que apoyarme de algun procedimiento almacenado.

Estoy trabajando con PB 9 y SQL Server 2000.

De ante mano, gracias por la ayuda que puedan brindarme.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Logout Usuarios

Publicado por Jorge (900 intervenciones) el 28/02/2008 16:36:06
Hola

Te refieres a la Lan o solo a tu sistema ??
Estas bajo un Dominio ??

Podes hacerle hasta un Shutdown si quieres.

Saludos y comentanos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Logout Usuarios

Publicado por John (6 intervenciones) el 28/02/2008 17:07:59
Gracias Jorge por responder!.

Lo que deseo es que al hacer un determinado proceso , pues todos los usuarios de mi LAN conectados al sistema, pierdan la conexión, para que nuevamente puedan conectarse.

Contestando a tus preguntas, claro es sobre una LAN y claro estan bajo un dominio.

Voy a ver lo que me mencionas de Shutdown, y si tuvieses alguna idea mas detallada te agradeceria.

Gracias!!!!.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Logout Usuarios

Publicado por Jorge (900 intervenciones) el 28/02/2008 17:49:00
Mira aqui te paso
lo que tenes de declarar

un scrip. (uso una funcion)

la funcion.. con los parametros

espero te ayude te comento que no se por que
pero en algunos sos por alli no sabe andar bien o algunos errores

Prueba si tienes problemas podemos probar otras alternativas

//Apagar Pc
function boolean InitiateSystemShutdownA(string lpMachineName, &
string lpMessage, long dwTimeout, boolean bForceAppsClosed, &
boolean bRebootAfterShutdown) library 'advapi32.dll' Alias for "InitiateSystemShutdownA;Ansi"
function long FormatMessageA(ulong dwflags, long lpsource, long dwmessageid, &
long dwlanguageid, ref string lpbuffer, long nsize, long lparguments) &
library 'kernel32.dll' alias for "FormatMessageA;Ansi"
//Error
function ulong GetLastError() library 'kernel32.dll'


Scrip
// Argumentos utilizados
//maquina
//mensage
//tiempo
//forceapp
//reboot

String PC
String Msg
Long Timer
Boolean Reboot
Boolean Kill


n_ja_infosys Sysinfo
Sysinfo = Create using "n_ja_infosys"
//Nombre del Equipo
If sysinfo.nombreequipo() = Maquina Then
SetNull(Pc)
Else
Pc = "\"+Maquina
End If

Msg = "Apagando"

If cbx_1.Checked = True Then
Kill = True
Else
Kill = False
End If

If cbx_2.Checked = True Then
Reboot = True
Else
Reboot = False
End If

If cbx_3.Checked = True Then
Sle_1.Visible = True
em_1.Visible = True
Msg = Trim(sle_1.Text)
Timer= Long(em_1.Text)
Else
Timer = 0
SetNull(Msg)
End If
Sysinfo.Shutdown(PC,Msg,Timer,Kill,Reboot)
Destroy SysInfo


Funcion
long ll_errorid
string ls_errortext
string ls_null
string ls_restart_message

//SetNull(ls_null) //null si es local, o "\MYPC"
//ls_restart_message='Su PC será reiniciado'

InitiateSystemShutdownA(f_pc,f_msg,f_timer,f_kill,f_reboot)

ll_errorid=GetLastError()
ls_errortext=Space(2000)
FormatMessageA(4096,0,ll_errorid,0,ls_errortext,Len(ls_errortext),0)

MessageBox('',ls_errortext)

f_pc f_msg String
f_timer Long
f_kill f_reboot Boolean
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar