Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2013-12-01 21:12:02 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:39
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 824
Рейтинг: 137
#2: 2013-12-02 20:05:34 ЛС | профиль | цитата
Сначала нужно программу запустить от имени Админа, а из нее уже cmd.exe.
Поищи на на форуме компонент AdminApp - позволяет запускать программу с повышенными правами.
Установи его в HiAsm, размести на схеме, после компиляции программа будет запрашивать права Админа.

Пример:code_32504.txt
карма: 1

0
файлы: 1code_32504.txt [349B] [412]
Гость
Ответов: 17029
Рейтинг: 0
#3: 2013-12-03 21:08:53 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:39
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2013-12-03 21:09:41 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:39
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2013-12-03 21:40:25 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:39
карма: 0

0
Ответов: 824
Рейтинг: 137
#6: 2013-12-04 11:56:18 ЛС | профиль | цитата
95.167.60.101 писал(а):
code_32514.txt

Последний раз, когда я использовал этот IC, у меня система упала....
------------ Дoбавленo в 11.56:
213.87.248.33 писал(а):
А как добавить в hiasm новые компоненты?

Поиск по форуму!
карма: 1

0
Ответов: 578
Рейтинг: 14
#7: 2013-12-17 07:55:16 ЛС | профиль | цитата
а запустить например appwiz.cpl таким же образом не получится?
cmd.exe /C C:Windowssystem32appwiz.cpl не работает
карма: 0

0
Ответов: 824
Рейтинг: 137
#8: 2013-12-17 13:17:57 ЛС | профиль | цитата
GanjaKyp писал(а):
а запустить например appwiz.cpl таким же образом не получится?
cmd.exe /C C:Windowssystem32appwiz.cpl не работает

Все получается
code_32623.txt
карма: 1

0
файлы: 1code_32623.txt [368B] [428]
Ответов: 578
Рейтинг: 14
#9: 2013-12-17 13:26:42 ЛС | профиль | цитата
я имею ввиду от имени другого пользователя с помощью IC который предложили выше code_32624.txt
карма: 0

0
файлы: 1code_32624.txt [4KB] [395]
Ответов: 824
Рейтинг: 137
#10: 2013-12-17 13:37:52 ЛС | профиль | цитата
GanjaKyp писал(а):
я имею ввиду от имени другого пользователя
Ах вон оно че...!!!! А зачем запускать аплеты панели управления от имени другого пользователя?

Ну, возможно както так:
runas /user:computer_or_domain_nameuser_name "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl"
карма: 1

0
Ответов: 578
Рейтинг: 14
#11: 2013-12-17 13:52:16 ЛС | профиль | цитата
чтобы не заходить под админом ради установки датывремени или для удаления программ
а runas разве есть на windows xp?
------------ Дoбавленo в 13.52:
оказывается есть, не знал
карма: 0

0
Ответов: 4724
Рейтинг: 525
#12: 2013-12-17 14:30:11 ЛС | профиль | цитата
GanjaKyp, попробуй этим code_32625.txt там точка для параметров добавлена
карма: 6
1
файлы: 1code_32625.txt [3.5KB] [443]
Голосовали:GanjaKyp
Ответов: 578
Рейтинг: 14
#13: 2013-12-17 14:46:38 ЛС | профиль | цитата
[b]andrestudio[/b], вообще перестало запускаться
Add(InlineCode,6306845,511,147){
WorkPoints=#71:doRunAsExt=запуск программы от учётной записи, имя файла *.exe в потоке|
EventPoints=#21:onLog=Вывод сообщений|
DataPoints=#14:UserName=Логин|15:Password=Пароль|12:Domain=Домен|21:CommandLine=Параметры|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses kol,windows, Share,Debug;|0:|48:function CreateProcessWithLogonW(user:pwidechar;|50: domain:pwidechar;|50: passw:pwidechar; |47: flags: DWORD; |62: lpApplicationName: PwideChar;|58: lpCommandLine: PwideChar;|57: dwCreationFlags: DWORD; |56: lpEnvironment: Pointer;|64: lpCurrentDirectory: PWideChar; |67: const lpStartupInfo: TStartupInfo;|120: var lpProcessInformation: TProcessInformation): BOOL; stdcall; external 'advapi32.dll';|0:|77:function runas(username, password, domain, strline, command: string): string;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|23: //Command: string;|59: UserName,Password,Domain,CommandLine,onLog :THI_Event;|50: procedure doRunAsExt(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|77:function runas(username, password, domain, strline, command: string): string;|3:var|19: si: tstartupinfo;|26: pi: tprocessinformation;|72: puser, ppass, pdomain, pprogram, pcomandline: array [0..255] of wchar;|19: lasterror: dword;|23: resultstring: string;|5:begin|30: zeromemory(@si, sizeof(si));|20: si.cb:=sizeof(si);|30: zeromemory(@pi, sizeof(pi));|0:|41: stringtowidechar(username, puser, 255);|41: stringtowidechar(password, ppass, 255);|41: stringtowidechar(domain, pdomain, 255);|43: stringtowidechar(command, pprogram, 255);|46: stringtowidechar(strline, pcomandline, 255);|2: |32: createprocesswithlogonw(puser,|34: pdomain,|32: ppass,|50: 1, //logon_with_profile,|35: pprogram,|45: pcomandline, //nil,|76: create_default_error_mode or create_new_console or|78: create_new_process_group or create_separate_wow_vdm,|30: nil,|30: nil,|29: si,|30: pi);|0:|26: lasterror:=getlasterror;|19: case lasterror of|31: 0: resultstring:='success';|39: 86: resultstring:='wrong password';|53: 1326: resultstring:='wrong username or password';|66: 1327: resultstring:='logon failure. user account restriction';|114: 1385: resultstring:='logon failure. the user has not been granted the requested logon type at this computer.';|38: 2: resultstring:='file not found';|37: 5: resultstring:='access denied';|6: else|46: resultstring:='error '+int2str(lasterror);|6: end;|23: result:=resultstring;|4:end;|0:|33:procedure THiAsmClass.doRunAsExt;|53:var login,pass,strdomain,command,strline,log: string;|16: data: TData;|5:begin|26: command := ToString(dt);|40: login := ReadString(data,UserName,'');|40: pass := ReadString(data,Password,'');|43: strdomain := ReadString(data,Domain,'');|46: strline := ReadString(data,CommandLine,'');|57: log := runas(login, pass, strdomain, strline, command);|25: _hi_OnEvent(onLog,log);|4:end;|4:end.|
link(onLog,13433728:doMessage,[])
link(UserName,13421900:Text,[])
link(Password,12880259:Text,[])
link(CommandLine,16469127:Text,[])
}
Add(Button,9513141,420,147)
{
Left=63
Top=63
Data=String(cmd.exe)
link(onClick,6306845:doRunAsExt,[])
}
Add(VisualStrings,13421900,511,42)
{
Lines=#3:123|
}
Add(VisualStrings,12880259,518,70)
{
Lines=#3:123|
}
Add(VisualStrings,16469127,532,105)
{
Lines=#33:/C C:\Windows\system32\appwiz.cpl|
Width=200
}
Add(Message,13433728,567,147)
{
}



карма: 0

0
Ответов: 4724
Рейтинг: 525
#14: 2013-12-17 14:51:43 ЛС | профиль | цитата
кстати проблем нет особых для запуска аплёта под админом недокументированный ключ /separate т.е делай ярлык "explorer /separate" и запускай от админа, вся панель управления доступна.
------------ Дoбавленo в 14.51:
Вместо домена имя компа, слешь "" заменить на c"\"
карма: 6
0
Гость
Ответов: 17029
Рейтинг: 0
#15: 2013-12-17 15:39:35 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:40
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)