'$History: RestoreVisiPro.vbs $
'
'*****************  Version 5  *****************
'User: Breitenc     Date: 1.09.04    Time: 16:07
'Updated in $/Bugfix/SaveAndRestore/Skripte
'
'*****************  Version 3  *****************
'User: Breitenc     Date: 10.03.04   Time: 13:32
'Updated in $/Bugfix/SaveAndRestore/Skripte
'Autostart Eintrag f. Focke Tools
'
'*****************  Version 2  *****************
'User: Breitenc     Date: 8.03.04    Time: 16:26
'Updated in $/Bugfix/SaveAndRestore/Skripte
'Autostart-Eintrag wird erzeugt

Dim strResult,Fnct,fso,wshshell

set wshshell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fnct = CreateObject("Install.Functions")

Dim strSystemFolder,strWinFolder,strTempFolder,strPath, strStartMenu, strDesktop,strKey 

'strPath = GetCurrentPath()
strSystemFolder = fso.GetSpecialFolder(1) & "\"
strWinFolder = fso.GetSpecialFolder(0) & "\"
strTempFolder = fso.GetSpecialFolder(2) & "\"
strStartMenu = wshshell.SpecialFolders(2) & "\"
strDesktop = wshshell.SpecialFolders(0) & "\"

Call wshShell.Run("c:\visi\hlinst c:\visi",1,True)

Programs=wshshell.SpecialFolders(2)
set scut = wshshell.CreateShortcut(Programs & "\TwinCAT System\StartUp\Operator System.lnk")
scut.TargetPath = "C:\vtr\visi_tr.exe"
scut.Arguments = ""
scut.Save

If fso.FileExists("c:\FockeTools\StartUp.exe") Then
	Programs=wshshell.SpecialFolders(2)
	set scut = wshshell.CreateShortcut(Programs & "\StartUp\Startup.lnk")
	scut.TargetPath = "c:\FockeTools\StartUp.exe"
	scut.Arguments = ""
	scut.Save
End If