gracias eso em sirvio, lastima que aparece pantallita negra y eso....pero bueno por ahroa va bien

si alguien sabe de otra solucion para probar...

graciass

y como aria eso desde vb 6?

gracias

diseñe un programa parecido a la opciond e windows para personalizar el menu de inico

elimnar o motrar mi pc, panle de control, mis documentos, conexiones de red, etc

el tema es q los cambios se realizan despues de reiniciar la pc

queria saber como refrescar el menu inico para q aparezcan o desaparezcan las opciones que pongo, el de windows lo refresca cuando le damos en aplicar...


graciass!!

muchas gracias

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

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

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

Dim objShell As Object
Set objShell = CreateObject("Wscript.Shell")
On Error Resume Next
Text2.Text = objShell.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page")
Set objShell = Nothing


me autorespondo por si a alguien le interesa

es que se como modificar claves...agregar, etc

pero no se como leer una clave y mostrarla

esa clave guarda en dato la pagina de inico establecida

resuelto graciasss!!!