Statistics
| Revision:

root / trunk / scripts / create-admb-mingw-shortcut-64bit.vbs @ 1880

History | View | Annotate | Download (608 Bytes)

1
'Create a WshShell Object
2
Set WshShell = Wscript.CreateObject("Wscript.Shell")
3

    
4
Set WshSysEnv = WshShell.Environment("SYSTEM")
5

    
6
'Set the Target Path for the shortcut
7

    
8
'Create a WshShortcut Object
9
Set oShellLink = WshShell.CreateShortcut("ADMB Command Prompt (MinGW 64-Bit).lnk")
10
oShellLink.TargetPath = "cmd"
11

    
12
'Set the additional parameters for the shortcut
13
oShellLink.Arguments = "/K set ADMB_HOME=%CD%& set PATH=%CD%\bin;%CD%\utilities\mingw64;%PATH%"
14

    
15
oShellLink.WorkingDirectory = "%CD%"
16

    
17
'Save the shortcut
18
oShellLink.Save
19

    
20
'Clean up the WshShortcut Object
21
Set oShellLink = Nothing