Имя пользоваптеля

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Имя пользоваптеля

Сообщение neic » 16.06.2005 (Чт) 9:19

Как узнать именя пользователей, ну тех которых после привествия!

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 16.06.2005 (Чт) 9:28

GetUserName API
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 16.06.2005 (Чт) 9:32

А ещё WNetGetUser
Изображение

GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 16.06.2005 (Чт) 9:32

Аффтар имеет ввиду как перечислить пользователей в системе. Можна через WMI.
الفيجوال بيسك الرابح

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 16.06.2005 (Чт) 12:53

А пример в студию можно? :?

HotKitten
Дятил
Дятил
Аватара пользователя
 
Сообщения: 400
Зарегистрирован: 24.01.2005 (Пн) 21:48
Откуда: из дома

Сообщение HotKitten » 16.06.2005 (Чт) 23:31

Код: Выделить всё
' &icirc;&iuml;&eth;&aring;&auml;&aring;&euml;&aring;&iacute;&egrave;&aring; &egrave;&igrave;&aring;&iacute;&egrave;
Dim WSHNetwork
Set WSHNetwork = CreateObject("WScript.Network")
'&ccedil;&agrave;&atilde;&eth;&oacute;&aelig;&agrave;&aring;&igrave; &oacute;&ntilde;&ograve;&agrave;&iacute;&icirc;&acirc;&ecirc;&egrave; &yuml;&ccedil;&ucirc;&ecirc;&agrave;
Open App.Path + "\" + "language.dat" For Input As #1
Input #1, Lang
Close #1
If Lang = 1 Then
   Label = "&Ccedil;&auml;&eth;&agrave;&acirc;&ntilde;&ograve;&acirc;&oacute;&eacute;&ograve;&aring;  " & WSHNetwork.UserName
Else
   Label = "Welcome  " & WSHNetwork.UserName
End If

из проги выдернул, так что уберёшь сам лишнее
Изображение


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 113

    TopList