Del dine regneark - SystemInformation

SystemInformation - med kodeeksempler

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Del dine regneark
Forum beskrivelse: I dette forum kan du dele dine regneark med andre brugere
Alle typer regneark kan uploades og det anbefales at lave en lille vejledning,
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2941
Udskrevet den: 21.Nov.2024 kl. 23:40

Emne: SystemInformation - med kodeeksempler

Besked fra: RosePet
Emne: SystemInformation - med kodeeksempler
Posteringsdato: 10.Feb.2017 kl. 11:17

Blev lidt trigget af denne fra Allan:

https://www.excel-regneark.dk/?pageIDX=226 - https://www.excel-regneark.dk/?pageIDX=226

Der laver API-kald til DLL'er fra VBA, og det virker skam.

MEN, nu er der jo ikke mange Windows installationer, der ikke benytter AD som sikkerhedssystem så hvorfor ikke spørge den vej rundt, og slippe for at binde sig til DLL'er !

Prøv med denne UDF variant af BrugerNavn() funktionen, f.eks:

Function Brugernavn()
' Added here by Peter Rosenberg

' As you can see, the other variables: UserNameCN and ComputerID is also available, so you could

' extend the UDF function, to return an array with all three return values (Ctrl+Shift+Enter)
'*************************************************************

Application.Volatile

Dim ReturnText(2) As String

            Dim UserNameCN As String
            Dim ComputerID As String
            Dim ntSys
            Set ntSys = CreateObject("WinNTSystemInfo")
            Dim adSys
            Set adSys = CreateObject("ADSystemInfo")
            UserNameCN = Left(adSys.UserName, InStr(1, adSys.UserName, ",OU=") - 1)
            ComputerID = Left(adSys.ComputerName, InStr(1, adSys.ComputerName, ",OU=") - 1)
            UserNameCN = Replace(UserNameCN, "CN=", "")
            UserNameCN = Replace(UserNameCN, "\", "")
            ComputerID = Replace(ComputerID, "CN=", "")
            Debug.Print "Current user: " & UserNameCN & " - from COMPUTER: " & ComputerID
            Debug.Print "Current user ID: " & ntSys.UserName
            ReturnText(0) = ntSys.UserName
            ReturnText(1) = UserNameCN
            ReturnText(2) = ComputerID

            Brugernavn = ReturnText
End Function

Svar:

Besked fra: EXCELGAARD
Posteringsdato: 10.Feb.2017 kl. 17:00

www.excelgaard.dk/Bib/ADBRUGER/ www.excelgaard.dk/Bib/ADBRUGER/
www.excelgaard.dk/Bib/BRUGERINFO/ www.excelgaard.dk/Bib/BRUGERINFO/
www.excelgaard.dk/Bib/SYSINFO/ www.excelgaard.dk/Bib/SYSINFO/

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: RosePet
Posteringsdato: 12.Feb.2017 kl. 19:09

Jo tak Excelgaard, prøvede at åbne din hjemmeside, men den timede ud.
Derfor kunne jeg ikke se om du havde "guldkorn" liggende.
mvh

Besked fra: EXCELGAARD
Posteringsdato: 12.Feb.2017 kl. 21:28

RosePet skrev:

Jo tak Excelgaard, prøvede at åbne din hjemmeside, men den timede ud.
Derfor kunne jeg ikke se om du havde "guldkorn" liggende.
mvh

Ja, det skal jeg ikke kunne sige mig helt fri for, da jeg _ER_ i gang med en større omlægning af hjemmesiden, i forbindelse med indkøb af ny server...
,,,men, prøv igen lidt senere, hvis du rammer en uheldig periode :-)

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.