'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'Create a Daily System Restore point
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
If WScript.Arguments.Count = 0 Then
  Set oShell = CreateObject("Shell.Application")
  oShell.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ Run", , "runas", 1
Else
  Set oWshShell = WScript.CreateObject("WScript.Shell")
  swinmgmts = "winmgmts:\\.\root\default:Systemrestore"
  GetObject(swinmgmts).CreateRestorePoint "Automatic Restore Point", 0, 100
End If