WINDOWS/snapcontrol
1
Fork 0
Code Issues Releases 3 Activity

bugfix and new snapshot64 version is now supported

Browse Source
This commit is contained in:
Michael H.G. Schmidt 2024-02-22 15:59:06 +01:00
parent d11f88b4b1
commit a9a60214f8
2 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
snapcontrol.exe
View File

Binary file not shown.

21
snapcontrol.pb
View File

@ -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