Запустить BAT-файл из ресурсов

Process.Start("Batneg.bat")

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Process.Start(New ProcessStartInfo() With {.FileName = "cmd.exe", _
                      .Arguments = "/c chcp 1251 & netsh wlan show hostednetwork > SS1.txt" & _
                  "& netsh wlan show hostednetwork setting=security >> SS1.txt & chcp 866" & _
                  "& start SS1.txt & ping -n 2 localhost & del SS1.txt", .Verb = "runas"})
    End Sub

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Process.Start(New ProcessStartInfo() With {.FileName = "cmd.exe", _
                   .Arguments = "cls & @echo off & color(9.0F) & pause >nul", .Verb = "runas"})
    End Sub