Jump to content
Sign in to follow this  
ricky

vbs to autoit (restore point)

Recommended Posts

ricky

Hello,

I want to create a restore point on windows seven or XP. I only found a vbs script, who can tranlate it to me in autoit?

Code found here : http://www.winhelponline.com/blog/wp-content/uploads/createsrp.vbs

'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

'Script to create a System Restore point in Windows 7 | Vista | XP

'May 10 2008 - Revised on Jan 10, 2009

'© 2008 Ramesh Srinivasan. http://www.winhelponline.com

'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

If GetOS = "Windows XP" Then

CreateSRP

End If

If GetOS = "Windows Vista" Or GetOS = "Windows 7" Then

If WScript.Arguments.length =0 Then

Set objShell = CreateObject("Shell.Application")

objShell.ShellExecute "wscript.exe", """" & _

WScript.ScriptFullName & """" & " uac","", "runas", 1

Else

CreateSRP

End If

End If

Sub CreateSRP

Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")

sDesc = "Manual Restore Point"

sDesc = InputBox ("Enter a description.", "System Restore script : winhelponline.com","Manual Restore Point")

If Trim(sDesc) <> "" Then

sOut = SRP.createrestorepoint (sDesc, 0, 100)

If sOut <> 0 Then

WScript.echo "Error " & sOut & _

": Unable to create Restore Point."

End If

End If

End Sub

Thanks in advance for your help

Share this post


Link to post
Share on other sites
Melba23

ricky03,

who can tranlate it to me in autoit?

And what have you tried so far that has not worked? ;)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
ricky

I have a lot of problems to understand the objects config and calls!

I don't try to translate alone this code, because with other differents codes I try to translate the same kind of objects and in 100% of times I spent some hours and at the end it crash!

Thanks for your help!

Share this post


Link to post
Share on other sites
water

Why do you want to translate a code to AutoIt you don't understand? You have a VBS script that should run fine.

What you try to translate is so sensible I wouldn't do it without exactly knowing what I do.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
ricky

I want to integrate this script in a final cleaning tool created with autoit!

When the system is clean, create a restore point automaticly! I don't want to exctract a vbs from an autoit script. And sometimes, the vbs script is recognised as virus or malware...

Share this post


Link to post
Share on other sites
water

Something like this? I don't know what you want to do with the WScript part.

;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
; Script to create a System Restore point in Windows 7 | Vista | XP
; May 10 2008 - Revised on Jan 10, 2009
; © 2008 Ramesh Srinivasan. http://www.winhelponline.com
;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
If @OSVersion = "Win_XP" Then
    CreateSRP()
EndIf

If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
    If $CmdLine[0] = 0 Then
        $objShell = ObjCreate("Shell.Application")
        ; $objShell.ShellExecute "wscript.exe", """" & _
        ; WScript.ScriptFullName & """" & " uac","", "runas", 1
    Else
        CreateSRP()
    EndIf
EndIf

Func CreateSRP()
    $SRP = ObjGet("winmgmts:.rootdefault:Systemrestore")
    $sDesc = "Manual Restore Point"
    $ssDesc = InputBox("Enter a description.", "System Restore script : winhelponline.com", "Manual Restore Point")
    If StringStripWS($sDesc, 3) <> "" Then
        $sOut = $RP.createrestorepoint($sDesc, 0, 100)
        If $sOut <> 0 Then
            MsgBox(16, "Error", "Error " & $sOut & ": Unable to create Restore Point.")
        EndIf
    EndIf
EndFunc   ;==>CreateSRP


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
ricky

Thanks a lot.

The wscript is to run with admin rights! It's possible to create the same line in autoit?

Edit : I just modify 2 mistakes...

;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
; Script to create a System Restore point in Windows 7 | Vista | XP
; May 10 2008 - Revised on Jan 10, 2009
; © 2008 Ramesh Srinivasan. http://www.winhelponline.com
;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
If @OSVersion = "Win_XP" Then
    CreateSRP()
EndIf

If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
    If $CmdLine[0] = 0 Then
        $objShell = ObjCreate("Shell.Application")
        ; $objShell.ShellExecute "wscript.exe", """" & _
        ; WScript.ScriptFullName & """" & " uac","", "runas", 1
    Else
        CreateSRP()
    EndIf
EndIf

Func CreateSRP()
    $SRP = ObjGet("winmgmts:.rootdefault:Systemrestore")
    $sDesc = "Manual Restore Point"
    $sDesc = InputBox("Enter a description.", "System Restore script : winhelponline.com", "Manual Restore Point")
    If StringStripWS($sDesc, 3) <> "" Then
        $sOut = $SRP.createrestorepoint($sDesc, 0, 100)
        If $sOut <> 0 Then
            MsgBox(16, "Error", "Error " & $sOut & ": Unable to create Restore Point.")
        EndIf
    EndIf
EndFunc   ;==>CreateSRP
Edited by ricky03

Share this post


Link to post
Share on other sites
ripdad

#RequireAdmin

Local $rtn = CreateSRP()
MsgBox(0, '', $rtn)

Func CreateSRP()
    Local $sDesc = InputBox('Enter a description.', 'System Restore script : winhelponline.com', 'Manual Restore Point')
    If @error Or Not $sDesc Then Return -1
    Local $objClass = ObjGet('winmgmts:.rootdefault:SystemRestore')
    If Not IsObj($objClass) Then Return -2
    If $objClass.CreateRestorePoint($sDesc, 0, 100) <> 0 Then Return -3
    Return 1; <-- successful
EndFunc

-edit-

oops, you guys beat me to it.

Edited by ripdad

"The mediocre teacher tells. The Good teacher explains. The superior teacher demonstrates. The great teacher inspires." -William Arthur Ward

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×