Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Windows XP SP1, User unter VB in MS Access 2002 ermitteln

Frage Microsoft Microsoft Office

Mitglied: Turbothomas

Turbothomas (Level 1) - Jetzt verbinden

17.06.2005, aktualisiert 18.06.2005, 9777 Aufrufe, 2 Kommentare

Hallo zusammen, ich bin neu hier und habe mit der Suchfunktion und mit Stöbern in den Foren nichts zu meiner Frage gefunden.

Im Büro im täglichen Arbeitsleben nutze ich MS-Access 2002. Die Datenbank-Anwendung die ich geschrieben habe, verzichtet auf die Nutzerverwaltung der Datenbank (ich begreife nicht wie das funktioniert).
Stattdessen wird ein Anmeldeformular geöffnet, indem der User seine Arbeitspaltzbezeichnung auswählen kann. Passwortabfrage erfolgt keine.
Anhand der ausgewählten Arbeitsplatzbezeichnung erfolgt auf dem Hauptformular die Sichtbarmachung verschiedener Schaltflächen zur Nutzung der Anwendung über Programmcode in dem Hauptformular.

Nachdem der Userkreis immer größer wird und ich den Anwendern größeren Komfort geben möchte, suche ich ein Routine, die als Programm in Access läuft.

Die Routine soll folgendes tun:
Beim Start der MS-Access-Datei mit Doppelklick schaut die Routine nach welcher XP-User sich am PC angemeldet hat und übergibt den Wert in die Tabelle erf-Dat.

Hat jemand eine Idee wie das geht?

Hinweis:
Es wird der englischsprache VB verwendet und es kann nicht hinzugefügt werden an dll, oder sonstiger Software

Grüßle

Thomas
Mitglied: 7036
17.06.2005 um 10:42 Uhr
Tach Turbothomas,

also am Besten Du schaust dir mal folgende Links an...

Angemeldeten Benutzernamen ermitteln:
http://www.vbarchiv.net/archiv/tipp_details.php?pid=27

und

Angemeldete Benutzer ermitteln (ADO)
http://www.vbarchiv.net/archiv/tipp_details.php?pid=581


Funktioniert beides wunderbar in Access und in VB...


Gruß Siggi
Bitte warten ..
Mitglied: Turbothomas
18.06.2005 um 06:57 Uhr
Hallo Siggi Danke für die Tipps bin später am gestrigen Tag noch woanders fündig geworden:

Dim testobjekt, testobjekt_1 As Object
Dim anwender, rechner, haus As String

Sub user_ermitteln()

Set testobjekt = CreateObject("WScript.Network")

MsgBox "Im Moment ist der User " & testobjekt.Username & " angemeldet.", , "Angemeldeter User"

Set testobjekt_1 = CreateObject("WScript.Network")
anwender = testobjekt.Username
rechner = testobjekt.ComputerName
haus = testobjekt.Userdomain
MsgBox "Im Moment ist der PC" & rechner & " der Domäne " & haus & " mit dem User " & anwender & " angemeldet.", , "Angemeldeter User"



End Sub

und schon ist alles griffbereit.

Trotzdem Danke.

Grüßle Thomas
Bitte warten ..
Ähnliche Inhalte
Windows XP
gelöst WPA2 unter Windows XP SP1 nutzen? (10)

Frage von bestelitt zum Thema Windows XP ...

Datenbanken
MS Access: Mehrere Zeilen in einer Zelle zusammenfassen (2)

Frage von User1000 zum Thema Datenbanken ...

Microsoft Office
gelöst Probleme beim Aufrug von Google Maps aus einem MS-ACCESS 2013 Formular (9)

Frage von CADastrophe zum Thema Microsoft Office ...

Windows XP
Windows XP 2TB Datenplatte nur mit 1TB beschreibbar (11)

Frage von hajo2121 zum Thema Windows XP ...

Heiß diskutierte Inhalte
Windows 7
gelöst BOOTMGR is missing (auch nach bootrec -RebuildBcd) (21)

Frage von Mipronimo zum Thema Windows 7 ...

Router & Routing
Tipps für Router (ca. 100 clients, VPN) (20)

Frage von oel-auge zum Thema Router & Routing ...

Windows Userverwaltung
Windows Freigabe: Zugriff auf alle Ordner trotz Sicherheitseinstellungen (18)

Frage von Pandreas zum Thema Windows Userverwaltung ...

Exchange Server
gelöst MS Exchange 2016 - Basicconfig Fragen (16)

Frage von maddig zum Thema Exchange Server ...