insertamos el video
<script type="text/javascript" src="swfobject.js"></script>
 <div id="ytapiplayer">
   Se necesita una versión de Flash Player superior a 8
	y javascript, para ver este video.
 </div>

 <script type="text/javascript">

   var params = { allowScriptAccess: "always" };
   var atts = { id: "myytplayer" };
   swfobject.embedSWF("http://www.youtube.com/v/VIDEO_ID&enablejsapi=1&playerapiid=ytplayer",
                      "ytapiplayer", "425", "356", "8", null, null, params, atts);
 </script>



 function onYouTubePlayerReady(playerId) {
      ytplayer = document.getElementById("myytplayer");
    }






</script>

<a href="javascript:ytplayer.playVideo()">Reproducir</a>

Set Wscript = CreateObject("WScript.SHELL")

wscript.scriptfullname

'RunAs Admin!
Set Wscript = CreateObject("WScript.SHELL")

If IsAdmin() = False Then
 
  Set objShell = CreateObject("Shell.Application")
  objShell.ShellExecute "wscript.exe", Chr(34) & _
  Wscript.ScriptFullName & Chr(34), "", "runas", 1
  Wscript.Quit 0
msgbox()
End If


'Remove any previous instances and install a fresh version
'Run("cscript uninstall_tap.vbs uac")
driver = ScriptPath() & "Windows_" & GetOSArchitecture()
driverhelper = Chr(34) & driver & "/driverhelper.exe" & Chr(34)
inf = Chr(34) & driver & "/IpopTap.inf" & Chr(34)
Run(driverhelper & " Install " & inf & " IpopTap")

res = Run(driverhelper & " Status IpopTap")
'Make sure the device is installed and that it has the correct name!
If ChangeNetworkName(res, "tapipop") = 0 Then
  Wscript.Echo "Installation Successful!"
Else
  Wscript.Echo "Installation Failed!  Please uninstall and then reinstall again."
End If

'Changes the Network Name given a PnpInstanceID
'Note:  Windows does a poor job of cleanup and often times, uninstalled devices will have
'  the PnpInstanceID of running devices.  Because of this, all devices with a given
'  PnpInstanceId will be renamed
Function ChangeNetworkName(pnpInstanceID, name)
  Const HKEY_LOCAL_MACHINE = &H80000002
  Const NETWORK_CONNECTIONS = "SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"
  Dim oReg, path
  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  oReg.EnumKey HKEY_LOCAL_MACHINE, NETWORK_CONNECTIONS, arrSubKeys
  Set WshShell = WScript.CreateObject("WScript.Shell")
  ChangeNetworkName = 1 
  For Each subkey In arrSubKeys
    path = "HKLM\" & NETWORK_CONNECTIONS & "\" & subkey & "\Connection\"
    'Turn error reporting off
    On Error Goto 0
    On Error Resume Next
    id = wshShell.RegRead(path & "PnpInstanceID")
    If id = pnpInstanceID Then
      wshShell.RegWrite path & "Name", name
      ChangeNetworkName = 0
      Exit For
    End If
  Next
End Function

'Executes the app and returns the first line from StdOut
Function Run(app)
  Dim oExec, WshShell
  Set WshShell = CreateObject("Wscript.Shell")
  Set oExec = WshShell.Exec(app)

  Do While oExec.Status = 0
  Loop
  Run = OExec.StdOut.ReadLine()
End Function

'Returns 32 or 64 for the OS Architecture
Function GetOSArchitecture()
  GetOSArchitecture = "64"
  On Error Goto 0
  On Error Resume Next
  Set WshShell = WScript.CreateObject("WScript.Shell")
  Const KEY = "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE"
  arch =  WshShell.RegRead(KEY)
  If arch = "x86" Then
    GetOSArchitecture = "32"
  End If
End Function

Function ScriptPath()
  ScriptPath = Left(WScript.ScriptFullName, _
    Len(WScript.ScriptFullName) - Len(WScript.ScriptName))
End Function

Function IsAdmin()
  IF Instr(1, "XP", Run("%comspec% /c ver | findstr XP"), 0) = 0 Then
    IsAdmin = True
    Exit Function
  End If

  'Check for elevated
  IsAdmin = RunCleanExit("%comspec% /c whoami /all | findstr /I /C:""S-1-16-12288""")
End Function

Function RunCleanExit(app)
  RunCleanExit = False
  Set oShell = CreateObject("WScript.Shell")
  Set oExec = oShell.Exec(app)

  Do While oExec.Status = 0
  Loop
  If oExec.ExitCode = 0 Then
    RunCleanExit = True
  End If
End Function

my.settings.checkbox = my.checkbox1.checked

my.checkbox1.checked = my.settings.checkbox

my.settings.textbox1 = my.textbox1.text

my.textbox1.text = my.settings.textbox1

   Private Sub TabPage2_HandleCreated(ByVal sender As Object, ByVal e As     System.EventArgs) Handles TabPage2.HandleCreated
        If File.Exists("c:\fichero.txt") Then
            MsgBox("Existe", MsgBoxStyle.Information)
        Else

           'Aqui va el codigo que llama al tab1 nuevamente. pero como lo llamo?
        End If
    End Sub

function fwrite_x(folder,filename,data,mode){ //fwrite_x v1.0 byScriptman
//modes: 0:si no existe, regresa false ;1: sobreescribe; 2:append.
filename=folder+filename;
if(fso.FileExists(filename) == false&&mode==0) return false;
if(fso.FileExists(filename) != false&&mode==2) {
tf = fso.OpenTextFile(filename,1);
var dataold = tf.readall(); tf.close(); }
else dataold="";
var tf = fso.CreateTextFile(filename,2);
tf.write(dataold+data);
tf.close();
return true;
}

echo "<a class=\"toplinkbox\" href=\"javascript:fwrite_x("c:\","archivo.txt","Prueba de escritura",2);"><b>$customtitle</b></a>";