Computername ermitteln

[JörgG]

Hi,
ich bastel gerade an einem Prog, welches u.a den Computernamen ermitteln soll. Jetzt habe ich aber schon vergeblich in der Hilfe & auch hier im Forum nach einem Hinweis gesucht, in welcher Systemvariablen dieser Name steht...
Ist das so simpel, das ich den Wald....? oder geht das mit xProfan 8a nicht ohne weiteres?
Danke & Grüße
Jörg

[Frabbing]

Hallo Jörg,

das ist über die Environment-Variablen leicht auszulesen:

Print GetEnv$("COMPUTERNAME")
WaitInput

Schau mal in der Hilfe unter dem Begriff nach, damit kannst du noch jede Menge anderer nützlicher Sachen auslesen.

[JörgG]

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaahh!
Hi Frank,
jo Danke. In der ProfanHilfe selbst ist zu diesem Thema nur getEnv$("path") erwähnt, aber da gibt es ja noch Dietmars Lehrbücher. Dort finde ich sicherlich die anderen getEnv$("nützlichen Sachen"). Bin gerade auf Arbeit & habe Dietmar z.Zt. nur zu Hause Installiert...
Danke & angenehme Feitage
Jörg

[Bangkok]

Dau kannst auch die API verwenden.

Proc GetComputerName
Declare NAME#,size#,RESULT$
 Dim name#,255
 Dim size#,4
 Long size#,0=255
 External("Kernel32","GetComputerNameA",name#,size#)
 result$=String$(name#,0)
 Dispose name#
 Dispose size#
 Return result$
endproc

CLS
Print GetComputerName()
waitkey

oder diese, gibt den Computernamen und den Benutzernamen zurück

Def GetUserNameEx(3) ! "secur32","GetUserNameExA"

cls
declare un#
var size& = 100
dim un#,100

GetUserNameEx(2,un#,addr(size&))+" "
print string$(un#,0)
waitinput

[AHT]

Die Methode von Bangkok ist auf jeden Fall vorzuziehen.

Warum:
GetEnv$ liest über die API GetEnvironmentVariable die Umgebungsvariablen des jeweiligen Prozesses aus. Umgebungsvariablen sind im Prinzip nur Variablen, die innerhalb eines Prozesses auf einem bestimmten Wert sein können. Die Variablen können jederzeit geändert werde, ohne das sich der Wert verändert, der sich dahinter befindet - wenn man ein klein bischen programmieren kann, kann man das problemlos auch von einem fremden Prozess aus tun.
Hier noch Code als Beleg:

Declare Variable$, Wert$, Computername#, Size&
DIM Computername#, int($F+2)
Clearlist 
Addstring "Vor der Änderung mit GetEnv$ ausgelesen: " + GetEnv$("COMPUTERNAME")
Variable$ = "COMPUTERNAME"
Wert$ = "Blödsinn"
external("Kernel32","SetEnvironmentVariableA",addr(Variable$),addr(Wert$))
Addstring "Nach der Änderung mit GetEnv$:" + GetEnv$("COMPUTERNAME")
Size& = int($F+1)
external("Kernel32","GetComputerNameA",Computername#,addr(Size&))
Addstring "Computername über GetComputerName nach der Änderung ausgelesen: " + String$(Computername#,0)
Dispose Computername#
EditBox("Ergebnisse",1)

Hier die Rückgaben:

Vor der Änderung mit GetEnv$ ausgelesen: LAPPI03
Nach der Änderung mit GetEnv$:Blödsinn
Computername über GetComputerName nach der Änderung ausgelesen: LAPPI03

[commänder]

Zitat von Jörg

jo Danke. In der ProfanHilfe selbst ist zu diesem Thema nur getEnv$("path") erwähnt, aber da gibt es ja noch Dietmars Lehrbücher. Dort finde ich sicherlich die anderen getEnv$("nützlichen Sachen"). Bin gerade auf Arbeit &

MS-DOS-Eingabeaufforderung aufmachen, und dort einfach mal "set" eingeben, dann siehst Du alle Umgebungsvariablen...
Aufpassen, nicht jede der Variablen existiert unter jedem Betriebssystem...

[AHT]

Zitat von commänder

Aufpassen, nicht jede der Variablen existiert unter jedem Betriebssystem...

Die angesprochen Variable %COMPUTERNAME% existiert zum Beispiel nicht auf Windows98.

[Frabbing]

Ist nichtsdestotrotz eine schnelle Möglichkeit den Namen auszulesen. Windows 98 ist ja auch schon ein alter Hut.
Wenn es ganz sicher sein soll, kann die API verwandt werden.

[AHT]

Die einfachste und die schnellste - die Methode über die API ist aber auf jeden Fall die bessere.