Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как определить версию Windows через VBA и проверить права администратора...
 
#1
14.04.2011 22:32:51
Написал программку на VBA и выяснилось интересное - обращение к файлам расположенные в директории C:\Program Files - не работает в Windows 7 если у пользователя нет прав администратора... Объясняется наличием включением "виртуального диска" для пользователей-неадминов...  
как определить версию Windows (включая висту и семерку) и права пользователя?
 
 
 
#2
14.04.2011 22:48:53
Использование Scripting Runtime (FileSystemObject, FSO) решило мне проблему доступа к файлам.
 
 
 
#3
15.04.2011 08:42:26
А рассказать народу? Тема была активна два дня, люди старались, предлагали варианты... DMK67 задал вопрос не появился.  
http://www.sql.ru/forum/actualthread.aspx?tid=843058  
Или пусть варианты кидают, а Вы разберетесь?
 
 
 
#4
16.04.2011 09:15:38
{quote}{login=vikttur}{date=15.04.2011 08:42}{thema=}{post}А рассказать народу? Тема была активна два дня, люди старались, предлагали варианты... DMK67 задал вопрос не появился.  
http://www.sql.ru/forum/actualthread.aspx?tid=843058  
Или пусть варианты кидают, а Вы разберетесь?{/post}{/quote}  
 
Хорош ругаться. Я кроме программирования работаю на 2 работах...  
 
Получилось у меня следующее, смотри файл. Но нет главного как определить семерку. На том форуме не знают. В базе данных по Винде тоже информации нет... Может на этом кто-то пробовал...  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
#5
16.04.2011 12:05:26
Можно поробовать так:  
У меня ХР, проверить не могу  
Public Sub www()  
   Set WshShell = CreateObject("WScript.Shell")  
   Set WshExec = WshShell.Exec("cmd /c ver")  
   Set TextStream = WshExec.StdOut  
   Strd = vbNullString  
   While Not TextStream.AtEndOfStream  
       Strd = Strd & Trim(TextStream.ReadLine()) & vbCrLf  
   Wend  
   MsgBox Application.Clean(Strd)  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#6
16.04.2011 14:14:59
На другом форуме ответы дали. И дали не только мне, но и всей стране.  
Но ответ неполный.  
Повторю файлик с ответами и с тем что удалось наковырять мне:
 
 
 
#7
16.04.2011 15:01:17
{quote}{login=The_Prist}Хочу поделиться с Вами секретом: здесь все работают, помимо зависания на форуме и программирования. Так что дело не в том, кто и как ругается, а в том, что надо уважать чужое время, раз цените свое. Вам на другом форуме дали ответы - не сочтите за труд при дублировании вопроса давать ссылку на ту тему, чтобы здесь люди не тратили попусту свое время, предлагая точно такие же варианты.{/post}{/quote}
 
 
 
#8
16.04.2011 15:02:09
{quote}{login=The_Prist}{date=16.04.2011 12:24}{thema=Re: Re: }{post}{quote}{login=DMK67}{date=16.04.2011 09:15}{thema=Re: }{post}Хорош ругаться. Я кроме программирования работаю на 2 работах...{/post}{/quote}Хочу поделиться с Вами секретом: здесь все работают, помимо зависания на форуме и программирования. Так что дело не в том, кто и как ругается, а в том, что надо уважать чужое время, раз цените свое. Вам на другом форуме дали ответы - не сочтите за труд при дублировании вопроса давать ссылку на ту тему, чтобы здесь люди не тратили попусту свое время, предлагая точно такие же варианты.{/post}{/quote}  
 
Согласен. Про это я както не подумал.
 
 
 
Страницы: 1
Читают тему
Loading...