Èìÿ ïîëüçîâàòåëÿ Èìÿ èëè Ëîãèí?
|
|
Âòîðíèê, 10 Àïðåëÿ 2018 ã. 19:29
+ â öèòàòíèê
Äðóçüÿ, ïîäñêàæèòå ïîæàëóéñòà!
 ôîðìå Çàÿâêà1 â ïîëå "Çàêàç÷èê" äåëàþ çíà÷åíèå ïî óìîë÷àíèþ Ìîäóëü1 êîòîðûé âûïîëíÿåò àâòîçàïîëíåíèå èìåíè ïîëüçîâàòåëÿ. Ïðîáëåìà â òîì, ÷òî íà ñëóæåáíîì â êîìïüþòåðå âìåñòî "Ïåòðîâ Èâàí Èâàíîâè÷" (÷òî è òðåáóåòñÿ) ïîÿâëÿåòñÿ "IPetrov".  çàãîëîâêå ìåíþ Ïóñê óêàçàí Ïåòðîâ Ïåòð ïåòðîâè÷, à ïðè âõîäå â Âèíäó óêàçàí ïîëüçîâàòåëü "master/IPetrov". Ïîäñêàæèòå êóäà ìíå ãîâîðèòü? Ñïàñèáî!
Èñïîëüçóþ òàêîé âîò êîä (ñêîïèðîâàë - âñòàâèë):
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
' Main routine to Dimension variables, retrieve user name
' and display answer.
Function Get_User_Name()
' Dimension variables
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
' Display the User Name
Get_User_Name = UserName
End Function
http://www.sql.ru/forum/1290174/imya-polzovatelya-imya-ili-login
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-