92 lines
3.1 KiB
Plaintext
92 lines
3.1 KiB
Plaintext
'-----------------------------------------------------------------------
|
|
' Singularity RDK configuration tool
|
|
' (c) 2008 - Microsoft Corporation
|
|
'-----------------------------------------------------------------------
|
|
|
|
|
|
'-----------------------------------------------------------------------
|
|
' Splash
|
|
|
|
WScript.Echo "------------------------------------------------------------------"
|
|
WScript.Echo "- -"
|
|
WScript.Echo "- S I N G U L A R I T Y -"
|
|
WScript.Echo "- -"
|
|
WScript.Echo "- RDK 2.0 -"
|
|
WScript.Echo "- -"
|
|
WScript.Echo "------------------------------------------------------------------"
|
|
WScript.Echo
|
|
WScript.Echo
|
|
WScript.Echo "This script will configure Singularity RDK build to the"
|
|
WScript.Echo "following location:"
|
|
WScript.Echo
|
|
|
|
|
|
'-----------------------------------------------------------------------
|
|
' Objects
|
|
|
|
set WshShell = WScript.CreateObject("WScript.Shell")
|
|
Set objShell = CreateObject("Shell.Application")
|
|
|
|
|
|
'-----------------------------------------------------------------------
|
|
' Running from this location
|
|
|
|
If WScript.Arguments.Count = 1 Then
|
|
runningFrom = WScript.Arguments(0)
|
|
Else
|
|
runningFrom = WshShell.CurrentDirectory
|
|
End If
|
|
|
|
WScript.Echo chr(9) & runningFrom
|
|
|
|
|
|
'-----------------------------------------------------------------------
|
|
' Wait for input
|
|
|
|
WScript.Echo
|
|
WScript.Echo "Press ENTER to start..."
|
|
WScript.StdIn.Read(1)
|
|
|
|
|
|
|
|
'-----------------------------------------------------------------------
|
|
WScript.Echo
|
|
WScript.Echo
|
|
|
|
'-----------------------------------------------------------------------
|
|
' Determine desktop location
|
|
|
|
Set objFolder = objShell.Namespace(&H0)
|
|
Set objFolderItem = objFolder.Self
|
|
desktop = objFolderItem.Path
|
|
CreateIcon desktop
|
|
|
|
Set objFolder = objShell.Namespace(&H17)
|
|
Set objFolderItem = objFolder.Self
|
|
programs = objFolderItem.Path
|
|
CreateIcon programs
|
|
|
|
|
|
|
|
Sub CreateIcon(base)
|
|
On Error Resume Next
|
|
'-----------------------------------------------------------------------
|
|
' Add build icon to desktop
|
|
set oShellLink = WshShell.CreateShortcut(base & "\Singularity RDK 2.0.lnk")
|
|
'Define where you would like the shortcut to point to. This can be a program, Web site, etc.
|
|
oShellLink.TargetPath = "%windir%\system32\cmd.exe"
|
|
oShellLink.Arguments = "/k " & Chr(34) & "base\setenv.cmd" & Chr(34)
|
|
oShellLink.WindowStyle = 1
|
|
'Define what icon the shortcut should use. Here we use the explorer.exe icon.
|
|
oShellLink.IconLocation = runningFrom & "\singularity.ico"
|
|
oShellLink.Description = "Singularity environment build window"
|
|
oShellLink.WorkingDirectory = runningFrom
|
|
oShellLink.Save
|
|
|
|
If Err <> 0 Then
|
|
WScript.Echo
|
|
WScript.Echo "*** ERROR: A problem occurred while creating the shortcut."
|
|
WScript.Echo chr(9) & "Please make sure you ran this program with administrator privileges."
|
|
WScript.Echo
|
|
End If
|
|
End Sub |