Título: como crear un punto de restauracion desde bv6? Publicado por: guidosl en 2 Abril 2009, 17:03 pm como crear un punto de restauracion instantaneo???
esto es en .vbs por si alguien sabe como pasarlo a vb6 rp = “Scripted Restore Point by “ & WScript.ScriptName GetObject(“winmgmts:.rootdefault:Systemrestore”).CreateRestorePoint rp, 0, 100 gracias Título: Re: como crear un punto de restauracion desde bv6? Publicado por: guidosl en 2 Abril 2009, 18:44 pm el script anterior no me funciona
este si: Como lo puedo pasar a bv6??? If GetOS = "Windows XP" Then CreateSRP End If If GetOS = "Windows Vista" Or GetOS = "Windows 7" Then If WScript.Argume nts.length =0 Then Set objShell = CreateObject("Shell.Applicat ion") objShell.ShellExecute "wscript.exe", """" & _ WScript.Script FullName & """" & " 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.createrest orepoint (sDesc, 0, 100) If sOut <> 0 Then WScript.echo "Error " & sOut & _ ": Unable to create Restore Point." End If End If End Sub Function GetOS Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ ".\root\cimv2") Set colOS = objWMI.ExecQue ry("Select * from Win32_Operatin gSystem") For Each objOS in colOS If instr(objOS.Caption, "Windows 7") Then GetOS = "Windows 7" ElseIf instr(objOS.Caption, "Vista") Then GetOS = "Windows Vista" elseIf instr(objOS.Caption, "Windows XP") Then GetOS = "Windows XP" End If Next End Function Título: Re: como crear un punto de restauracion desde bv6? Publicado por: XcryptOR en 2 Abril 2009, 18:51 pm Asi se lo hace sin usar WMI, el código es de Syntax_err
Código
Título: Re: como crear un punto de restauracion desde bv6? Publicado por: guidosl en 3 Abril 2009, 00:32 am gracias me va perfecto
pero tengo una duda...que datos son los que guarda en a.txt?? y como puedo poner para que se muestre un msjbox si se creo correctamente o si hubo error? mil gracias Título: Re: como crear un punto de restauracion desde bv6? Publicado por: seba123neo en 3 Abril 2009, 01:35 am si lees el codigo hasta esta comentado cuando se crea correctamente y cuando no...
Título: Re: como crear un punto de restauracion desde bv6? Publicado por: guidosl en 4 Abril 2009, 00:33 am muchas gracias
|