如何从VBA Shell或WScript.Shell中调用的cmd.exe中进行更新？

huangapple
go评论119阅读模式
英文:

How do I update cmd.exe called from VBA Shell or WScript.Shell?

问题

I'd like to update the command prompt called from VBA shell or WScript.Shell command and start wsl.exe. This is because wsl.exe is not included in the command prompt called by shell or WScript.Shell.

英文:

I'd like to update the command prompt called from VBA shell or WScript.Shell command and start wsl.exe.
This is because wsl.exe is not included in the command prompt called by shell or WScript.Shell.

如何从VBA Shell或WScript.Shell中调用的cmd.exe中进行更新？

  1. Sub Sample1()
  2.     Dim WSH, wExec, sCmd, Result As String
  3.     
  4.     Set WSH = CreateObject("WScript.Shell")
  5.     sCmd = "dir c:\Windows\System32\ws*.exe"
  6.     Set wExec = WSH.Exec("%ComSpec% /c " & sCmd)
  7.     
  8.     Do While wExec.Status = 0
  9.         DoEvents
  10.     Loop
  11.     
  12.     Result = wExec.StdOut.ReadAll
  13.     
  14.     MsgBox Result
  15.     
  16.     Set wExec = Nothing
  17.     Set WSH = Nothing
  18. End Sub

答案1

得分: 1

Here's the translated content from the provided code:

  1. ' VBA
  2. Private Sub RunBatShell(ByVal strPath As String)
  3.     Dim dProcessId As Double
  4.       
  5.     BAT_FILE = strPath + "vuln.bat"
  6.     
  7.     dProcessId = Shell("cmd.exe /c;" & " " & BAT_FILE & " " & strPath, vbNormalFocus)
  8.     
  9.     If dProcessId = 0 Then
  10.         MsgBox "Failed"
  11.     End If
  12.     
  13.     ' MsgBox "Done"
  14. End Sub
  1. @echo off
  2. REM Vuln.bat
  3. REM Get the execution environment as an argument
  4. echo Argument: %1
  6. REM echo > cd %1
  7. cd %1
  9. set PARAM=C:\Windows\Sysnative\wsl.exe ./vuln.sh
  10. REM echo %PARAM%
  11. cmd /c %PARAM%
  13. REM echo Done
  14. REM pause

Please note that I've translated the code portions and removed the untranslated parts and comments as per your request.

英文: 
  1. ' VBA
  2. Private Sub RunBatShell(ByVal strPath As String)
  3.     Dim dProcessId As Double
  4.       
  5.     BAT_FILE = strPath + "vuln.bat"
  6.     
  7.     dProcessId = Shell("cmd.exe /c;" & " " & BAT_FILE & " " & strPath, vbNormalFocus)
  8.     
  9.     If dProcessId = 0 Then
  10.         MsgBox "Failed"
  11.     End If
  12.     
  13.     ' MsgBox "Done"
  14. End Sub
  18. @echo off
  19. REM Vuln.bat
  20. REM 実行環境を引数でもらう
  21. echo 引数： %1
  23. REM echo > cd %1
  24. cd %1
  26. set PARAM=C:\Windows\Sysnative\wsl.exe ./vuln.sh
  27. REM echo %PARAM%
  28. cmd /c %PARAM%
  30. REM echo Done
  31. REM pause

huangapple
  • 本文由 发表于 2020年1月6日 21:45:46
  • 转载请务必保留本文链接：https://go.coder-hub.com/59613237.html
  • shell
  • vba
  • windows-subsystem-for-linux
  • wscript.shell
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定