Statistics
| Revision:

root / branches / pthreads-737 / scripts / create-admb-shortcut.vbs @ 765

History | View | Annotate | Download (687 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
If Len(WshSysEnv("VS100COMNTOOLS")) > 0 Then
9
  'Create a WshShortcut Object
10
  Set oShellLink = WshShell.CreateShortcut("ADMB (Visual C++ 2010).lnk")
11
  oShellLink.TargetPath = "cmd"
12

    
13
  'Set the additional parameters for the shortcut
14
  oShellLink.Arguments = "/K set ADMB_HOME=%CD%& set PATH=%CD%\bin;%PATH%& call ""%VS100COMNTOOLS%\vsvars32.bat"""
15

    
16
  oShellLink.WorkingDirectory = "%CD%"
17

    
18
  'Save the shortcut
19
  oShellLink.Save
20

    
21
  'Clean up the WshShortcut Object
22
  Set oShellLink = Nothing
23
End If