Карта сайта

Rambler's Top100
Яндекс цитирования
Друзья сайта

Работа с параметрами Windows

Примеры на VBA Примеры API

Определение типа операционной системы

Определить тип операционной системы можно не привлекая API функции с помощью следующего кода на vba:

TypeWin = Application.OperatingSystem

Результатом будет строковое выражение, например «Windows (32-bit) NT 5.01»

Далее уже классическими функциями обработки строк можно вытащить из этой строки другие параметры.

Например если нужно определить скольки битная система, то можно воспользоваться следующим кодом:

If InStr (Application.OperatingSystem, «32-bit») Then

BIT32 = True

Else

BIT32 = False

End If

Функция для возвращения имени компьютера и пользователя

Для определения имени пользователя вошедшего в систему или пользователя локальной сети можно воспользоваться функцией API

Public Declare Function GetUserName Lib «advapi32.dll» _

Alias «GetUserNameA» (ByVal lpBuffer As String, nSize As Long) As Long

 

Sub UserNameImi ()

Dim Name As String * 255, NLen As Long, UserName As String

tString =» «

On Error Resume Next

NLen = GetUserName (Name, 255)

NLen = InStr (1, Name, Chr (0))

If NLen > 0 Then

UserName = Left (Name, NLen — 1)

Else

UserName = Name

End If

On Error GoTo 0

UserName = UCase (Trim (UserName))

End Sub

Для возвращения имени компьютера, в приведенном выше коде замените строку

NLen = GetUserName (Name, 255)

на

NLen = GetComputerName (Name, 255)

И объявите API функцию

Public Declare Function GetComputerName Lib «kernel32» _

Alias «GetComputerNameA» (ByVal lpBuffer As String, nSize As Long) As Long

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

ActiveUserName = Application.UserName

28.09.2012, 599 просмотров.


Справочник VBA

Функии, опрераторы языка VBA - их описание и примеры использования при программировании в Microsoft Office (Excel, Word, Access, Outlook, PowerPoint и т.д.)

18.06.2012 08:40:24
Комментарии к ячейкам – добавление, удаление и получение их значения

22.05.2012 11:37:00
Xor
Оператор выполняет операцию логического исключения (ИЛИ) для двух выражений