기 타 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 | - | - |
| 93152 | 기 타| 배치파일 문의 드립니다 [3] | 단테9 | 279 | 03-24 |
| 93151 | 기 타| 이거때문에 정말 미치겠어요 [6] | dllvto0124 | 903 | 03-24 |
| 93150 | 윈 도 우| win11 마우스 우클릭 그림판 바로 연결 가능할까요? [7] | 잠꾸러기머 | 624 | 03-24 |
| 93149 | 윈 도 우| Microsoft Edge 설치 문의 [5] | 뷰티블마인 | 541 | 03-24 |
| » | 기 타| CMD를 VBS로 변경해주세요~ [9] | 지룡자 | 686 | 03-24 |
| 93147 | 윈 도 우| mbr 파티션 삭제 [13] | 현민지 | 786 | 03-24 |
| 93146 | 기 타| 랜섬웨어복구 [2] | 잘부탁드립 | 775 | 03-24 |
| 93145 | 윈 도 우| 죄송합니다...혹시 맥 에 대해 아시는분 계실지요... [4] | 유채아부지 | 463 | 03-23 |
| 93144 | 모 바 일| Windows Subsystem for Android 의 구글플레이스토어에서 ... [3] | brucex | 355 | 03-23 |
| 93143 | 윈 도 우| VHD에 PE 설치하기 문의드립니다 [5] | 행복한아빠 | 402 | 03-23 |
| 93142 | 소프트웨어| vmware 에 윈도우 설치 후 다른 PC에 복원 [1] | 토르망치 | 299 | 03-23 |
| 93141 | 윈 도 우| 시작메뉴에 검색 인덱싱이 꺼져있습니다 멘트가 나오네요 [5] | 『ⓖⓤⓝ』 | 615 | 03-23 |
| 93140 | 하드웨어| 노트북 스펙 문의 ??? [15] | sdlkjfdf | 376 | 03-23 |
| 93139 | 윈 도 우| USB ChkDsk_GUI 돌리다가 강제종료해 버렸더니???ㅠㅠㅠ [1] | 타천사둘리 | 490 | 03-23 |
| 93138 | 윈 도 우| 랜섬웨어 [4] | 잘부탁드립 | 605 | 03-23 |
| 93137 | 하드웨어| M2.NVME확장카드에.M2장착시 OS설치가능??? [8] | 타천사둘리 | 1017 | 03-23 |
| 93136 | 소프트웨어| 배치파일에서 파워셀 명령어 실행 할수있나요? [1] | 티아코케 | 251 | 03-23 |
| 93135 | 기 타| 웨일 필수프로그램 반복설치 오류 | 술잔3 | 291 | 03-23 |
| 93134 | 기 타| 엣지만 윈포 잡는데 왜 이러나요? [7] | 어쭈 | 570 | 03-23 |
| 93133 | 윈 도 우| 윈도우10 화면보호기 동작오류 문의드립니다 | 현준윤 | 355 | 03-22 |
https://code-examples.net/ko/q/10a8539
참고하면 좋지 안을까 생각합니다.