Mit Hilfe des WMI-Objekts lässt sich der Pfad zum Anwenderprofil eines Benutzers schnell und unkompliziert ermitteln. Option Explicit Public Sub ShowUserProfilePath(ByVal strDomain As String, ByVal strUser As String) ' Zeigt den Pfad zum Userprofile an Dim oUser As Object On Error Goto ErrHandler Set oUser = GetObject("WinNT://" & strDomain & "/" & strUser & ",user") Debug.Print oUser.Profile On Error Goto 0 Exit Sub ErrHandler: ' vermutlich ist kein WMI installiert ... End Sub Dieser Tipp wurde bereits 9.788 mal aufgerufen.
Anzeige
![]() ![]() ![]() (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevAniGif (VB/VBA) ![]() Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Tipp des Monats TOP Entwickler-Paket ![]() TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |