Задан скрипт, написанный на языках 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);
}