Name der Workstation?
Moderator: Moderatoren
Name der Workstation?
Hi,
führe gerade Änderungen im Uralt Programm durch
Wie kriege ich unter Clipper den Namen / Bezeichnung der Wirkstation raus
Funktion? Tools?
Vielen Dank schon mal im Voraus!
führe gerade Änderungen im Uralt Programm durch
Wie kriege ich unter Clipper den Namen / Bezeichnung der Wirkstation raus
Funktion? Tools?
Vielen Dank schon mal im Voraus!
Gruß,
Magic
Magic
- Bertram Hansen
- Foren-Moderator
- Beiträge: 1020
- Registriert: Di, 27. Sep 2005 8:55
- Wohnort: 51379 Leverkusen
- Hat sich bedankt: 28 Mal
- Danksagung erhalten: 20 Mal
- Kontaktdaten:
Re: Name der Workstation?
Hallo Magic,
versuch es mal mit:
NETNAME() -> gibt den Namen der Workstation, unter dem sie im Netz bekannt ist, als Zeichenkette aus bis zu 15 Zeichen zurück. Wenn dieser Name nicht definiert wurde oder wenn die Programmumgebung kein IBM PC Netzwerk ist, gibt die Funktion eine leere Zeichenkette ("") zurück.
versuch es mal mit:
NETNAME() -> gibt den Namen der Workstation, unter dem sie im Netz bekannt ist, als Zeichenkette aus bis zu 15 Zeichen zurück. Wenn dieser Name nicht definiert wurde oder wenn die Programmumgebung kein IBM PC Netzwerk ist, gibt die Funktion eine leere Zeichenkette ("") zurück.
Gruß Bertram
http://www.tobax.de
Mitglied der XUG Cologne
Mitglied der XUG Osnabrück
Beisitzer des Deutschsprachige Xbase-Entwickler e.V.
Solange Kakaobohnen an Bäumen wachsen ist Schokolade Obst!
- Tom
- Der Entwickler von "Deep Thought"
- Beiträge: 9394
- Registriert: Do, 22. Sep 2005 23:11
- Wohnort: Berlin
- Hat sich bedankt: 104 Mal
- Danksagung erhalten: 364 Mal
- Kontaktdaten:
Re: Name der Workstation?
Das Kommandozeilentool "SET" liefert alle Environment-Variablen, darunter "COMPUTERNAME", also den Namen der Workstation. Wenn man z.B. "SET > SETTINGS.TXT" ausführen lässt, entsteht eine Datei "SETTINGS.TXT", die alle Variablen enthält. Die kann man dann analysieren, was auch noch mit Clipper möglich sein dürfte. Keine Ahnung, ob Clipper ansonsten Funktionen für Environment-Variablen kennt, aber möglich isses.
Herzlich,
Tom
Tom
- adrian
- Rekursionen-Architekt
- Beiträge: 272
- Registriert: Mo, 08. Mai 2006 8:58
- Wohnort: Aadorf TG
- Danksagung erhalten: 1 Mal
- Kontaktdaten:
Re: Name der Workstation?
Bei uns sieht dies wie folgt aus:
Dadurch wird dies auch bei Remotedesktop korrekt ausgegeben.
adrian
Code: Alles auswählen
sName := UPPER(GETENV(IF("RDP-TCP"$UPPER(GETENV("SESSIONNAME")),"CLIENTNAME","COMPUTERNAME")))
adrian
es Grüessli
Adrian
Adrian
- AUGE_OHR
- Marvin
- Beiträge: 12913
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: Name der Workstation?
richtig ... aber es ist kein Xbase++ FunktionBertram Hansen hat geschrieben:versuch es mal mit:
NETNAME()
Code: Alles auswählen
#include "DLL.CH"
PROC MAIN
CLS
a := NETNAME()
? a
RETURN
FUNCTION NETNAME()
LOCAL nDll, cName:= SPACE(255), nSize:= 255, cReturn:=''
nDll := DllLoad("kernel32.dll")
IF nDll <> 0
IF !EMPTY(DllCall(nDll,DLL_STDCALL,"GetComputerNameA",@cName,@nSize))
cReturn:= LEFT(cName,nSize)
ENDIF
DllUnload( nDll )
ENDIF
RETURN(cReturn)
gruss by OHR
Jimmy
Jimmy
- Tom
- Der Entwickler von "Deep Thought"
- Beiträge: 9394
- Registriert: Do, 22. Sep 2005 23:11
- Wohnort: Berlin
- Hat sich bedankt: 104 Mal
- Danksagung erhalten: 364 Mal
- Kontaktdaten:
Re: Name der Workstation?
@Jimmy: Geht ja auch um Clipper. Deshalb findet die Diskussion auch im Clipper-Unterforum statt.
Herzlich,
Tom
Tom
- AUGE_OHR
- Marvin
- Beiträge: 12913
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: Name der Workstation?
uuuuupppssss ... ok unter Cl*pper gibt es schon Netname() "fertig".Tom hat geschrieben:@Jimmy: Geht ja auch um Clipper. Deshalb findet die Diskussion auch im Clipper-Unterforum statt.
gruss by OHR
Jimmy
Jimmy
Re: Name der Workstation?
Guten Morgen!
NETNAME() ist für mein Anliegen das Richtige.
Danke
NETNAME() ist für mein Anliegen das Richtige.
Danke
Gruß,
Magic
Magic
- Werner_Bayern
- Der Entwickler von "Deep Thought"
- Beiträge: 2128
- Registriert: Sa, 30. Jan 2010 22:58
- Wohnort: Niederbayern
- Hat sich bedankt: 30 Mal
- Danksagung erhalten: 75 Mal
Re: Name der Workstation?
Servus Adrian,
super Lösung, top! =D>
Danke.
super Lösung, top! =D>
Danke.
adrian hat geschrieben:sName := UPPER(GETENV(IF("RDP-TCP"$UPPER(GETENV("SESSIONNAME")),"CLIENTNAME","COMPUTERNAME")))
es grüßt
Werner
<when the music is over, turn off the lights!>
Werner
<when the music is over, turn off the lights!>