Computername | Benutzername

Impressum

Verantwortlicher für die Seite und den Inhalt :

Gabriel Thiel

Trentinostraße 3 / 4 / 1

A - 2441 Mitterndorf an der Fischa

Österreich

Haftungsausschuss & Datenschutz

Impressum

 

Im folgenden Beispiel wird der Computername und der Benutzername (aktuell angemeldet) in einer Messagebox ausgegeben:

Öffne den Editor (z.B. Notepad++), füge folgenden Code ein und speichere diesen als name.vbs ab.

 

dim Network

set Network = CreateObject("WScript.Network")

MsgBox "" & Network.UserName
MsgBox "" & Network.ComputerName

 

 

Die Parameter Network.UserName & Network.Computername können in einer Variablen deklariert werden.

So lassen sich z.B. komplexe Skripte schreiben - beispielsweise für den eigenen Desktop-Pfad:

Öffne dazu wieder den Editor, füge folgenden Code ein und speichere diesen als Desktoppfad.vbs ab.

 

 

dim Network
dim DerName
dim DesktopPfad


set Network = CreateObject("WScript.Network")

DerName = Network.UserName

MsgBox "C:\Users\" & DerName & "\Desktop"

 

 

Quelle: de.wikibooks.org