Серый форум — VBS: Доступ к профилю текущего пользователя на Win8.1

Re: VBS: Доступ к профилю текущего пользователя на Win8.1

null@example.com (hlopak) — Thu, 03 Jul 2014 07:19:41 +0000

Rom5 пишет:

А попробуйте запустить некий файл-менеджер с повышением прав (Shift+ПКМ и "Run as administrator") и уже из него - свой скрипт.

Прошу прощения за глупый вопрос.
Забывчивость или лень ..... когда нет доступа к каталогу?
On Error Resume Next работает на Win8.1

Re: VBS: Доступ к профилю текущего пользователя на Win8.1

null@example.com (Rom5) — Wed, 02 Jul 2014 20:33:23 +0000

А попробуйте запустить некий файл-менеджер с повышением прав (Shift+ПКМ и "Run as administrator") и уже из него - свой скрипт.

VBS: Доступ к профилю текущего пользователя на Win8.1

null@example.com (hlopak) — Wed, 02 Jul 2014 10:29:47 +0000

Помогите советом. Привел часть кода да не в нем дело "наверное".
Возникла необходимость выполнить некоторые манипуляции в профиле тек.пользователя но после запуска сценария
на этапе For Each SubFolder In Folder.SubFolders пишет разрешение отклонено код 800A0046.
Что ни будь можно в данном случае сделать чтобы скрипт работал на Win8.1
На Win 7, XP работает.
Или как ни будь добавить разрешения для самого себя (права лок.админа есть) или изменить код?

SearchFold= "Sun"   
FindedFolders =""  

Set WshShell = CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")

homepatch = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")

Set objFolder = objShell.Namespace(homepatch)
Set objFolderItem = objFolder.Self

'путь к профилю текущего пользователя 
Wscript.Echo objFolderItem.Path

call Get_Fold (homepatch) 
call OutputResults() 

sub Get_Fold (strFoldName)
Set Folder = FSO.GetFolder(strFoldName) 
For Each SubFolder In Folder.SubFolders