WINDOWS/snapcontrol
1
Fork 0
Code Issues Releases 3 Activity

bugfixes and silent start (non interactive)

Browse Source
This commit is contained in:
Michael H.G. Schmidt 2023-03-12 10:34:06 +01:00
parent 1e2a99ecd3
commit 83fd28de11
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
snapcontrol.exe
View File

Binary file not shown.

17
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 : 20230311 ; DATE : 20230312
; ------------------------------------------------------------ ; ------------------------------------------------------------
; ;
; This tool creates an image backups of windows machines, ; This tool creates an image backups of windows machines,
@ -29,7 +29,7 @@ EnableGraphicalConsole(0)
Dim filelist$(0) Dim filelist$(0)
Global VERSION$="V1.09" Global VERSION$="V1.10"
Global updatesched = 0 Global updatesched = 0
Global dryrun = 0 Global dryrun = 0
Global silentmode = 0 Global silentmode = 0
@ -313,16 +313,19 @@ If ( updatesched = 1 )
jobcmd$ = ProgramFilename() jobcmd$ = ProgramFilename()
; check jobtype ... ; check jobtype ...
If ( BackupschedMode$ <> "login" And BackupschedMode$ <> "time" ) If ( BackupschedMode$ <> LCase("login") And BackupschedMode$ <> LCase("time") )
PrintN("WARNING: unknown BackupschedMode [ " + BackupschedMode$ + " ] ---> IGNORING. Type will be set to LOGIN.") PrintN("WARNING: unknown BackupschedMode [ " + BackupschedMode$ + " ] ---> IGNORING. Type will be set to LOGIN.")
BackupschedMode$ = "LOGIN" BackupschedMode$ = "LOGIN"
EndIf EndIf
; update the job ... ; update the job ...
PrintN ("Updating windows jobscheduler ...") PrintN ("Updating windows jobscheduler ...")
If ( BackupschedMode$ = "time" ) If ( BackupschedMode$ = LCase("time") )
jobcmd$ = Chr(34) + jobcmd$ + " /S" + Chr(34) + " /RU " + Chr(34) + "SYSTEM" + Chr(34) + " "
PrintN ( "schtasks /create /F /RL HIGHEST /SC daily /ST " + BackupStart$ + " /TN " + jobname$ + " /TR " + jobcmd$ )
dummy = system("schtasks /create /F /RL HIGHEST /SC daily /ST " + BackupStart$ + " /TN " + jobname$ + " /TR " + jobcmd$) dummy = system("schtasks /create /F /RL HIGHEST /SC daily /ST " + BackupStart$ + " /TN " + jobname$ + " /TR " + jobcmd$)
ElseIf ( BackupschedMode$ = "login" ) ElseIf ( BackupschedMode$ = LCase("login") )
PrintN ( "schtasks /create /F /RL HIGHEST /SC onlogon /DELAY " + BackupStart$ + " /TN " + jobname$ + " /TR " + jobcmd$ )
dummy = system("schtasks /create /F /RL HIGHEST /SC onlogon /DELAY " + BackupStart$ + " /TN " + jobname$ + " /TR " + jobcmd$) dummy = system("schtasks /create /F /RL HIGHEST /SC onlogon /DELAY " + BackupStart$ + " /TN " + jobname$ + " /TR " + jobcmd$)
EndIf EndIf
@ -381,6 +384,7 @@ dummy = DeleteFile(LogFile$, #PB_FileSystem_Force)
LogMe("============== starting BACKUP ==============") LogMe("============== starting BACKUP ==============")
LogMe("snapcontrol.exe version = [ " + VERSION$ + " ]") LogMe("snapcontrol.exe version = [ " + VERSION$ + " ]")
LogMe(" snapshot.exe version = [ " + DriveSnapshotVersion$() + " ]") LogMe(" snapshot.exe version = [ " + DriveSnapshotVersion$() + " ]")
LogMe(" parameters = [ " + UCase(ProgramParameter(0)) + " ]")
LogMe(" INIFILE = [ " + inifile$ + " ]") LogMe(" INIFILE = [ " + inifile$ + " ]")
If ( dryrun = 1 ) If ( dryrun = 1 )
@ -551,8 +555,7 @@ EndProg(e)
; IDE Options = PureBasic 5.73 LTS (Windows - x64) ; IDE Options = PureBasic 5.73 LTS (Windows - x64)
; ExecutableFormat = Console ; ExecutableFormat = Console
; CursorPosition = 374 ; CursorPosition = 29
; FirstLine = 333
; Folding = -- ; Folding = --
; EnableXP ; EnableXP
; Executable = snapcontrol.exe ; Executable = snapcontrol.exe