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.
47 lines
1.5 KiB
Plaintext
47 lines
1.5 KiB
Plaintext
2 years ago
|
'$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
|