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