@Echo off
 
Echo: [+] Cargando...
SystemInfo.exe 1>"%TEMP%\SystemInfo.tmp" 2>NUL
Type "%TEMP%\SystemInfo.tmp"
 
Pause&Exit

Sub ChangeDriveLetter(SourceDrive, TargetDrive) 
 
    Set WSS = WScript.CreateObject("WScript.Shell")
 
    If Not Right(SourceDrive, 1) = ":" Then
    	SourceDrive = SourceDrive & ":"
    End If
    If Not Right(TargetDrive, 1) = ":" Then
    	TargetDrive = TargetDrive & ":"
    End If
 
    ' Get volume associated to the old drive letter.
    Set Exec  = WSS.Exec("mountvol.exe " & SourceDrive & " /L")
    strVolume = Trim(Exec.StdOut.ReadLine())
    while Exec.Status = 0 : WScript.Sleep(100) : Wend
 
    ' Unmount the drive.
    Set Exec = WSS.Exec("mountvol.exe " & SourceDrive & " /D")
    while Exec.Status = 0 : WScript.Sleep(100) : Wend
 
    ' Mount the drive on the new drive letter.
    Set Exec = WSS.Exec("mountvol.exe " & TargetDrive & " " & strVolume)
    while Exec.Status = 0 : WScript.Sleep(100) : Wend
 
End Sub 

Sub UnmountDrive(DriveLetter) 
 
    Set WSS = WScript.CreateObject("WScript.Shell")
 
    If Not Right(DriveLetter, 1) = ":" Then
    	DriveLetter = DriveLetter & ":"
    End If
 
    ' Unmount the drive.
    Set Exec = WSS.Exec("mountvol.exe " & DriveLetter & " /D")
    while Exec.Status = 0 : WScript.Sleep(100) : Wend
 
End Sub

ChangeDriveLetter "Z", "X"

UnmountDrive "Z"

"cmd.exe /c start notepad.exe" & "&start explorer " & "&exit"

CMD /C "Argumentos"

Start Título Proceso

"CMD.exe" /C " start "" "notepad.exe" & start "" "explorer.exe" "

 
Const StartQuote = " "" "
Const EndQuote   = " """
Const Quote      = """"
Const Quotes     = " """" "
 
Set WSS = WScript.CreateObject("WScript.Shell") 
 
WSS.run WSS.ExpandEnvironmentStrings("""%ComSpec%""" & " /C ") & _
        StartQuote                                             & _
        "start" & Quotes & Quote & "notepad.exe"  & Quote      & _
        " & "                                                  & _
        "start" & Quotes & Quote & "explorer.exe" & Quote      & _
        EndQuote