Как получить Windows имя текущего пользователя ? (в идеале путь к рабочему столу =))
☑
0
Megas
07.11.09
✎
16:51
Как получить Windows имя текущего пользователя ? (в идеале путь к рабочему столу =)) Собственно всё! Хочу из 1с получить "путь" рабочего стола текущего пользователя, что то не получается.
1
Жирафка
07.11.09
✎
16:56
WSH
2
Megas
07.11.09
✎
16:56
WSH ? что это ?
3
Sserj
07.11.09
✎
16:58
%HomePath%\Desctop
4
Rovan
модератор
07.11.09
✎
16:59
(2) ищи описание этого объекта Яндексом :-)
5
Rovan
модератор
07.11.09
✎
16:59
6
Sserj
07.11.09
✎
17:00
+(3) Наврал малость: %HomePath%\Desktop
7
Megas
07.11.09
✎
17:06
Это что то типа КомандаСистемы(%HomePath%\Desktop) ? А как вернуть это имя в 1с ?
8
Megas
07.11.09
✎
17:08
Имя - в смысле результат
9
пента
07.11.09
✎
17:09
WshNetwork = Новый COMОбъект("WScript.Network"); ИмяПользователяWindows = WshNetwork.UserName;
10
Tafa
07.11.09
✎
17:11
Ctrl = Новый COMОбъект("MSScriptControl.ScriptControl"); Ctrl.Language = "vbscript"; Ctrl.AddCode(" |Function SpecialFolder() | Set Shell = CreateObject(""WScript.Shell"") | SpecialFolder = Shell.RegRead(""HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop"") |End Function"); ПолноеИмя = Ctrl.Run("SpecialFolder");
11
Sserj
07.11.09
✎
17:12
WSH=Новый COMobject("wscript.shell"); ИмяПути = "" + WSH.ExpandEnvironmentStrings("%HomePath%")) + "\Desktop";
12
Megas
07.11.09
✎
17:17
(10) (11) Круто! А я то думал нафига это нужно если почти всё можно командой системы сделать =) Спасибо!
13
Mits
07.11.09
✎
17:53
%userprofile%\desktop для английской версии и "%userprofile%\рабочий стол" в русской
14
Megas
07.11.09
✎
17:57
(13) Да я уже понял =) И через "Попытка" на всякий случай =)
15
FN
07.11.09
✎
18:00
(10) а зачем в скрипт? можно проще Шела=СоздатьОбъект("WScript.Shell")...
16
FN
07.11.09
✎
18:01
точнее = Новый COMОбъект
17
kvk
07.11.09
✎
18:04
WSS=Новый COMОбъект("WScript.Shell");
Сообщить(WSS.SpecialFolders().Item("Desktop"));
18
Megas
07.11.09
✎
18:10
(17) Во спасибо... и без "Попытка" обошлось =)
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший