기 타 CMD를 VBS로 변경해주세요~

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

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.

헛 몇일 만에 봤는데 댓글이 많에요 모두 감사합니다~ 좋은 결과물로 보답 하겠습니다~