FiveTech Software tech support forums

... GETENV( 'SESSIONNAME' )
winfo:=winfo+CRLF+"<BR>TEMP:"+GetEnv("TEMP")
winfo:=winfo+CRLF+"<BR>TMP:"+GetEnv("TMP")
winfo:=winfo+CRLF+"<BR>USERNAME:"+GetEnv( "USERNAME" )
winfo:=winfo+CRLF+"<BR>WNETUSERNAME:"+WNetGetUser()
winfo:=winfo+CRLF+"<BR>COMPUTERNAME:"+GetEnv( "COMPUTERNAME" )

Philippe

... maybe a solution ? ( Alarm.exe is installed on the server )

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=27576&p=153877&hilit=computername#p153877
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=30839&p=177539&hilit=computername#p177539

how it works in short

The desktop ...

When i execute an application with Remote Desktop (TS) ,
the function GetEnv( "COMPUTERNAME" ) return the NAME of the SERVER and not the name of the workstation that execute Remote Desktop .

How to know this name ?

Thanks

Boris
And Section?
GetEnv( "COMPUTERNAME" ) + "_" + GetEnv( "USERNAME" )

... across this manifest file.


This works for me but it prompts for the user password.

Code:

cStrg := "runas /noprofile /user:" + GetEnv( "COMPUTERNAME" ) + "\" + GetEnv( "USERNAME" ) + " TELNET"
winexec( cStrg )


@Rick: when you use winexec waitrun etc... it seems you loose elevated privileges ...

... 1. Bring up printer properties and Share printer.
2. Create batch file with the following contents.
net use lpt1 /delete
net use lpt1 \\%computername%\PRINTERSHARENAME /persistent:yes
rem replace PRINTERSHARENAME with the name you used.
3. Create link to batch file in startup folder ...

... del s.o. Aunque eso puede ser un mal menor.
A mi me parece que la mejor solucion es buscar un identificador unico en la red, llamese computername, mac address o el que sea y luego ya una tabla que contenga id estacion/ documento/ impresora/ preview/ printer dialog.

En mi experiencia, el ...

Hola

Nueva version v0.409

http://code.google.com/p/fivewin-contri ... 1310806811

v.0409
------
+ Add Specials Items: Page xx of yy, ComputerName, UserName, Date Report,
TimeStamp,... -> Check (45) FuncItem.prg
+ Check ProdList.prg to see special item : Page xx of yy

... make -fcompila.rmk -p
MAKE Version 5.2 Copyright (c) 1987, 2000 Borland

Macros:
PIPEHANDLE = 0
.path.OBJ = .\obj
USERDOMAIN = PAPA
COMPUTERNAME = PAPA
COMMONPROGRAMFILES = C:\Archivos de programa\Archivos comunes
.path.CH = D:\fwh712\include;D:\fwh712\xhb712\include
MAKEFLAGS = l -o -p ...

... a ver:

PSEUDOCODIGO para hacer un fichero de texto como bloqueo:

nHandle:= FCreate(CODIGO_USUARIO+ ".log", MODO COMPARTIDO)
fwrite(nhandle, computername())

Si queremos saber si CODIGO_USUARIO esta conectado solo es necesario mirar si existe su log y si existe entonces intentar abrirlo en ...

Hello Otto

1 . Check if the wireless is ON

FOR nX := 1 TO 10
inetinit()
aIpDNS:=InetGetHosts(Getenv("ComputerName"))
inetcleanup()
IF len(aIpDNS) >= 1
IF aIpDNS[1] == "127.0.0.1"
::lRete := FALSE
ELSE
::lRete := TRUE
exit
ENDIF
ELSE
::lRete := FALSE
ENDIF
sleep(200)
NEXT

2 ...

... 0
::lAnsiToOem := .T.
::cPort := cPort + If( ! "." $ cPort .and. ! "\\" $ cPort, ".PRN", "" ) // considers the port can be a network route (\\computername\sharename)
::hDC := -1 // FCreate( ::cPort ) moved down, after port checking is done
::LastError := 0
::lFile := ! ( Left( cPort, 3 ) == "LPT ...

Hola,

Prueba con :

// Nombre Equipo

cEquipo:=getenv("COMPUTERNAME")

// Nombre usuario

cUsuario:=getenv("USERNAME")


Atte.,

Lautaro Moreira

Hello,

You can try this :


cName:=getenv("COMPUTERNAME")


this it's ok in Windows Vista Busines.


Atte.,

Lautaro Moreira


Pd. : Sorry for my bad english

EN LA LINEA DE COMANDO DEL MSDOS DA SET Y TE DARA UNA LISTADE VARIABLES Y UTILIZANDIO Getenv("computername") EN TU PROGRAMA POR EJEM. SE PUEDEN HACER ALGUNAS COSAS EN FIN A LOMEJOR SE TE OCURRA ALGO.