home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2002 April / VPR0204A.ISO / OLS_XP / WHAND600XP-BETA9 / whand600xp-beta9.exe / 1033 / RCDATA / CABINET / CreateRestorePoint_EN.vbs < prev    next >
Text File  |  2001-12-22  |  825b  |  20 lines
  1. ' Create Restore Point Script
  2. ' ------------------------------------------------------------------------
  3. ' Copyright (C) 2001 Masami Ikawa
  4. '
  5. ' (Notes) You cannot modify.
  6. ' ------------------------------------------------------------------------
  7. L_RestorePointName    = "WinBack Scratcher"
  8. L_MsgBox_Title_Text   = "WinBack Scratcher"
  9. L_MsgBox_Success_Text = "Restore Point Created !!"
  10. L_MsgBox_Error_Text   = "[ERROR] Restore Point could not created !!"
  11.  
  12. Dim intDoIt
  13.  
  14. Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore")
  15. If (obj.CreateRestorePoint(L_RestorePointName,0,100)) = 0 Then
  16.   intDoIt = MsgBox(L_MsgBox_Success_Text,vbOKOnly + vbInformation,L_MsgBox_Title_Text)
  17. Else
  18.   intDoIt = MsgBox(L_MsgBox_Error_Text,vbOKOnly + vbExclamation,L_MsgBox_Title_Text)
  19. End If
  20.