Скрипт, который будет при запуске программы сверять с именем пользователя

@nefalems · Регистрация: 22.02.2020

Студворк — интернет-сервис помощи студентам

Добрый день форумчане.
Есть компьютер. Он не в домене.
На нем есть 2 пользователя Админ И Локал
Есть программа которая запускается при помощи vbs скрипта и при этом грохает процесс эксплорер.
Он лежит в автологе груповых пользователей.

Visual Basic
1
2
3
Set objShell = CreateObject("WScript.Shell")
objShell.Run "taskkill /f /IM explorer.exe"
objShell.Run """C:\Program Files\nomer\ne.exe"""

Собственно вопрос.
Можно ли, доделать его таким образом, что бы он при запуске у пользователя Админ не запускался.
Пробовал вот это добавить, но это я так понял будет работать если машина в домене.

Visual Basic
1
2
3
4
5
6
7
8
Dim strUserDN, objSysInfo
set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objSysInfo = CreateObject("ADSystemInfo")
 
strUserDN = objSysInfo.userName
Set UserObj = GetObject("LDAP://" & strUserDN)
MsgBox "User '" & WshNetwork.username & "' connect to " & WshNetwork.computername

Заранее спасибо.
За помощь.

@Dmitrii · 05.03.2020, 19:11

Visual Basic
1
2
3
If StrComp("Админ", CreateObject("WScript.Network").UserName, vbTextCompare) <> 0 Then
    'здесь - основной код сценария
End If

@nefalems · 05.03.2020, 20:39 **[ТС]**

Правильно ли я вас понял? Вот так должен выглядеть скрипт? Если да, то он не отрабатывает. Приложение все равно запускается. (

Visual Basic
1
2
3
4
5
If StrComp("Админ", CreateObject("WScript.Network").UserName, vbTextCompare) <> 0 Then
    Set objShell = CreateObject("WScript.Shell")
objShell.Run "taskkill /f /IM explorer.exe"
objShell.Run """C:\Program Files\nomer\ne.exe"""
End If

Добавлено через 54 минуты
А нет, ошибся! Все работает. Спасибо!

FlasherX · 05.03.2020, 20:51

Проще сразу для одного юзера установить выполнение.
Кстати, <> 0 писать необязательно.

@nefalems · 06.03.2020, 00:44 **[ТС]**

Еще раз спасибо!
А как сделать, что бы выполнение было для одного пользоватлея?

Добавлено через 10 минут

JavaScript
1
If StrComp("Админ", CreateObject("WScript.Network").UserName, vbTextCompare) <> 0 Then

Если не трудно, я понял, что данная строка выбирает пользователя который указан и на нем останавливает дальнейшее действие, верно?

FlasherX · 06.03.2020, 07:36

Сообщение от nefalems

А как сделать, что бы выполнение было для одного пользоватлея?

Закинуть в shell:Startup (лучше в виде lnk) или в планировщике создать задачу с триггером для сеанса выбранного юзера.

Сообщение от nefalems

верно?

Строка не выбирает пользователя, а сравнивает имя текущей учётки с той, что задана для сравнения. И в случае несовпадения выполняет код.

@nefalems · 06.03.2020, 09:52 **[ТС]**

Спасибо огромное, за разъяснение и помощь!

Добавлено через 13 минут
Спасибо огромное, за разъяснение и помощь!
shell:startup не подходит, так как он долго выполняется.
Задержка после входа в систему и выполнение составляет порядка секунд 30, за это время можно наворотить дел)
А вот про планировщик я не подумал.
Спасибо!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

FlasherX 6972 / 2865 / 1101 Регистрация: 06.06.2017 Сообщений: 9,735
	05.03.2020, 20:51
	Проще сразу для одного юзера установить выполнение. Кстати, `<> 0` писать необязательно. 1

@nefalems 0 / 0 / 0 Регистрация: 22.02.2020 Сообщений: 9
	06.03.2020, 09:52 [ТС]
	Спасибо огромное, за разъяснение и помощь! Добавлено через 13 минут Спасибо огромное, за разъяснение и помощь! shell:startup не подходит, так как он долго выполняется. Задержка после входа в систему и выполнение составляет порядка секунд 30, за это время можно наворотить дел) А вот про планировщик я не подумал. Спасибо! 0

Скрипт, который будет при запуске программы сверять с именем пользователя

Решение