Computername ermitteln, wie?

[praetor]

Hat wer eine Idee, wie sich in FF per VBS der Computername ermitteln lässt?
Normalerweise würde man das mit VBS so machen

Set objNetzwerk = WScript.CreateObject("WScript.Network")
MsgBox objNetzwerk.ComputerName

aber das klappt in FF nicht, weil dort das WScript-Objekt als Stammobjekt nicht verfügbar ist.

 

[Walter-46]

AW: Computername ermitteln, wie?

Hallo Andreas,

das Textscript 'Variablentest' vom Kunir Spuckt auch den Computernamen aus den Environment-Variablen aus. Vielleicht hilft Dir das weiter:
http://www.ffsf.de/showpost.php?p=190763&postcount=150

VG
Walter

 

[praetor]

AW: Computername ermitteln, wie?

Danke Walter, das kenne ich. Aber das ist ja JS und ich glaube, das lässt sich so nicht zu VBS adaptieren.

 

[W.P.]

AW: Computername ermitteln, wie?

Hallo Andreas,

bin gerade nicht zu Hause. Müsste aber so lauten:
Environ("COMPUTERNAME") (Geht leider nicht mit VBScript)

Set WshShell = CreateObject("WScript.Shell")
Set oEnv = WshShell.Environment("Process")
MsgBox oEnv("COMPUTERNAME")
Set oEnv = Nothing

 

[praetor]

AW: Computername ermitteln, wie?

Hallo Werner,

Danke, klappt prima.

"WScript.Shell" ist mir bislang nur mit "Run" untergekommen. Dann ist dieser Artikel wohl nicht ganz vollständig und sollte ergänzt werden, oder?

 

[W.P.]

AW: Computername ermitteln, wie?

Hallo Andreas,

der Artikel ist vollständig. Die Beispiele, die nicht von mir stammen, allerdings nicht. Du hast in Deiner Sammlung die Registry-Funktionen vergessen. Die sind Dir mit Sicherheit untergekommen, wie ich im Verlauf sah

Ach ja: Du hättest im Eingangsposting nur WScript. weglassen müssen . CreateObject ist Dir bestimmt schon öfters untergekommen. Allerdings ist in den Environment-Variablen so mancher Schatz verborgen, der mit API-Funktionen nur mit großem Aufwand zu ermitteln ist. So auch z. B. das aktive Benutzerkonto