vbscript从specialfolders启动exe文件

Question

I want to launch an exe that is a messagebox from a specialfolders using vbscript, but I get nothing. this is my code

option explicit
dim shellobj,startup,objShell,objFolder,filesystemobj,installdir,installname
set shellobj = wscript.createobject("wscript.shell")
set filesystemobj = createobject("scripting.filesystemobject")
Set objShell = CreateObject("Shell.Application")
installdir = "%appdata%\Microsoft"
installname = wscript.scriptname
filesystemobj.copyfile wscript.scriptfullname,installdir & installname,true
startup = shellobj.specialfolders("%appdata%\Microsoft") &"\msg.exe"
if filesystemobj.fileexists(startup) Then
  shellobj.run "wscript.exe //B " & chr(34) & startup & chr(34)    
  Wscript.Quit
end if

Answer 1

1. startup = shellobj.specialfolders("%appdata%\\Microsoft") &"\\msg.exe"

   The SpecialFolders property doesn't expand environment variables. You need the ExpandEnvironmentStrings method for that:

    shellobj.ExpandEnvironmentStrings("%APPDATA%\\Microsoft") & "\\msg.exe" 

   The SpecialFolders property must be used like this:

    shellobj.SpecialFolders("APPDATA") & "\\Microsoft\\msg.exe" 

2. if filesystemobj.fileexists(startup) Then

   Since specialfolders("%appdata%\\Microsoft") returns an empty string the value of startup becomes \\msg.exe , which doesn't exist. Thus the statements in the Then branch are never executed.

3. shellobj.run "wscript.exe //B " & chr(34) & startup & chr(34)

   And even if the "\\msg.exe" existed, you cannot run it with wscript.exe . wscript.exe is one of the interpreters for VBScripts. Change that statement to this:

    shellobj.Run Chr(34) & startup & Chr(34), 1, True