기 타 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
헛 몇일 만에 봤는데 댓글이 많에요 모두 감사합니다~ 좋은 결과물로 보답 하겠습니다~
https://code-examples.net/ko/q/10a8539
참고하면 좋지 안을까 생각합니다.