โค้ด VB Create Restore Point ครับ..!!

[Dreamclown]

ใช้ใด้ทัง VBScript และ VB 6.0 เอาใปประยุกใช้กันเองนะครับ..

Unhidden Content - Enjoy The View!

Code:

Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore")

If (obj.CreateRestorePoint("Create Restore Point By VBScript", 0, 100)) = 0 Then
wscript.Echo "Created a new restore point successful..!!"
End If
END CODE: