Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Netzwerkrechner

Forumthread: Netzwerkrechner

Netzwerkrechner
Artur
Hallo User,
kann ich mittels VBA der Netzwerkname eines Rechners auslesen. Hintergrund ist das ein Prog auf einem "Zentralen Datenlaufwerk I" abgespeichert ist. Dieses Prog kann von jedem Netzwerkrechner geöffnet werden. Die Daten die erfasst werden sollten jedoch nur auf einem bestimmten Netzwerkrechner abgespeichert werden soll.
Kann mir in dieser Frage helfen? vorerst vielen Dank
Gruß Artur
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Netzwerkrechner
20.07.2010 08:56:40
bst
Hi,
s.u.
cu, Bernd
--
Option Explicit
Sub wshNetworkInfo()
Dim wshNetwork As Object
Set wshNetwork = CreateObject("WScript.Network")
On Error Resume Next
Debug.Print "ComputerName:", wshNetwork.ComputerName
Debug.Print "UserDomain:", wshNetwork.UserDomain
Debug.Print "UserName:", wshNetwork.UserName
' Diese gehen bei mir hier nicht !
Debug.Print "Organization:", wshNetwork.Organization
Debug.Print "Site:", wshNetwork.Site
Debug.Print "UserProfile:", wshNetwork.UserProfile
Set wshNetwork = Nothing
End Sub

Anzeige
AW: Netzwerkrechner
20.07.2010 09:05:29
Artur
Hallo Bernd,
vielen Dank für Deine prompte Antwort. Bei mir wird auch nur der erste Teil angezeigt.
Gruß Artur
AW: Netzwerkrechner
20.07.2010 09:33:20
JogyB
Hallo Artur,
geht auch ohne Windows Script: 
Sub netzWerk()
Debug.Print Environ("Computername")
Debug.Print Environ("Userdnsdomain")
Debug.Print Environ("Userdomain")
Debug.Print Environ("Username")
End Sub

Gruß, Jogy
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige