procedure UpTime(var d, h, m, s :integer);

Сколько времени работает Windows без перезагрузки. "d" - дни, "h" - часы, "m" - минуты, "s"  -секунды;

function GetComputerName:string;

возвращает сетевое имя компьютера, на котором исполняется скрипт;

function GetCurrentUserName:string;

возвращает имя пользователя, под которым выполняется скрипт;

function Execute(FileName, Parameters, WorkFolder :string) :integer;

запустить из скрипта любую программу, BAT-файл, открыть документ и прочее. "FileName" - что именно нужно запустить/открыть, "Parameters" - параметры командной строки, "WorkFolder" - рабочий каталог;

function DiskFree(disknum :byte) :int64;

функция возвращает, сколько свободного места (в байтах) находится на указанном диске. "disknum" может принимать значения "0" - текущий диск, "1" - диск "A", "2" - "B", "3" - "C" и так далее;

function DiskSize(disknum :byte) :int64;

функция возвращает размер указанного диска в байтах;

function GetEnvValue(ValueName :string) :string;

возвращает значение переменной окружения под именем "ValueName";

function SetEnvValue(VarName, VarValue: string): integer;

функция устанавливает значение "VarValue" для переменной окружения "VarName". Если операция прошла успешно, функция возвращает значение "0";

function GetClipboardText:string;

функция возвращает текст, хранящийся в буфере обмена Windows;

procedure SetClipboardText(Txt :string);

сохраняет в буфере обмена Windows указанный текст;

function GetFileVersion(FileName: string): string;

функция возвращает версию указанного файла;

.procedure GetMemoryInfo(var MemoryLoad :byte; var TotalPhys :int64; var AvailPhys :int64; var TotalPageFile :int64;  var AvailPageFile :int64);

получить информацию о памяти, используемой в системе. "MemoryLoad" - сколько процентов физической оперативной памяти занято в данній момент, "TotalPhys" - размер физической оперативной памяти, имеющейся в системе, "AvailPhys" - сколько памяти есть в наличии, "TotalPageFile" - размер файла подкачки, "AvailPageFile" - сколько байт из файла подкачки свободно. Все данные возвращаются в байтах;

procedure GetCPUInfo(var Name :string; var Mhz :word; var Vendor, Identifier :string)

получить информацию о микропроцессоре, установленном в системе. "Name" - название, "Mhz" - частота, "Vendor" - производитель, "Identifier" - технические данные (family, model, stepping);