VBA, MS Access MS Access в примерах

Получение и измение переменной среды

Private Sub ListEnvironVariables()
Dim i%
    For i = 1 To 99
        Debug.Print Environ(i)
    Next i
End Sub


Dim sCompName As String, sUserName As String
    sCompName = Environ("COMPUTERNAME")
    sUserName = Environ("UserName")


Замена значения пременной:

Sub ReestrAdd()
  Dim Wsh As Object
  Set Wsh = CreateObject("WScript.Shell")
  Wsh.RegWrite "HKCU\Environment\temp", "%USERPROFILE%\Local Settings\NoTemp"
End Sub


Переменные среды:

По материалам: http://forum.ru-board.com/topic.cgi?forum=62&topic=16889

%ALLUSERSPROFILE%-Локальная-Возвращает размещение профиля «All Users».
%APPDATA%-Локальная-Возвращает используемое по умолчанию размещение данных приложений.
%CD%-Локальная-Возвращает путь к текущей папке.
%CMDCMDLINE%-Локальная-Возвращает строку команд, с помощью которой был запущен данный экземпляр Cmd.exe.
%CMDEXTVERSION%-Системная-Возвращает номер версии текущих расширений обработчика команд.
%COMPUTERNAME%-Системная-Возвращает имя компьютера.
%COMSPEC%-Системная-Возвращает путь к исполняемой командной оболочке.
%DATE%-Системная-Возвращает текущие данные. Использует тот же формат, что и команда date /t. Создается командой Cmd.exe.
%ERRORLEVEL%-Системная-Возвращает код ошибки последней использовавшейся команды. Значение, не равное нуля, обычно указывает на наличие ошибки.
%HOMEDRIVE%-Системная-Возвращает имя диска локальной рабочей станции, связанного с основным каталогом пользователя. Задается на основании расположения основного каталога. Основной каталог пользователя указывается в оснастке «Локальные пользователи и группы».
%HOMEPATH%-Системная-Возвращает полный путь к основному каталогу пользователя. Задается на основании расположения основного каталога. Основной каталог пользователя указывается в оснастке «Локальные пользователи и группы».
%HOMESHARE%-Системная-Возвращает сетевой путь к общему основному каталогу пользователя. Задается на основании расположения основного каталога. Основной каталог пользователя указывается в оснастке «Локальные пользователи и группы».
%LOGONSEVER%-Локальная-Возвращает имя контроллера домена, который проверял подлинность текущей сессии.
%NUMBER_OF_PROCESSORS%-Системная-Задает количество процессоров, установленных на компьютере.
%OS%-Системная-Возвращает имя операционной системы. При использовании Windows 2000 имя операционной системы отображается как Windows_NT.
%PATH%-Системная-Указывает путь поиска для исполняемых файлов.
%PATHEXT%-Системная-Возвращает список расширений файлов, которые рассматриваются операционной системой как исполняемые.
%PROCESSOR_ARCHITECTURE%-Системная-Возвращает архитектуру процессора. Значения: x86, IA64.
%PROCESSOR_IDENTFIER%-Системная-Возвращает описание процессора.
%PROCESSOR_LEVEL%-Системная-Возвращает номер модели процессора, установленного на компьютере.
%PROCESSOR_REVISION%-Системная-Возвращает номер модификации процессора.
%PROMPT%-Локальная-Возвращает параметры командной строки для текущего интерпретатора. Создается командой Cmd.exe.
%RANDOM%-Системная-Возвращает произвольное десятичное число от 0 до 32767. Создается командой Cmd.exe.
%SYSTEMDRIVE%-Системная-Возвращает имя диска, содержащего корневой каталог Windows XP (т. е. системный каталог).
%SYSTEMROOT%-Системная-Возвращает размещение системного каталога Windows XP.
%TEMP% и %TMP%-Системная и пользовательская-Возвращает временные папки, по умолчанию используемые приложениями, которые доступны пользователям, выполнившим вход в систему. Некоторые приложения требуют переменную TEMP, другие — переменную TMP.
%TIME%-Системная-Возвращает текущее время. Использует тот же формат, что и команда time /t. Создается командой Cmd.exe.
%USERDOMAIN%-Локальная-Возвращает имя домена, содержащего список учетных записей пользователей.
%USERNAME%-Локальная-Возвращает имя пользователя, выполнившего вход в систему.
%USERPROFILE%-Локальная-Возвращает размещение профиля для текущего пользователя.
%WINDIR%-Системная-Возвращает размещение каталога операционной системы.

эти переменные Windows хранит в реестре в ключе
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment

Добавить их туда можно утилитой reg. Например, системную переменную с именем tttt и содержанием zzzzzzz можно создать из командной строки командой
REG ADD "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v tttt /t REG_EXPAND_SZ /d zzzzzzz

Также стоит поискать в сети по названию утилитки для манипулирования переменными SETENV.EXE и плюс ссчлка из MS KB


Переменная - Типичное значение:

%ProgramFiles% - C:\Program Files
%WindowsDir% - C:\Windows
%SystemDir% - C:\Windows\System32
%FontDir% - C:\Windows\Fonts
%CommonFiles% - C:\Program Files\Common Files
%UserProfile% - C:\Documents and Settings\%UserName%
%TempDir% - C:\Documents and Settings\%UserName%\Local Settings\Temp
%SendTo% - C:\Documents and Settings\%UserName%\SendTo
%QuickLaunch% - C:\Documents and Settings\%UserName%\Application Data\Microsoft\Internet Explorer\Quick Launch
%MyDocuments% - C:\Documents and Settings\%UserName%\Мои документы
%Desktop% - C:\Documents and Settings\%UserName%\Рабочий стол
%ProgramsDir% - C:\Documents and Settings\%UserName%\Главное меню\Программы
%StartMenu% - C:\Documents and Settings\%UserName%\Главное меню
%Favorites% - C:\Documents and Settings\%UserName%\Избранное
%StartUp% - C:\Documents and Settings\%UserName%\Главное меню\Программы\Автозагрузка
%Templates% - C:\Documents and Settings\%UserName%\Шаблоны
%AppData% - C:\Documents and Settings\%UserName%\Application Data
%CommonDocuments% - C:\Documents and Settings\All Users\Документы
%CommonDesktop% - C:\Documents and Settings\All Users\Рабочий стол
%CommonProgramsDir% - C:\Documents and Settings\All Users\Главное меню\Программы
%CommonStartMenu% - C:\Documents and Settings\All Users\Главное меню
%CommonFavorites% - C:\Documents and Settings\All Users\Избранное
%CommonStartUp% - C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка
%CommonTemplates% - C:\Documents and Settings\All Users\Шаблоны
%CommonAppData% - C:\Documents and Settings\All Users\Application Data
%SystemDrive% - C:\

Переменные директории (в сокращенном формате):

Переменная / Типичное значение:
%ShortProgramFiles% - C:\Progra~1
%ShortWindowsDir% - C:\Windows
%ShortSystemDir% - C:\Windows\System32
%ShortFontDir% - C:\Windows\Fonts
%ShortCommonFiles% - C:\Progra~1\Common~1
%ShortUserProfile% - C:\Docume~1\%UserName%
%ShortTempDir% - C:\Docume~1\%UserName%\LocalS~1\Temp
%ShortSendTo% - C:\Docume~1\%UserName%\SendTo
%ShortQuickLaunch% - C:\Docume~1\%UserName%\Applic~1\Micros~1\Intern~1\QuickL~1
%ShortMyDocuments% - C:\Docume~1\%UserName%\Моидок~1
%ShortDesktop% - C:\Docume~1\%UserName%\Рабочи~1
%ShortProgramsDir% - C:\Docume~1\%UserName%\Главно~1\Програ~1
%ShortStartMenu% - C:\Docume~1\%UserName%\Главно~1
%ShortFavorites% - C:\Docume~1\%UserName%\Избран~1
%ShortStartUp% - C:\Docume~1\%UserName%\Главно~1\Програ~1\Автоза~1
%ShortTemplates% - C:\Docume~1\%UserName%\Шаблоны
%ShortAppData% - C:\Docume~1\%UserName%\Applic~1
%ShortCommonDocuments% - C:\Docume~1\AllUsers\Докуме~1
%ShortCommonDesktop% - C:\Docume~1\AllUsers\Рабочи~1
%ShortCommonProgramsDir% - C:\Docume~1\AllUsers\Главно~1\Програ~1
%ShortCommonStartMenu% - C:\Docume~1\AllUsers\Главно~1
%ShortCommonFavorites% - C:\Docume~1\AllUsers\Избран~1
%ShortCommonStartUp% - C:\Docume~1\AllUsers\Главно~1\Програ~1\Автоза~1
%ShortCommonTemplates% - C:\Docume~1\AllUsers\Шаблоны
%ShortCommonAppData% - C:\Docume~1\AllUsers\Applic~1
%ShortCurrentDir% - C:\Setup
%ShortInstallPath% - C:\Progra~1\MyComp~1\MyAppl~1
Назад ToTop
L.E. 15.10.2021
Рейтинг@Mail.ru