ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Непонятно
3 сообщений из 3, страница 1 из 1
Непонятно
    #39921615
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim wshnet As Object
Dim UserName As String
Dim UserDomain1 As String
Dim objUser As Object
    Set wshnet = CreateObject("WScript.Network")
    UserName = wshnet.UserName
    UserDomain1 = wshnet.UserDomain
    Set objUser = GetObject("WinNT://" & UserDomain1 & "/" & UserName & ",user")
    
    GetUserFullName2 = objUser.FullName



Два разных проекта для неофисного приложения. WSHcontroller library подключена в обоих.
в одном проекте код работает, в другом на Set objUser = GetObject - ошибка argument not optional...
Причем ранее работало, а потом - перестало.
В чем может быть дело?
...
Рейтинг: 0 / 0
03.02.2020, 08:08
| Ответить | Цитировать | Написать  
Непонятно
    #39982229
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Serg197311,

Смотреть в отладчике, что в UserName и UserDomain1
...
Рейтинг: 0 / 0
21.07.2020, 13:53
| Ответить | Цитировать | Написать  
Непонятно
    #39982384
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Serg197311
в одном проекте код работает, в другом на Set objUser = GetObject - ошибка argument not optional
убедитесь, что в проекте нигде нет функции или процедуры с таким же именем: GetObject. Очень часто именно из-за этого такая ошибка возникает.
...
Рейтинг: 0 / 0
21.07.2020, 20:24
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Непонятно
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]