Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige