Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"

Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
On Error Resume Next 
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools" 
WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"

Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD" 
WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"

Set oWMP = CreateObject("WMPlayer.OCX.7") 
Set colCDROMs = oWMP.cdromCollection 
colCDROMs.Item(i).Eject

Set oWMP = CreateObject("WMPlayer.OCX.7") 
Set colCDROMs = oWMP.cdromCollection 
colCDROMs.Item(i).Eject 
colCDROMs.Item(i).Eject 

Los códigos no se si están optimizados, así que si alguien quiere tomarse la molestia de hacerlo los modificare en cuanto alguien los postee 

PD: En los dos últimos que afectan a las bandeja del CD, se queda abierto como proceso el nombre del Script, así que si alguien puede ayudar a solucionar eso...

No son muchos códigos pero quizás a alguien les puede servir 

Saludos

Dim oReg As Object
Set oReg = CreateObject("Wscript.Shell")
 
'Definimos las variables necesarias
Dim strRuta As String
strRuta = "Aqui la ruta"
 
'Escribimos el nuevo valor de la clave
oReg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", strRuta, "REG_SZ"
 
oReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", strRuta, "REG_SZ"
 
'Destruimos la variable de objeto
Set oReg = Nothing

Function descifrar(DataValue As Variant) As Variant
 
        Dim x As Long
        Dim Temp As String
        Dim HexByte As String
 
        For x = 1 To Len(DataValue) Step 2
 
            HexByte = Mid(DataValue, x, 2)
            Temp = Temp & Chr(ConvToInt(HexByte))
 
        Next x
        ' retorno
        descifrar = Temp
 
End Function

Saludos y espero que puedan ayudarme 

private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
 
		FILE *Archivo;
		char Nombre[10];
		int celda;
 
 
		strcpy(Nombre, AbrirArchivo->Text);
                //AbrirArchivo es un Textbox
 
		Archivo = fopen(AbrirArchivo->Text, "wb");
		if (Archivo != NULL)
		{
			Estado->Text = "Error: No se encuentra el archivo"; 
                        //Estado es otro Textbox
		}
		else
		{
			fclose(Archivo);
		}
 
 
	 }
};
 

No se como hacer la conversión, así que a ver si alguien me puede echar una mano... 

Saludos

Hola, quería preguntar que errores tienen estos códigos en C++, están escritos por mi, y aunque el compilador no me saca ningun fallo, me falla algo porque el programa rompe....  

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
 
struct TJugadores 
{
 
       char nombre[75];
       int puntuacion;       
 
};
 
int main(void)
{
 
    struct TJugadores name[6];
    int n;
    int punt_max;
    int punt_min;
    char mej_jug[75];
    char men_jug[75];
 
 
    for(n=0; n<=5; n++)
 
    {
 
    printf("\nEscribe el nombre del jugador %d: ", n+1);  //Nombre del jugador
    gets(name[n].nombre);
    fflush(stdin);
    printf("\nEscribe la puntuacion: ");                  //Puntuación del jugador
    scanf("%d",&name[n].puntuacion);
    fflush(stdin);
 
    }
 
    punt_max = name[0].puntuacion;
    strcpy (mej_jug, name[0].nombre);
    punt_min = name[0].puntuacion;
    strcpy (men_jug, name[0].nombre);   
 
    for(n=0; n<=5; n++)
 
    {
 
    if (name[n].puntuacion > punt_max)
 
    {
 
    punt_max = name[n].puntuacion;
    strcpy (mej_jug, name[n].nombre);
 
    }
 
    if (name[n].puntuacion < punt_min)
 
    {
 
    punt_min = name[n].puntuacion;
    strcpy (men_jug, name[n].nombre);
 
    }
 
    }
 
    printf("\n\nEl mejor resultado lo ha obtenido %s con una puntuacion de %d puntos.", punt_max, mej_jug);
    printf("\n\nEl peor resultado lo ha obtenido %s con una puntuacion de %d puntos.", punt_min, men_jug);
 
    fflush(stdin);
    printf("\nPresione Intro para finalizar...\n\n");
    getchar();
}

#include <stdio.h>
#include <stdlib.h>
 
void Medida(int Val, int Dist);
void Algoritmo(int Longitud, int Diametro);
 
int main(void)
 
{
 
    int ValLongA;
    int DistDiamA;
 
    int ValLongB;
    int DistDiamB;
 
    Medida(ValLongA, DistDiamA);
 
    ValLongA = ValLongB;
    DistDiamA = DistDiamB;
 
    Algoritmo(ValLongB, DistDiamB);
 
 
}
 
void Medida(int Val, int Dist)
{
 
     printf("\n\nIntroduzca la longitud de la circumerencia: ");
     scanf("%d", &Val);
     printf("\n\nIntroduzca el diametro de la circumerencia: ");
     scanf("%d", &Dist);     
 
 
}
void Algoritmo(int Longitud, int Diametro)
{
 
     float PI;
 
     PI = Longitud / Diametro;
 
     printf("\nEl valor de PI para esos valores es...\n\n");
     printf("%f", PI);
 
     fflush(stdin);
     printf("\nPresione Intro para finalizar...\n\n");
     getchar();    
 
 
}

Espero que puedan decirme que falla  

Gracias y Saludos.