Shell("cmd") Ersatz:zum Start von 64Bit-"cmd"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Eine kleine Erweiterung von mir. Mit Unterscheidung zwischen 32-bit und 64-bit. Und da bei "Shell" das Fenster nicht in den Vordergrund rückt arbeite ich mit ShellExecute.

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                                                       (ByVal hWnd As Long, _
                                                        ByVal lpOperation As String, _
                                                        ByVal lpFile As String, _
                                                        ByVal lpParameters As String, _
                                                        ByVal lpDirectory As String, _
                                                        ByVal nshowcmd As Long) As Long
  
Public Declare PtrSafe Function Wow64EnableWow64FsRedirection Lib "kernel32.dll" _
                                                       (ByVal Enable As Boolean) As Boolean
    
Public Const SW_HIDE = 0            'Alternative: vbHide, Fenster versteckt öffnen 
Public Const SW_MAXIMIZE = 3        'Alternative: vbMaximizedFocus, Fenster maximiert öffnen 
Public Const SW_MINIMIZE = 6        'Alternative: vbMinimizedNoFocus, Fenster minimiert öffnen 
Public Const SW_RESTORE = 9
Public Const SW_SHOW = 5
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2   'Alternative: vbMinimizedFocus 
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_SHOWNOACTIVATE = 4  'Alternative: vbNormalNoFocus 
Public Const SW_SHOWNORMAL = 1      'Alternative: vbNormalFocus 

  
Public Sub RunCMD64()

 Dim objWMI        As Object
 Dim objWMIe       As Object
 Dim obj           As Object
 Dim sql           As String
 Dim strSystemTyp  As String
 Dim strComputer   As String
 Dim varSystemTyp  As Variant
 
 strComputer = "."
 
 Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" _
                        & strComputer & "\root\cimv2")
  
 sql = "SELECT * FROM Win32_ComputerSystem"
 
 Set objWMIe = objWMI.ExecQuery(sql)
 
 For Each obj In objWMIe
     strSystemTyp = obj.SystemType & vbCrLf
 Next obj
 
  varSystemTyp = Split(strSystemTyp, "-")
  
  
  If varSystemTyp(0) = "x64" Then
     Call Wow64EnableWow64FsRedirection(False)
     Call ShellExecute(0, "open", "C:\Windows\system32\cmd.exe", _
                       vbNullString, vbNullString, SW_SHOW)
     Call Wow64EnableWow64FsRedirection(True)
  Else
     Call ShellExecute(0, "open", "C:\Windows\SysWOW64\cmd.exe", _
                       vbNullString, vbNullString, SW_SHOW)
  End If
  
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hallo René,
32 / 64 Bit Unterscheidung mache ich so (ab Office 2010):

Option Explicit

Private Declare PtrSafe Function GetProcAddress Lib "kernel32.dll" ( _
    ByVal hModule As LongPtr, _
    ByVal lpProcName As String) As LongPtr
Private Declare PtrSafe Function GetModuleHandleA Lib "kernel32.dll" ( _
    ByVal lpModuleName As String) As LongPtr
Private Declare PtrSafe Function IsWow64Process Lib "kernel32.dll" ( _
    ByVal hProcess As LongPtr, _
    ByRef Wow64Process As LongPtr) As Long
Private Declare PtrSafe Function GetCurrentProcess Lib "kernel32.dll" () As LongPtr

Public Sub Test()
    Dim lngptrHandle As LongPtr, lngptrAddress As LongPtr, lngptrIsWow64 As LongPtr
    lngptrHandle = GetModuleHandleA("kernel32.dll")
    lngptrAddress = GetProcAddress(lngptrHandle, "IsWow64Process")
    If lngptrAddress > 0 Then Call IsWow64Process(GetCurrentProcess, lngptrIsWow64)
    If lngptrIsWow64 = 0 Then
        MsgBox "32"
    Else
        MsgBox "64"
    End If
End Sub

WMI ist mir zu langsam.
Gruß
Nepumuk

' Disable Redirection Public Declare PtrSafe Function Wow64DisableWow64FsRedirection Lib "kernel32.dll" ( _ ByVal Enable As Boolean) As Boolean ' Revert Disable (re-Enable) Redirection Public Declare PtrSafe Function Wow64RevertWow64FsRedirection Lib "kernel32.dll" ( _ ByVal Enable As Boolean) As Boolean Public lngPid As Long ' PID des Command Processors ' Starts a 64Bit Command Process out of a 32Bit Office Environment Sub Start64BitCmdProcess() Dim vRedirected If lngPid > 0 Then MsgBox "The 64Bit Command Process is already running!", vbCritical Exit Sub End If vRedirected = Wow64DisableWow64FsRedirection(vRedirected) lngPid = Shell("cmd", vbNormalFocus) vRedirected = Wow64RevertWow64FsRedirection(vRedirected) If lngPid > 0 Then MsgBox "Command Process started as PID " & lngPid End Sub ' Stopps the started Command Process based on its PID Sub Stop64BitCmdProcess() If lngPid > 0 Then Shell ("taskkill /PID " & lngPid) MsgBox "Command Process " & lngPid & " killed!" lngPid = 0 End If End Sub

Beliebteste Forumthreads (12 Monate)

Shell("cmd") Ersatz:zum Start von 64Bit-"cmd"

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Shell("cmd") Ersatz:zum Start von 64Bit-"cmd"

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread