'//////////////////////////////////////////////////////////////////////////////
'// CreateShortcuts.vbs
'// Version  : 1.0
'// Date     : 02.04.01
'// Funktion : Anlegen der Programm Gruppe FockeDCS und erzeugen des Shortcuts zum Programm StartUp.exe
'//
'//////////////////////////////////////////////////////////////////////////////


dim wshshell, scut, AutoStart,Programme, ProgPath, fso
dim i,txt

'//////////////////////////////////////////////////////////////////////////////
'Hilfsfunktion zum erzeugen von Objekten
Function CO(ObjName)
	on error resume next
	dim obj
  set CO=CreateObject(ObjName)
  if CO is nothing then
		MsgBox "Objekt unbekannt: " + ObjName
		WScript.Quit
	end if
end function


'
'//////////////////////////////////////////////////////////////////////////////
'main()
'{
set wshshell=CO("WScript.Shell")
set fso=CO("Scripting.FileSystemObject")

AutoStart=wshshell.SpecialFolders(3)
Programme=wshshell.SpecialFolders(2)
ProgPath=Programme + "\FockeDCS"

if not fso.FolderExists(ProgPath) then
	call fso.CreateFolder(ProgPath)
end if

'Links einrichten
set scut=wshshell.CreateShortcut(ProgPath +"\Configure Focke Access Sever.lnk")
scut.TargetPath="c:\FockeTools\cfg\fdas_cfg.exe"
scut.Save

set scut=wshshell.CreateShortcut(ProgPath +"\Configure Focke Data Collection System.lnk")
scut.TargetPath="c:\FockeTools\cfg\fdcs_cfg.exe"
scut.Save

set scut=wshshell.CreateShortcut(ProgPath +"\Additional DCS settings.lnk")
scut.TargetPath="c:\FockeTools\cfg\SetDcsPresets.exe"
scut.Save

set scut=wshshell.CreateShortcut(ProgPath +"\Focke Data Server.lnk")
scut.TargetPath="c:\FockeDCS\fdas.exe"
scut.Save

set scut=wshshell.CreateShortcut(ProgPath +"\Test COM Interface.lnk")
scut.TargetPath="c:\FockeTools\Test\DcsTestClient.exe"
scut.Save

set scut=wshshell.CreateShortcut(ProgPath +"\Test DDE Interface.lnk")
scut.TargetPath="c:\FockeTools\Test\TestDDE.exe"
scut.Save

set scut=wshshell.CreateShortcut(ProgPath +"\Test TCP Interface.lnk")
scut.TargetPath="c:\FockeTools\Test\TcpIpClient.exe"
scut.Save
'}
'MsgBox "Shortcuts eingerichtet"