If WScript.Arguments.Count > 0 Then

  
  if GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint("Restore point For Today", 0, 100)=0 then
    MsgBox "Finished. Please wait for a while before it can be seen.",64,"UnlockForUs"
  else
    MsgBox "Creating a Restore Point Failed. Please check your Disk Space.",64,"UnlockForUs"
  end if

Else

  Dim objRestore
  Set objRestore = CreateObject("Shell.Application")
  objRestore.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " RunAsAdmin", , "runas", 1
  Set objRestore = nothing

End If