.NET 4.x Как запустить команду от имени администратора - Visual Basic .NET

Формулировка задачи:

Нужно запускать комнаты в программе Которая будет работать на разных ОС от XP - до 10 Да и еще многие на windows Не ставят пароля - так что можно только узнать имя пользователя - админа пример команд : defrag c: /a - дефрагментация netsh advfirewall set allprofiles state on - запуск команда для брандмауэра заблокировать все порты netsh advfirewall firewall add rule name="BLOCK" dir=out interface=any action=block Есть такой пример но я не понял как его реализовать для команд:

 Process.Start(New ProcessStartInfo() With {.FileName = "cmd.exe", .Arguments = "/c dir & pause", .Verb = "runas"})

Если кто знает помогите очень надо !

Решение задачи: «.NET 4.x Как запустить команду от имени администратора»

textual
                            Листинг программы 
                        

                            NotInheritable Class DisableFsRedirection
    Implements IDisposable
 
    Declare Function Wow64DisableWow64FsRedirection Lib "kernel32.dll" (ByRef ptr As IntPtr) As Boolean
    
    Declare Function Wow64RevertWow64FsRedirection Lib "kernel32.dll" (ptr As IntPtr) As Boolean
    
    <ThreadStatic> _
    Dim _oldValue As IntPtr
    <ThreadStatic> _
    Dim _revert As Boolean
 
    Public Sub New()
        _oldValue = IntPtr.Zero
        Try
            _revert = Wow64DisableWow64FsRedirection(_oldValue)
        Catch ex As EntryPointNotFoundException
            GC.SuppressFinalize(Me)
        End Try
    End Sub
 
    Sub Finalize()
        Dispose(False)
    End Sub
    
    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
    End Sub
    
    Sub Dispose(disposing As Boolean)
        If disposing Then
            GC.SuppressFinalize(Me)
        End If
        
        If _revert Then
            Wow64RevertWow64FsRedirection(_oldValue)
            _oldValue = IntPtr.Zero
            _revert = False
        End If
    End Sub
 
End Class
                        