Code
Function EmbedGoogleVideo($docid,$Title)
  Dim $Source,$Nul
  $Source = '<embed style='+'"'+'width:400px; height:326px;'+'"'+' id='+'"'+'VideoPlayback'+'"' + ' align='+'"'+'middle'+'" ' +
  'type='+'"'+'application/x-shockwave-flash'+'"'+' src='+'"'+'http://video.google.com/googleplayer.swf?docId=' +
  $docid + '"' + ' allowScriptAccess='+'"'+'sameDomain'+'"'+' quality='+'"'+'best'+'"'+' bgcolor='+'"'+'#ffffff '+'"' +
  'scale='+'"'+'noScale'+'"'+' salign='+'"'+'TL'+'" ' +
  'FlashVars='+'"'+'playerMode=embedded'+'"'+'> </embed>'
  $Nul = WriteProfileString('.\googlevideo.ini','MOVIES',$Title,$Source)
  Exit @ERROR
EndFunction