GUID = "::{21EC2020-3AEA-1069-A2DD-08002B30309D}"
With CreateObject("WScript.Shell")
Path = .Environment("Process")("COMMANDER_EXE")
If .Environment("System")("PROCESSOR_ARCHITECTURE") = "AMD64" And InStrRev(_
CreateObject("Shell.Application").NameSpace(.Environment("Process")("COMMANDER_PATH")).ParseName(_
CreateObject("Scripting.FileSystemObject").GetFileName(Path)).ExtendedProperty("FileDescription"),32)_
Then .Run GUID Else .Run """" & Path & """ /S /O /L=::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\" & GUID
End With |