Zistenie mena užívateľa

Kompletní přehled příspěvků v tématu Zistenie mena užívateľa řazený podle data jejich publikace na fóru.

Uživatel	Příspěvek
agaragar Poslat zprávu \| Profil	Datum: 19.8. 2012 \| Zobrazeno: 9590x Konfigurace CATIA: Text dotazu: Zdravím, ak by ste chceli niekedy obohatiť svoje makrá o zisťovanie mena používateľa dávam do pozornosti tento kód. Declare Function GetUserName Lib "advapi32.dll" AliAs "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function NameUser() As String Dim strMeno As String strMeno = Space(255) GetUserName strMeno, 255 NameUser = Left(strMeno, InStr(1, strMeno, Chr(0)) - 1) End Function

Ing Jan Cinert Poslat zprávu \| Profil	[#3192] \| Publikováno: 19.08. 2012 - 23:51 To je sice hezké, ale kde je tak dll knihovna (nebo je to win knihovna dostupná v systému?)? Bez ní je to tak nějak k ničemu. Předpokládám, že to zjišťuje jméno přihlášeného uživatele v systému...
Ing Jan Cinert Poslat zprávu \| Profil	[#3193] \| Publikováno: 19.08. 2012 - 23:56 Tak jeden dodatek - knihovna je dostupná ve všech Win OS a jde s ní spousta věcí.
Břeťa Doležal Poslat zprávu \| Profil	[#3195] \| Publikováno: 20.08. 2012 - 09:45 Další možnost: Dim WSNet As Object Dim Zprava As String Set WSNet = CreateObject("WScript.Network") Zprava = "Uživatel: " & WSNet.UserName & vbCrLf Zprava = Zprava & "Počítač: " & WSNet.ComputerName & vbCrLf MsgBox Zprava, vbExclamation, "Msg"
Ing Jan Cinert Poslat zprávu \| Profil	[#3196] \| Publikováno: 20.08. 2012 - 10:06 Hm, to vypadá trochu jednodušší :-)

Uživatel nepřihlášen

Pro zobrazení obsahu stránky / provedení akce (vytvoření nového téma, napsání odpovědi do diskuse apod.) musíte být přihlášeni.

Reklama

Partneři CATIA fóra

Uživatel	Příspěvek
agaragar Poslat zprávu \| Profil	Datum: 19.8. 2012 \| Zobrazeno: 9590x Konfigurace CATIA: Text dotazu: Zdravím, ak by ste chceli niekedy obohatiť svoje makrá o zisťovanie mena používateľa dávam do pozornosti tento kód. Declare Function GetUserName Lib "advapi32.dll" AliAs "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function NameUser() As String Dim strMeno As String strMeno = Space(255) GetUserName strMeno, 255 NameUser = Left(strMeno, InStr(1, strMeno, Chr(0)) - 1) End Function

Ing Jan Cinert Poslat zprávu \| Profil	[#3192] \| Publikováno: 19.08. 2012 - 23:51 To je sice hezké, ale kde je tak dll knihovna (nebo je to win knihovna dostupná v systému?)? Bez ní je to tak nějak k ničemu. Předpokládám, že to zjišťuje jméno přihlášeného uživatele v systému...
Ing Jan Cinert Poslat zprávu \| Profil	[#3193] \| Publikováno: 19.08. 2012 - 23:56 Tak jeden dodatek - knihovna je dostupná ve všech Win OS a jde s ní spousta věcí.
Břeťa Doležal Poslat zprávu \| Profil	[#3195] \| Publikováno: 20.08. 2012 - 09:45 Další možnost: Dim WSNet As Object Dim Zprava As String Set WSNet = CreateObject("WScript.Network") Zprava = "Uživatel: " & WSNet.UserName & vbCrLf Zprava = Zprava & "Počítač: " & WSNet.ComputerName & vbCrLf MsgBox Zprava, vbExclamation, "Msg"
Ing Jan Cinert Poslat zprávu \| Profil	[#3196] \| Publikováno: 20.08. 2012 - 10:06 Hm, to vypadá trochu jednodušší :-)