bcdedit.exe -set TESTSIGNING ON

If "x64" and "вистоподобное" then
  If (подписанный драйвер)or(режим Disable Driver Signature Enforcement ) or(Test Mode)  then
     Идем и выполняем программу
  else
     msgbox "Ну ты попал!И нужна тебе эта 64-битная виста? _
          Можешь рвать на себе волосы но у тебя 3 варианта: _
          1)Disable Driver Signature Enforcement 2)Test Mode 3) Exit"
     select case Ваш выбор
     case "Хочу test mode":
           Shell ("bcdedit.exe -set TESTSIGNING ON"), vbhide
           Хотите перегрузить компьютер прямо сейчас?
     case  "Хочу Disable Driver Signature... "
           Хотите перегрузить компьютер прямо сейчас и не забыть нажать F8 ?
     case "Мне плохо...Я расстроен и уже ничего не хочу...Пошел копить бабки и подписывать _
          ваш драйвер, хочу вернуться на XP, на x86, и т.п...."
            exit sub
  endif
else
     нет проблем
endif

   If IsWinVista Then
        'извлекаем текущие параметры загрузки из реестра в переменную SystemBootStateValue
        'ветка HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control параметр SystemStartOptions (REG_SZ)
        SystemBootStateValue = GetSystemBootStateValue
        If InStr(SystemBootStateValue, "/TESTSIGNING") >  0  Then
            LabelTestsigning.Caption = "ON"
            TestsigningON.Enabled = False
            TestsigningOFF.Enabled = True
        Else
            LabelTestsigning.Caption = "OFF"
            TestsigningON.Enabled = True
            TestsigningOFF.Enabled = False
        End If
        If InStr(SystemBootStateValue, "/DISABLE_INTEGRITY_CHECKS") >  0  Then
            LabelF8.Caption = "ENABLED"
        Else
            LabelF8.Caption = "DISABLED"
        End If
    End If
End Sub

     case "Хочу test mode":
           Shell ("bcdedit.exe -set TESTSIGNING ON"), vbhide

Private Declare Function GetSystemWow64Directory Lib "Kernel32.dll" _
Alias "GetSystemWow64DirectoryA" (ByVal lpBuffer As String, ByVal uSize As Long) As Long
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

         Shell ("<system32Path>\cmd.exe /c bcdedit.exe -set TESTSIGNING ON"), vbhide
          Shell ("<sysWOW64Path>\cmd.exe /c bcdedit.exe -set TESTSIGNING ON"), vbhide
 

Private Sub TestsigningON_Click()
    Dim tempDrive As String
    If (Not (IsWinVista)) Then Exit Sub
    If Is64bit Then
        tempDrive = FreeDrive
        'GetSystemDir это system32-полный путь без черточки на конце
        ShellAndContinue "subst.exe " & tempDrive & " " & Chr( 34 ) & GetSystemDir & Chr( 34 ), vbHide
        ShellAndContinue tempDrive & "\cmd.exe /c bcdedit /set TESTSIGNING ON", vbHide
        ShellAndContinue "subst.exe " & tempDrive & " /d", vbHide
    Else
        ShellAndContinue "cmd.exe /c bcdedit /set TESTSIGNING ON", vbHide
    End If
    SetupPromptReboot ByVal  0 &, Me.hWnd,  0 
End Sub

Declare Function GetDriveType _
    Lib "kernel32" Alias "GetDriveTypeA" ( _
        ByVal nDrive As String) _
    As Long

Function FreeDrive() As String
    Dim DriveNum As String    'To cycle through drive letters in order
    Dim DriveType As Long     'To hold the type of drive it is
    DriveNum =  64               'Prime the variable to be used in the loop
    Do
        DriveNum = DriveNum +  1    ' start at drive zero.
        DriveType = GetDriveType(Chr$(DriveNum) & ":\")
        ' If we are past C: and the drive type is indeterminate, exit the Loop
        If DriveType =  1  And DriveNum >  67  Then Exit Do
        Select Case DriveType
            'Case 0: MsgBox Chr$(DriveNum) + ": is An Unknown type"
            'Case 1: MsgBox Chr$(DriveNum) + ": Does Not Exist"
            'Case 2: MsgBox Chr$(DriveNum) + ": is a Removable Drive"
            'Case 3: MsgBox Chr$(DriveNum) + ": is a Fixed Drive"
            'Case 4: MsgBox Chr$(DriveNum) + ": is a Remote Drive"
            'Case 5: MsgBox Chr$(DriveNum) + ": is a CD-ROM Drive"
            'Case 6: MsgBox Chr$(DriveNum) + ": is a RAM Drive"
        End Select
    Loop
    FreeDrive = Chr$(DriveNum) + ":"  'Return the next available drive letter
End Function