Đang tải dữ liệu...

Vui lòng chờ
:: Quên mật khẩu ::

Lần truy cập trước của bạn:
Hôm nay: 23/1/2018, 21:17
Xem bài mới từ lần truy cập trước
Xem bài của bạn
Xem bài chưa có ai trả lời
 Share | 
Tạo system restore point nhanh hơn!Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

avatar

ruaconda07tt



.:.Thông tin.:.

Giới tính Giới Tính: Nam
NickName User: ruaconda07tt
Đến từ Đến từ : DA07TT
Age Age : 28
Posts Posts : 226
Join date Join date : 12/06/2009

Giới tính Giới tính : Nam
Age Age : 28
Birthday Birthday : 05/11/1989
Job/hobbies Job/hobbies : MUSIC,TAM,&...&...^_~
Đến từ Đến từ : DA07TT
Sở thich của bạn Sở thich của bạn : everything
Posts Posts : 226
Points Points : 15012
Thanks Thanks : 25
Join date Join date : 12/06/2009
Pet Pet : 10 .Turdle


30/10/2010, 16:12
Nguồn bài gửiNguồn: http://da07tt.forum-2007.com/t641-topic
Bài gửiTiêu đề: Tạo system restore point nhanh hơn!
Da07tt Community - Kết nối bạn bè 
------------------------------------------------------------------
Giới thiệu với các bạn một cách tạo siêu nhanh một điểm mốc khôi phục hệ thống, mục đích giúp các bạn tạo lập tức một system restore point trong Windows 7 đề phòng gặp sự cố có thể khôi phục trở lại thời điểm tạo mốc khôi phục này. Các bạn copy đoạn code sau vào NotePad, save as với tên fileCreateSRP.VBS và để ở Desktop. Mỗi khi muốn tạo một điểm mốc khôi phục hệ thống, các bạn chỉ cần nhấp đúp file VB Script này, và gõ mô tả ngắn gọn tên điểm khôi phục để bạn có thể dễ dàng nhận ra sau này vào ô chờ, Enter là xong:

If 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 = ""
sDesc = InputBox ("Enter a Restore Point description.", "Create System Restore Point","")
If Trim(sDesc) <> "" Then
sOut = SRP.createrestorepoint (sDesc, 0, 100)

If sOut <> 0 Then
WScript.echo "Error " & sOut & _
": Unable to create System Restore Point."

End If
End If
End Sub

Function GetOS
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!" & _
".\root\cimv2")
Set colOS = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOS

If instr(objOS.Caption, "7") Then
GetOS = "Windows 7"

End If
Next
End Function




Chữ Kí Của: ruaconda07tt
Giới tính Giới tính : NamAge Age : 28Birthday Birthday : 05/11/1989Job/hobbies Job/hobbies : MUSIC,TAM,&...&...^_~Đến từ Đến từ : DA07TTSở thich của bạn Sở thich của bạn : everythingPosts Posts : 226Points Points : 15012Thanks Thanks : 25Join date Join date : 12/06/2009Pet Pet : 10 .Turdle

Thông điệp:

****************Hãy cùng chia sẻ với bạn bè bằng cách****************

Copy đường Link dưới đây gửi đến nick yahoo bạn bè!


Tạo system restore point nhanh hơn!Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
* Viết tiếng Việt có dấu, là tôn trọng người đọc.
* Chia sẻ bài sưu tầm có ghi rõ nguồn, là tôn trọng người viết.
* Thực hiện những điều trên, là tôn trọng chính mình.
-Nếu chèn smilies có vấn đề thì bấm A/a trên phải khung viết bài
AVIM Control [F12 to Hide]
AutoTelexVNIVIQRVIQR*OffSpellOldAccent

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: 

Chia Sẽ, Giải Đáp, Thắc Mắc

 :: 

Forumotion

 :: 

Thắc mắc - giải đáp

-
 




Thông tin diễn đàn
Copyright ©2008 - 2009, DA07T Forum.
Design by by Mai Minh Thuận [Admin]
Bản quyền by Haitac261189.
RSS Liên hệ MAP
Powered by phpBB Version 2.0 Lisenced
Copyright ©2000 - 2008.
Gửi cho bạn trang này | Click vào tải Firefox 3 || Lưu ý:Nên sử dụng Fire Fox 3 để duyệt Web
Free Auto Backlinks From WebXayDung.VNText Back Links Exchange
Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Have a free blog with Sosblogs