기 타 CMD를 VBS로 변경해주세요~
2022.03.24 02:57
@echo off
title ::지룡자솔루션::
if not exist %windir%\system32\config\sam (
echo Set UAC = CreateObject^("Shell.Application"^) > "%tmp%\admin.vbs"
echo UAC.ShellExecute "%~0", "", "", "runas", 1 >> "%tmp%\admin.vbs"
wscript.exe "%tmp%\admin.vbs" & del "%tmp%\admin.vbs" & exit)
@setlocal enabledelayedexpansion
pushd %~dp0
고수님들 부탁합니디~
계속 도와 주시면 카톡에서 판매 하는 선물 드리겠씁니다~
댓글 [9]
-
슈머슈마 2022.03.24 07:36
-
슈머슈마 2022.03.24 07:41
지룡자님이 더 잘알고 계시진 않을까? -
지후빠 2022.03.24 07:48
argument 없이 실행하는 것이면 다음처럼하면 될 것 같습니다.
If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
WScript.Quit
End If
CreateObject("Wscript.Shell").CurrentDirectory = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
Wscript.Echo CreateObject("Wscript.Shell").CurrentDirectory
-
슈머슈마 2022.03.24 08:01
참신기 합니다.
지후빠님은 어떻게 이리 잘 아시는지
참고사이트에서는 cmd 를 거치지 않고서는 힘들다고 나와 있는데
잘 아시네요 -
집앞의_큰나무 2022.03.24 08:05
참 신기 합니다.
-
집앞의_큰나무 2022.03.24 08:08
Const TemporaryFolder = 2
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
Dim tempFolder: tempFolder = fso.GetSpecialFolder(TemporaryFolder)
set b=createobject("wscript.shell")
Set objfso = createobject("scripting.filesystemobject")
Set ar= objfso.createtextfile(tempFolder & "archivo.bat",true)
ar.writeline " @echo off "
ar.writeline " title ::지룡자솔루션:: "
ar.writeline " if not exist %windir%\system32\config\sam ( "
ar.writeline " echo Set UAC = CreateObject(""Shell.Application"") "
ar.writeline " echo UAC.ShellExecute ""%~0"", """", """", ""runas"", 1 "
ar.writeline " wscript.exe ""%tmp%\admin.vbs"" " : ar.writeline " del ""%tmp%\admin.vbs"" " : ar.writeline " exit) "
ar.writeline " @setlocal enabledelayedexpansion "
ar.writeline " pushd %~dp0 "
ar.close
b.run tempFolder & "archivo.bat", 1, true
'Create By Salvador F. Krilewski.
-
슈머슈마 2022.03.24 08:14
Vbs ==> cmd 일까요? -
집앞의_큰나무 2022.03.24 08:16
bat ==> vbs 변환 해본것입니다.
옛날에 보리아빠님이 전해준 도구가 있었는데,
하드디스크가 나가는 바람에 날려먹고 다른것으로 해본것인데
정상적으로 안된것 같지만 올려는 봤습니다.
-
지룡자 2022.03.29 14:17
헛 몇일 만에 봤는데 댓글이 많에요 모두 감사합니다~ 좋은 결과물로 보답 하겠습니다~
번호 | 제목 | 글쓴이 | 조회 | 등록일 |
---|---|---|---|---|
[공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
99293 | 윈 도 우| VHDman에서 GHO변환 방법? [4] | 햇님 | 317 | 03-05 |
99292 | 윈 도 우| 최신 윈도우 설치 문제 문의 [2] | 자비 | 359 | 03-05 |
99291 | 하드웨어| 내장하드 소음 왜 이런건가요? [4] | slhyou | 308 | 03-05 |
99290 | 윈 도 우| 원드라이브 "요청 기반 파일 관리" 관련 문의 [16] | 푸른하늘좋 | 125 | 03-05 |
99289 | 하드웨어| 제 보드가 UEFI 환경을 사용할 수 있는 제품인가요?? [12] | 와디노 | 289 | 03-05 |
99288 | 소프트웨어| beyondcompare 파일 정렬.. 문의드립니다. [11] | 혀볶음 | 99 | 03-05 |
99287 | 윈 도 우| Windows 7.vhd 멀티부팅 방법 [8] | 햇님 | 174 | 03-05 |
99286 | 윈 도 우| Asus 메인 보드 바이오스 업데이트시에 Failed 메세지 [6] | 월장 | 220 | 03-05 |
99285 | 윈 도 우| 이상한 폴더가 하루에 하나씩 생기고 있는데 원인을 모르겠... [4] | 클리엔테스 | 477 | 03-05 |
99284 | 윈 도 우| 이더넷의 서브 네임?..., 변경 어떻게 하나요? [3] | 사가르마타 | 140 | 03-05 |
99283 | 윈 도 우| 마이크로소프트 스토어에서 다운 받은 프로그램 실행 파일... [8] | RURUTEAM | 216 | 03-05 |
99282 | 소프트웨어| 레인미터 카렌더 수정 질문합니디. | 사랑이7 | 80 | 03-05 |
99281 | 윈 도 우| 이더넷 명칭?..., 변경 어떻게 하나요? [1] | 사가르마타 | 129 | 03-05 |
99280 | 윈 도 우| 디스크관리에서 여러개의 efi 공간이 있는데 왜 그런건가요?? [5] | iqoo | 236 | 03-05 |
99279 | 소프트웨어| windows7 복제 [1] | 수담 | 483 | 03-04 |
99278 | 윈 도 우| 바탕화면 아이콘이 갑자기 변하네요 [7] | 화랑이 | 478 | 03-04 |
99277 | 윈 도 우| 윈도우 설치 관련 질문드릴게요. [10] | sgain | 469 | 03-04 |
99276 | 소프트웨어| 키보드 매크로 문의 [4] | 번개 | 249 | 03-04 |
99275 | 소프트웨어| rsimagex 이미지 제작 갑자기 않되는 문제 문의 [3] | 한우차돌박 | 276 | 03-04 |
99274 | 소프트웨어| 3D Youtube Downloader를 이용하여 mp3만 다운할 수 있는지요? [1] | joe | 205 | 03-04 |
https://code-examples.net/ko/q/10a8539
참고하면 좋지 안을까 생각합니다.