url change

snapcontrol.ini

@@ -1,12 +1,12 @@
 ; SNAPCONTROL config file.
-; https://gitea.exabyte.systems/WINDOWS/snapcontrol
+; https://redbeard.ebslan.de/WINDOWS/snapcontrol.git
 ;
 ; This tool creates an image backups of windows machines,
 ; it uses the Drive Snapshot tool by Tom Ehlert Software.
 ; Please support this great tool and buy a license.
 ; http://www.drivesnapshot.de/en/order.htm
 ;
-; Copyright (c) 2019-2021 Michael H.G. Schmidt
+; Copyright (c) 2019-2024 Michael H.G. Schmidt
 ; EMAIL: michael@schmidt2.de
 ; Released under the MIT license.
 ;
@@ -14,7 +14,8 @@
 ;
 
 [BACKUP]
-; path where snapshot.exe and cmail.exe is located ...
+; path where cmail.exe is located ...
+; (snaphot64.exe, this inifile and snapcontrol.exe  must be always located in %WINDIR%!)
 BinPath = c:\tools
 
 ; target PATH examples:

snapcontrol.pb

@@ -7,7 +7,7 @@
 ; LICENSE  : MIT License
 ; AUTHOR   : Michael H.G. Schmidt
 ; EMAIL    : michael@schmidt2.de
-; DATE     : 20230723
+; DATE     : 20240222
 ; ------------------------------------------------------------
 ;
 ; This tool creates an image backups of windows machines,
@@ -28,7 +28,7 @@ EnableGraphicalConsole(0)
 
 Dim filelist$(0)
 
-Global VERSION$="V1.12"
+Global VERSION$="V1.13"
 Global updatesched = 0
 Global dryrun = 0
 Global silentmode = 0
@@ -46,14 +46,11 @@ Global Shutdowncommand$ = "shutdown /s /t 120 /d p:0:0"
 
 ; valid versions for Drive Snapshot we support ...
 NewList DriveSnapshotVersion$()
-  AddElement(DriveSnapshotVersion$())
-  DriveSnapshotVersion$() = "V1.46"
   
+For i = 46 To 55
   AddElement(DriveSnapshotVersion$())
-  DriveSnapshotVersion$() = "V1.47"
-
-  AddElement(DriveSnapshotVersion$())
-  DriveSnapshotVersion$() = "V1.48"
+  DriveSnapshotVersion$() = "V1." + Str(i)
+Next
 
 Procedure Usage()
   PrintN ("usage: snapcontrol.exe [ /S | /I | /V | /D | /? ]")
@@ -150,9 +147,9 @@ Global MailPass$ = Trim(ReadPreferenceString("MailPass",""))
 ; which Drive Snapshot version should be used ?
 arch$ = GetEnvironmentVariable("PROCESSOR_ARCHITECTURE")
 If ( arch$ = "x86" )
-  SnapshotBin$ = BinPath$ + "\snapshot.exe"
+  SnapshotBin$ = "c:\windows\snapshot.exe"
 Else
-  SnapshotBin$ = BinPath$ + "\snapshot64.exe"
+  SnapshotBin$ = "c:\windows\snapshot64.exe"
 EndIf
 
 ; Drive Snapshot found ?
@@ -589,8 +586,8 @@ EndProg(RC_ALL)
 
 ; IDE Options = PureBasic 5.73 LTS (Windows - x64)
 ; ExecutableFormat = Console
-; CursorPosition = 44
-; FirstLine = 41
+; CursorPosition = 49
+; FirstLine = 22
 ; Folding = --
 ; EnableXP
 ; Executable = snapcontrol.exe