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