You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
70 lines
2.0 KiB
Plaintext
70 lines
2.0 KiB
Plaintext
2 years ago
|
'//////////////////////////////////////////////////////////////////////////////
|
||
|
|
'// 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"
|