Revision 1880

trunk/scripts/create-admb-mingw-shortcut-32bit.vbs (revision 1880)
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 32-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\mingw32;%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
0 22

  
trunk/scripts/create-admb-mingw-shortcut-64bit.vbs (revision 1880)
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
0 22

  

Also available in: Unified diff