![]() |
![]() |
![]() |
|
Как получить 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) Во спасибо... и без "Попытка" обошлось =)
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |