|
Как получить 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) Во спасибо... и без "Попытка" обошлось =)
|
|
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший