«Задан скрипт, написанный на языках JScript или VBScript.»

Задан скрипт, написанный на языках JScript или VBScript. Требуется "перевести" текст скрипта на доступный русский язык, т.е. достаточно подробно и лаконично описать (прокомментировать) каждую строку. В описании должно содержаться какая переменная используется (имя), какой тип значений присвается, какая функция используется, описание объектов, алгоритма и т.д.

1 function AddStartMenuURL(sname,trgt) { var ws = WScript.CreateObject (“WScript.Shell”) smenu = ws.SpecialFolders(“StartMenu”) var scut = ws.CreateShortcut (smenu + “\\” + sname + “.URL”) scut.TargetPath = trgt scut.Save() } function DeleteShortcut(sfolder, sname) { var ws = WScript.CreateObject(“WScript.Shell”); smenu = ws.SpecialFolders(sfolder);

fs = new ActiveXObject(“Scripting.FileSystemObject”); f = fs.GetFile(smenu + “\\” + sname); f.Delete(); } function DeleteFile(filePath) { var fs; fs = new ActiveXObject(“Scripting.FileSystemObject”); fs.DeleteFile(filePath); } function DeleteFolder(folderPath) { var fs; fs = new ActiveXObject(“Scripting.FileSystemObject”); fs.DeleteFolder(folderPath); }

function AddDesktop(sname,trgt) { var ws = WScript.CreateObject (“WScript.Shell”) dsktop = ws.SpecialFolders(“Desktop”) var scut = ws.CreateShortcut (dsktop + “\\” + sname + “.LNK”) scut.TargetPath = trgt scut.Save() } function AddDesktopURL(sname,trgt) { var ws = WScript.CreateObject (“WScript.Shell”) dsktop = ws.SpecialFolders(“Desktop”) var scut = ws.CreateShortcut (dsktop + “\\” + sname + “.URL”) scut.TargetPath = trgt scut.Save() } function AddStartMenu(sname,trgt) { var ws = WScript.CreateObject (“WScript.Shell”) smenu = ws.SpecialFolders(“StartMenu”) var scut = ws.CreateShortcut (smenu + “\\” + sname + “.LNK”) scut.TargetPath = trgt scut.Save() }

2

drvpath = “C” WScript.Echo(GetDriveInfo(drvpath)) function GetDriveInfo(drvpath) { var fs, d, s, t, wnet, cname;

wNet = WScript.CreateObject (“WScript.Network”); cname = wNet.ComputerName; fs = new ActiveXObject(“Scripting.FileSystemObject”); d = fs.GetDrive(drvpath); switch (d.DriveType) { case 0: t = “Unknown”; break; case 1: t = “Removable”; break; case 2: t = “Fixed”; break; case 3: t = “Network”; break; case 4: t = “CD/DVD-ROM”; break; case 5: t = “RAM Disk”; break; } s = “=========================” + “\r\n”; s += cname + “\r\n”; s += “=========================” + “\r\n”; s += “Drive “ + d.DriveLetter + “: - “ + t; s += “ - “ + d.FileSystem + “\r\n”; if (d.VolumeName) s += “Volume: “ + d.VolumeName + “\r\n” if (d.ShareName) s += “ Share: “ + d.ShareName + “\r\n” s += “Total space “ + Math.round(d.TotalSize/1048576) s += “ Mbytes” + “\r\n”; s += “Free Space: “ + Math.round(d.FreeSpace/1048576) s += “ Mbytes” + “\r\n”; s += “=========================” + “\r\n”; return(s); }