![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Код не работает, когда включен UAC |
|
Любой язык - Код не работает, когда включен UAC
|
Забанен Сообщения: 25 |
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
|
Профиль | Отправить PM | Цитировать nasha, а) я давно уже вообще не программист (не то что «профессиональный»
![]() Цитата nasha:
|
|
Отправлено: 20:19, 25-02-2020 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Забанен Сообщения: 25
|
Iska, скажите,пожалуйста. а можно все эти действия проделать через vbs?!
Ото я немного растерялся почитав сколько всего нужно кликать и открывать мышкой...(( |
Отправлено: 20:24, 25-02-2020 | #3 |
Ветеран Сообщения: 2735
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 20:40, 25-02-2020 | #4 |
Забанен Сообщения: 25
|
megaloman, я этот метод знаю, но проблема в том что он перезагрузится а этого не нужно!!!
Есть возможность обойти перезагрузки или обход uac?! |
|
Отправлено: 20:49, 25-02-2020 | #5 |
Crazy Сообщения: 1235
|
Профиль | Отправить PM | Цитировать megaloman, не рекомендую оказывать помощь данному субъекту, ибо мало того, что невменяем, так ещё и вороват...
Цитата с другого форума: Цитата:
|
|
------- Отправлено: 20:56, 25-02-2020 | #6 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Как сделать так, чтобы когда включен Денвер, всегда перекидывало на страницу Денвера? | Сергеев | Вебмастеру | 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 |
|