1 Тема от hlopak (изменено: alexii, 2014-07-02 15:29:39)

  • hlopak
  • Участник
  • Неактивен

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

Помогите советом. Привел часть кода да не в нем дело "наверное".
Возникла необходимость выполнить некоторые манипуляции в профиле тек.пользователя но после запуска сценария
на этапе 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

2 Ответ от Rom5

  • Rom5
  • Участник
  • Неактивен

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

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

WBR. Roman

3 Ответ от hlopak (изменено: alexii, 2014-07-03 11:25:15)

  • hlopak
  • Участник
  • Неактивен

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

Rom5 пишет:

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

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