Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Код не работает, когда включен UAC

Закрытая тема
Настройки темы
Любой язык - Код не работает, когда включен UAC

Забанен


Сообщения: 25
Благодарности: 0

Профиль | Цитировать


Iska, я наслышан о Вас, что вы профессиональный программист, мне нужна ваша помощь, надеюсь, что не оставите это письмо безответным!
у меня есть код вот с таким содержимым:
но он не работает когда включен UAC, стоит мне отключить ее как все работает отлично.
Но каждый раз отключать UAC и перезагрузить ПК не вариант!!((
Можете помочь с решением этого вопроса без отключения UAC??!

FileOut = "Z:\Box_Out\fileout.txt"

Set objWMI = GetObject("winMgmts:\\.\Root\CIMV2:Win32_OperatingSystem")
Set colWMI = objWMI.Instances_

txt = ""

Set objNet = CreateObject("WScript.Network")
outtxt = "ComputerName" + vbTab + objNet.ComputerName + vbCrLf

For Each objOS In colWMI
txt = txt + "Caption" + vbTab + vbTab + objOS.Caption + vbCrLf
txt = txt + "Version" + vbTab + vbTab + objOS.Version + vbCrLf
txt = txt + "OSArchitecture" + vbTab + objOS.OSArchitecture + vbCrLf
outtxt = outtxt + txt
txt = txt + vbCrLf

txt = txt + "BootDevice" + vbTab + objOS.BootDevice + vbCrLf
txt = txt + "BuildNumber" + vbTab + objOS.BuildNumber + vbCrLf
txt = txt + "BuildType" + vbTab + vbTab + objOS.BuildType + vbCrLf
txt = txt + "CodeSet" + vbTab + vbTab + objOS.CodeSet + vbCrLf
txt = txt + "CountryCode" + vbTab + objOS.CountryCode + vbCrLf
txt = txt + "InstallDate" + vbTab + vbTab + Left(objOS.InstallDate, 8) + vbCrLf
txt = txt + "NumberOfLicensedUsers" + vbTab + CStr(objOS.NumberOfLicensedUsers) + vbCrLf
txt = txt + "Organization" + vbTab + objOS.Organization + vbCrLf
txt = txt + "OSLanguage" + vbTab + CStr(objOS.OSLanguage) + vbCrLf
txt = txt + "OSProductSuite" + vbTab + CStr(objOS.OSProductSuite) + vbCrLf
txt = txt + "OSType" + vbTab + vbTab + CStr(objOS.OSType) + vbCrLf
txt = txt + "Primary" + vbTab + vbTab + CStr(objOS.Primary) + vbCrLf
txt = txt + "RegisteredUser" + vbTab + objOS.RegisteredUser + vbCrLf
txt = txt + "SerialNumber" + vbTab + objOS.SerialNumber + vbCrLf
Next

MsgBox txt
MsgBox outtxt

With CreateObject("Scripting.FileSystemObject").CreateTextFile(FileOut, True)
.Write outtxt
.Close
End With

Отправлено: 19:58, 25-02-2020

 

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


nasha, а) я давно уже вообще не программист (не то что «профессиональный» ); б) старайтесь более внятно излагать свои мысли; в) соблюдайте Правила конференции и её отдельных разделов (в частности — именование тем); г) научитесь уже пользоваться тегами BBCode.

Цитата nasha:
с решением этого вопроса без отключения UAC??! »
Планировщик заданий позволяет этого достигнуть: Упрощаем запуск приложений в Windows от имени администратора без отключения UACСпособ №4 - упрощаем запуск для избранных приложений при помощи планировщика заданий ( запрос UAC не отображается ).

Отправлено: 20:19, 25-02-2020 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Забанен


Сообщения: 25
Благодарности: 0

Профиль | Цитировать


Iska, скажите,пожалуйста. а можно все эти действия проделать через vbs?!
Ото я немного растерялся почитав сколько всего нужно кликать и открывать мышкой...((

Отправлено: 20:24, 25-02-2020 | #3


Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Вот решение, но придётся перегружать комп

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Отправлено: 20:40, 25-02-2020 | #4


Забанен


Сообщения: 25
Благодарности: 0

Профиль | Цитировать


megaloman, я этот метод знаю, но проблема в том что он перезагрузится а этого не нужно!!!
Есть возможность обойти перезагрузки или обход uac?!

Отправлено: 20:49, 25-02-2020 | #5


Аватара для YuS_2

Crazy


Contributor


Сообщения: 1235
Благодарности: 518

Профиль | Отправить PM | Цитировать


megaloman, не рекомендую оказывать помощь данному субъекту, ибо мало того, что невменяем, так ещё и вороват...
Цитата с другого форума:
Цитата:
это не вирус а команда с элементарным содержимым, я вот набрасал код на vbs. он не работает а все потому что включет UAC, А ВЫКЛЮЧАТЬ И ВКЛЮЧАТЬ ЕГО каждый раз
А далее идет завуалированный трехэтажный и код, символ в символ отсюда

-------
scio me nihil scire. Ѫ


Отправлено: 20:56, 25-02-2020 | #6



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Код не работает, когда включен UAC

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Как сделать так, чтобы когда включен Денвер, всегда перекидывало на страницу Денвера? Сергеев Вебмастеру 2 14-09-2016 14:12
Лампочки моргают когда включен свет micro8 Флейм 18 09-04-2016 14:37
Доступ - [решено] Включен UAC для Админа, а не только для пользователей Dis74 Microsoft Windows 7 9 05-09-2015 13:44
Доступ - [решено] Отключен(скрыт) Администратор и включен UAC K'irsan Microsoft Windows Vista 18 04-09-2009 13:29
Доступ - Игра не работает, выдаёт, что возможно включён uac clin Microsoft Windows 7 7 21-08-2009 13:29




 
Переход