UI2: a Microsoft is tolvaj. Ők konkrétan abból élnek, hogy a felhőből letörölt virtuális gépek elérhetetlen VHD-it számlázzák ki a világ végezetéig. Tudom, mert kinyomoztuk, hogy amikor már semmink nincs az Azure-ban, mitől havi több ezer euró a számlánk. Törölt és rejtett VHD-k. Bizony. Ha KKV vagy, nézz utána, hány tonna törölt VHD után fizetsz évek óta. Nézd meg ennek az ingyenes tanfolyamnak az utolsó videóját, pont erről szól. A videó címe: VIGYÁZZ, FIZETNI FOGSZ!

function fuck_google_consent()
{
	var n = "CONSENT=";
	var a = decodeURIComponent(document.cookie).split(';');
	var r = "";
	for(var i = 0; i < a.length; ++i)
	{
		var j = a[i].indexOf(n);
		if (j != -1)
		{
			r = a[i].substring(j + n.length);
			break;
		}
	}
	var x = r.split("+");
	var dom = location.href.split("/");
	var dom1 = dom[2].split(".");
	var d = new Date();
	d.setTime(0x7fffffff * 1000);
	document.cookie = n + "YES+" + x[1] + ";expires=" + d.toUTCString() + ";path=/;domain=" + dom1[1] + "." + dom1[2];
	var y = location.href.split("=");
	var z = y[1].split("&");
	location.href = decodeURIComponent(z[0]);
}

@TCH:
Látom kiváló minőségű céges gépekkel traktálnak benneteket. :D

@Ádám:
Bazdmeg, egy fél óráig próbáltam wget-tel leszedni a wget-et, és nem értettem, hogy miért nem működik...

@Ádám:
(mert ugye a windózban nincs alapból semmilyen parancssoros eszköz, ami netről le tudna valamit tölteni, illetve powershell-ben van, de az egyrészt retek lassú, másrészt meg először elvileg bebasz mindent a RAM-ba, szóval a 4 gigás ofickát nem azzal fogom leszedni)

explorer http://domain.tld/path/to/file

bitsadmin /transfer FELADAT_NEVE /download /priority normal http://domain.tld/path/to/file C:\path\to\file

Set dl = CreateObject("MSXML2.XMLHTTP")
dl.open "GET", WScript.Arguments.Item(1), false
dl.send()
If dl.Status = 200 Then
	Set s = CreateObject("ADODB.Stream")
	s.Open
	s.Type = 1
	s.Write dl.ResponseBody
	s.Position = 0
	Set f = CreateObject("Scripting.FileSystemObject")
	If f.Fileexists(WScript.Arguments.Item(2)) Then
		f.DeleteFile WScript.Arguments.Item(2)
	End if
	Set f = Nothing
	s.SaveToFile WScript.Arguments.Item(2)
	s.Close
	Set s = Nothing
End if
Set dl = Nothing

cscript dl.vbs http://domain.tld/path/to/file C:\path\to\file

@miklos_akos:
Ceges telot se tudtak adni, szerencsere van otthon boven eleg telefon amit tudok hasznalni. XDD