Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Непонятно / 3 сообщений из 3, страница 1 из 1
03.02.2020, 08:08
    #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
| Ответить | Цитировать | Написать  
21.07.2020, 13:53
    #39982229
Eolt
Eolt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Непонятно
Serg197311,

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


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