기 타 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
고수님들 부탁합니디~
계속 도와 주시면 카톡에서 판매 하는 선물 드리겠씁니다~
후원하기💕 논스탑 솔루션 1210💕 원격부팅 솔루션 1111💕 리커버리 솔루션 1231💕 원격포맷 솔루션 1210💕 자녀안심 솔루션 0131💕
댓글 [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 | - | - |
| 93162 | 기 타| 국민공유기 ASUS TM-AC1900 펌웨어 업데이트 [8] | 가성비연구 | 1179 | 03-25 |
| 93161 | 윈 도 우| 윈도우 업데이트 문의 드립니다. [8] | 뷰티블마인 | 428 | 03-25 |
| 93160 | 하드웨어| 메모리 인식 오류 질문 드립니다 [2] | 이어도 | 288 | 03-25 |
| 93159 | 윈 도 우| 윈도우 변경한 설정 레지스트리 값 확인, 추출 방법? [5] | 마집사 | 430 | 03-25 |
| 93158 | 윈 도 우| 노트북 바이오스 진입 [4] | 풍웡 | 766 | 03-25 |
| 93157 | 소프트웨어| Microsoft Edge 제거 문의? [1] | LittleHeav | 525 | 03-25 |
| 93156 | 윈 도 우| 윈도우pe 관련 문의드립니다. [1] | pinnk | 328 | 03-25 |
| 93155 | 소프트웨어| AirExplorer와 RaiDrive의 한글 깨짐 현상 [8] | 그루터기 | 428 | 03-25 |
| 93154 | 윈 도 우| 백업이 가능할까요? [2] | 언덕위풍차 | 277 | 03-25 |
| 93153 | 기 타| [수정] 레인미터 휴지통 스킨을 받고 싶은데요.- 사진 첨부 [2] | 토니™짱야 | 408 | 03-25 |
| 93152 | 윈 도 우| nvme설치 윈도우 멀티부팅 문의 [10] | 아담아 | 502 | 03-25 |
| 93151 | 기 타| 배치파일 문의 드립니다 [3] | 단테9 | 280 | 03-24 |
| 93150 | 기 타| 이거때문에 정말 미치겠어요 [6] | dllvto0124 | 906 | 03-24 |
| 93149 | 윈 도 우| win11 마우스 우클릭 그림판 바로 연결 가능할까요? [7] | 잠꾸러기머 | 633 | 03-24 |
| 93148 | 윈 도 우| Microsoft Edge 설치 문의 [5] | 뷰티블마인 | 542 | 03-24 |
| » | 기 타| CMD를 VBS로 변경해주세요~ [9] | 지룡자 | 687 | 03-24 |
| 93146 | 윈 도 우| mbr 파티션 삭제 [13] | 현민지 | 786 | 03-24 |
| 93145 | 기 타| 랜섬웨어복구 [2] | 잘부탁드립 | 777 | 03-24 |
| 93144 | 윈 도 우| 죄송합니다...혹시 맥 에 대해 아시는분 계실지요... [4] | 유채아부지 | 463 | 03-23 |
| 93143 | 모 바 일| Windows Subsystem for Android 의 구글플레이스토어에서 ... [3] | brucex | 361 | 03-23 |
https://code-examples.net/ko/q/10a8539
참고하면 좋지 안을까 생각합니다.