if ( /*@cc_on !@*/0 ) {
	WScript.StdOut.WriteLine("Hello from JScript");
} else {
	console.log('Hello from NodeJS');
}

 '------------------------------------------------------------- 
 ' Перебор окон в VBScript с помощью объекта DynamicWrapper.
 ' Функция обратного вызова построена на использовании MS 
 ' Excel как COM-сервера и вызывает целевую функцию из VBScript.
 '
 ' Lang VBScript
 ' Потребуется установленный MS Office со средой VBE
 ' Потребуется библиотека dynwrap.dll (http://www.script-coding.com/dynwrap.html)
 ' Тестировалось на Win7
 '------------------------------------------------------------- 
 Option Explicit

 Dim objExcel, objWorkBook, objModule, oVBComps, oExWrap 
 Dim lAddr

 Set objExcel = CreateObject("Excel.Application")
 objExcel.Visible = False
 Set objWorkBook = objExcel.WorkBooks.Add


 ' Формирование кода Excel 
 '------------------------------------------------------------- 
 ' Set oVBComps = objExcel.VBE.ActiveVBProject.VBComponents
 ' равнозначно
 Set oVBComps = objWorkBook.VBProject.VBComponents

 Set objModule = oVBComps.Add(1)

 With objModule.CodeModule
	.InsertLines 1,	"Option Explicit"
	.InsertLines 2,	"Declare Sub MoveMem Lib ""kernel32"" _"
	.InsertLines 3,	"Alias ""RtlMoveMemory"" (ByRef Destination As Long, _"
	.InsertLines 4,	"                        ByRef Source As Long, _"
	.InsertLines 5,	"                        ByVal Length As Long)"
	.InsertLines 6,	"Dim oMe As Object"
	.InsertLines 7, "Function SetContext(ByVal o As Object) As Object"
	.InsertLines 8,"	Set oMe = o"
	.InsertLines 9,	"	Set SetContext = CreateObject(""DynamicWrapper"")"
	.InsertLines 10,"End Function"
	.InsertLines 11,"'//Получить адрес функции обратного вызова//"
	.InsertLines 12,"Function GetEnumProcAddress() As Long"
	.InsertLines 13,"	GetEnumProcAddress = 0"
	.InsertLines 14,"	MoveMem GetEnumProcAddress, AddressOf ENUMPROC_CALLER, 4"
	.InsertLines 15,"End Function"
	.InsertLines 16,"'//Функция обратного вызова, которая вызывает целевую функцию из VBScript//"
	.InsertLines 17,"Function ENUMPROC_CALLER(ByVal hwnd As Long, ByVal lParam As Long) As Long"
	.InsertLines 18,"	ENUMPROC_CALLER = oMe.ENUMPROC(hwnd, lParam)	 "
	.InsertLines 19,"End Function"
 End With

 '/Адрес функции обратного вызова/
 lAddr = objExcel.Application.Run("GetEnumProcAddress")
 
 '/Регистрация API/
 Set oExWrap = objExcel.Application.Run("SetContext", Me)
 oExWrap.Register "USER32.DLL","EnumWindows","i=ll","f=s","r=l"

 ' Запуск перебора окон
 '-------------------------------------------------------------
 oExWrap.EnumWindows lAddr, 0
 
 ' Завершение работы
 '-------------------------------------------------------------
 oVBComps.Remove objModule 

 objExcel.DisplayAlerts = False
 objExcel.Quit()
 WScript.Quit()
 

 ' Целевая функция обратного вызова, вызываемая из потока Excel
 '-------------------------------------------------------------
 Public Function ENUMPROC(ByVal hwnd, ByVal lParam)

	Dim sH
	Dim iAnsw

	sH = Hex(hwnd)
	iAnsw = MsgBox("Дескриптор окна: 0x" & String(8-Len(sH),"0") & sH, vbOKCancel + vbSystemModal + vbExclamation, "HWND")
	If iAnsw = vbCancel Then 
		ENUMPROC = 0
	Else
		ENUMPROC = 1
	End If

 End Function

 /* 

 Воспроизведение mp3 файла с помощью команд MCI. 
 JScript
 ОС WinXP

 */

 // Проверка аргументов
 //----------------------------------------------------------
 var sFileMp3Long;
 var lStrLen;
 var sFilePlay;

 var args = WScript.Arguments
 if (args.Length)
 { 
	sFileMp3Long = String(args.Item(0));
	lStrLen = sFileMp3Long.length;
	sFilePlay = sFileMp3Long.substring(sFileMp3Long.lastIndexOf('\\',lStrLen) + 1,lStrLen);

 }
 else
 {
	WScript.Echo('Отсутствует входной аргумент - mp3 файл для воспроизведения.');
	WScript.Quit();
 }

 // Создание объектов
 //----------------------------------------------------------
 var oScrSvc = new ActiveXObject('ScriptService.Service');
 var ieObj = WScript.CreateObject('InternetExplorer.Application','IE_');

 with (ieObj)
 {
 	Offline = true;
	Navigate('about:blank');
	while (Busy){WScript.Sleep(50);}
	StatusBar = false;
	ToolBar = false;
	MenuBar = false;
	Left = 0;
	Top = 0;
	Width = 420;
	Height = 50;
	Visible = true;
	while (Busy){WScript.Sleep(50);}
 }

 // Внедрение кода в документ
 //----------------------------------------------------------
 var oDoc = ieObj.Document;

 var s = new String(string_resource1);
 var r = /(function.+\s*{\s*)|(\/\*\s*)|(\s*\*\/)|(\s*})/igm;
 var sInnerCode = s.replace(r,'');
 oDoc.write(sInnerCode);
 
 // Внедрение скрипта в документ
 //----------------------------------------------------------
 oDoc.myproperty = this;
 var oScr = oDoc.createElement('SCRIPT');
 oScr.text = 'function pulseinvoke(){document.myproperty.PulseTimer();}\n\rfunction document.onclick(){document.myproperty.SetPosition(event.offsetX);}'
 oDoc.body.appendChild(oScr);
 var oPr = oDoc.getElementById('progress');
 
 //----------------------------------------------------------
 var sRetStr1 = AllocStr(32);
 var pRetStr1 = oScrSvc.struct_setval(sRetStr1);
 var lPos, lCur, lLength;

 // Отправка команд воспроизведения файла
 //----------------------------------------------------------
 mcisend('open'+String.fromCharCode(32) + '"' + sFileMp3Long + '"' + String.fromCharCode(32)+'type MPEGVideo alias mp3play',false);
 mcisend('setaudio mp3play volume to 1000', false);
 mcisend('set mp3play time format milliseconds', false);
 mcisend('set mp3play seek exactly on', false);
 lLength = Number(mcisend('status mp3play length', true));

 oDoc.parentWindow.setInterval('pulseinvoke()',100);
 oDoc.title = sFilePlay;

 initplay();
 
 // Цикл удержания
 //----------------------------------------------------------
 while (1)
 {
	WScript.Sleep(500);
 }

 //
 // Запуск воспроизведения
 //
 //----------------------------------------------------
 function initplay()
 {
 	mcisend('seek mp3play to 400', false);
	mcisend('play mp3play', false);
 } 

 //
 // Установка индикатора воспроизведения
 //
 //----------------------------------------------------------
 function PulseTimer()
 {
	try
	{
		lPos = Number(mcisend('status mp3play position', true));
		lCur = Math.round((lPos/lLength)*400);
		oPr.style.width = lCur;
	}
	catch(e){}

	// Перезапуск
	//--------------------------------------------------
	if (lCur==400)
	{
		WScript.Sleep(100);
		initplay();
	}

 }

 //
 // Установка позиции воспроизведения
 //
 //----------------------------------------------------------
 function SetPosition(lX)
 {
	oPr.style.width = Number(lX);
	mcisend(String('seek mp3play to ' + Math.round((lX/400)*lLength)), false);
	mcisend('play mp3play repeat', false);
 }

 //
 // Отправка команды MCI
 //
 //----------------------------------------------------------
 function mcisend(sCmd, bf)
 {

	
	//---------------------------------------------------
	if (bf)
	{
		sRetStr = sRetStr1;
		pRetStr = pRetStr1;
	}
	else
	{
		sRetStr	= '';
		pRetStr = 0;
	}

	//---------------------------------------------------
	with (oScrSvc)
	{
		set_strarg(0, sCmd, true);
		set_vararg(1, pRetStr);
		set_vararg(2, Number(sRetStr.length));
		set_vararg(3, 0);
		lRes = api_call('WINMM.DLL','mciSendStringW',4, 1);	//1 - индекс повторного вызова(запоминание адреса функции)
	}

	//---------------------------------------------------
	if (lRes!=0)
	{
		WScript.Echo('Произошла ошибка.\n\rКоманда: '+sCmd);
		ieObj.Quit();
		WScript.Sleep(100);
		
	}
	//---------------------------------------------------
	if (bf){return oScrSvc.pull_string(pRetStr, true);}

	return;
	
 }

 //
 // Выделение строки заданной длины
 //
 //----------------------------------------------------------
 function AllocStr(lStrLen)
 {
	var sStr = '\0';
	for (i=0;i<lStrLen-1;i++)
	sStr = sStr + '\0';
	return sStr;
 }
 
 //
 // Завершение работы
 //
 //----------------------------------------------------------
 function IE_OnQuit()
 {
	mcisend('stop mp3play', false);
	mcisend('close mp3play', false);
	oScrSvc = null;
	ieObj = null;
	WScript.Quit();
 }

 // HTML код
 //----------------------------------------------------------
 function string_resource1()
 {/*
 <HTML>
 <TITLE>&nbsp</TITLE>
 <HEAD>
 <META HTTP-EQUIV=Content-Type content='text/html;charset=windows-1251'>
 </HEAD>
 <BODY SCROLL="NO">
	<HR ID='progress' style='position: absolute; left: 0px; top:0px; width: 400px; height:20px; background-color: #808000;'>
	<HR ID='set' style='position: absolute; left: 0px; top:30px; width: 400px; height:5px; background-color: #c0c0c0;'>
 </BODY>
 </HTML>
 */}

 
 'Скрипт предназначен для установки обоев на Рабочий стол,
 'и основан на вызове функций интерфейса IActiveDesktop 
 'средствами COM API.

 'Чтобы установить новые обои, перетащите изображение GIF, JPG или BMP
 'на значок скрипта.
 
 'ОС WinXP/7

 Option Explicit
 '---------------------------------------------------------------
 Dim sWallPaperPath
 Dim oArgs
 Dim oScrSvc

 Set oArgs = WScript.Arguments
 If oArgs.Length = 0 Then
	MsgBox "Чтобы установить новые обои, перетащите изображение GIF, JPG или BMP на значок скрипта.", _
	vbExclamation + vbSystemModal, _
	"Reply"
	QuitMe()
 Else
 	sWallPaperPath = CStr(oArgs.Item(0))	
 End If

 '---------------------------------------------------------------
 Set oScrSvc = CreateObject("ScriptService.Service")

 'Интерфейс [IActiveDesktop]
 '---------------------------------------------------------------
 Const CLSID_IActiveDesktop = "{75048700-EF1F-11D0-9888-006097DEACF9}"
 Const UUID_IActiveDesktop = "{F490EB00-1240-11D1-9888-006097DEACF9}"

 'Методы интерфейса IActiveDesktop;
 Const ApplyChanges = 3
 Const GetWallpaper = 4
 Const SetWallpaper = 5
 Const GetWallpaperOptions = 6     
 Const SetWallpaperOptions = 7    
 Const GetPattern = 8          
 Const SetPattern = 9             
 Const GetDesktopItemOptions = 10 
 Const SetDesktopItemOptions = 11  
 Const AddDesktopItem = 12         
 Const AddDesktopItemWithUI = 13   
 Const ModifyDesktopItem = 14      
 Const RemoveDesktopItem = 15   
 Const GetDesktopItemCount = 16    
 Const GetDesktopItem = 17       
 Const GetDesktopItemByID = 18    
 Const GenerateDesktopItemHtml = 19
 Const AddUrl = 20               
 Const GetDesktopItemBySource = 21

 'Параметры установки обоев
 Const WPSTYLE_CENTER = 0
 Const WPSTYLE_TILE = 1
 Const WPSTYLE_STRETCH = 2
 
 Const CLSCTX_INPROC_SERVER = 1
 Const CC_STDCALL = 4
 Const S_OK = 0

 '/Выбор параметров установки/
 '---------------------------------------------------------------
 Dim i
 Dim r
 Dim GUID1, GUID2
 Dim pVarRes
 Dim pWALLPAPEROPT
 Dim VftPtr
 Dim IActiveDesktop, lData, p
 Dim pSetWallpaper, pApplyChanges, pSetWallpaperOptions

 Dim WPSTYLE_CHOICE
 Dim arr(4)
 Dim arr1(4)
 Dim arrRet

 arr(0) = "Центрировать"
 arr(1) = "Замостить"
 arr(2) = "Растянуть"

 arr1(0) = WPSTYLE_CENTER
 arr1(1) = WPSTYLE_TILE
 arr1(2) = WPSTYLE_STRETCH

 arrRet = oScrSvc.multi_dialog(arr)

 If Ubound(arrRet)=-1 Then QuitMe()
 If Ubound(arrRet) > 0 Then
	MsgBox "Допустим выбор только одного параметра.", vbExclamation + vbSystemModal, "Reply"
	QuitMe()
 End If

 For i=0 To UBound(arr)
	If StrComp(arrRet(0),arr(i)) = 0 Then WPSTYLE_CHOICE = arr1(i)
 Next

 '/Запрос интерфейса IActiveDesktop и вызов его функций/
 '---------------------------------------------------------------
 With oScrSvc

	'Выделение памяти
	'-------------------------------------------------------
 	GUID1 = .struct_setval(String(8,Chr(32)))		'8*2=16 итоговое количество байт
 	GUID2 = .struct_setval(String(8,Chr(32)))		'8*2=16 итоговое количество байт
 	pVarRes = .struct_setval(String(2,Chr(32)))		'2*2=4 итоговое количество байт
	pWALLPAPEROPT = .struct_setval(String(4,Chr(32)))	'4*2=8 итоговое количество байт
	'-------------------------------------------------------
 
		.set_vararg 0, 0
		.api_call "OLE32.DLL","CoInitialize", 1

	'Запрос интерфейса
	'-------------------------------------------------------
	.set_strarg 0, CLSID_IActiveDesktop, True	
	.set_vararg 1, GUID1
	r = .api_call("OLE32.DLL","CLSIDFromString",2)
	
	.set_strarg 0, UUID_IActiveDesktop, True
	.set_vararg 1, GUID2
	r = .api_call("OLE32.DLL","CLSIDFromString",2)

	.set_vararg 0, GUID1
	.set_vararg 1, 0
	.set_vararg 2, CLSCTX_INPROC_SERVER
	.set_vararg 3, GUID2
	.set_vararg 4, pVarRes
	r = .api_call("OLE32.DLL","CoCreateInstance",5)

	'-------------------------------------------------------
	IActiveDesktop = .struct_getval(pVarRes, 0, 4)
	
	'Получение адресов функций из vtable
	'-------------------------------------------------------
	VftPtr = .struct_getval(IActiveDesktop, 0, 4)

	pSetWallpaper = .struct_getval(VftPtr, 4 * SetWallpaper, 4)
	pApplyChanges = .struct_getval(VftPtr, 4 * ApplyChanges, 4)	
	pSetWallpaperOptions = .struct_getval(VftPtr, 4 * SetWallpaperOptions, 4)	

	'Вызов интерфейсных функций, установка обоев рабочего стола
	'-------------------------------------------------------
	'-------------------------------------------------------

	'----------- Выбор обоев
	.set_vararg 0, IActiveDesktop
	.set_vararg 1, .struct_setval(sWallPaperPath)
	.set_vararg 2, 0
	.api_direct_call pSetWallpaper, 3

	'----------- Установка параметров
	.struct_setval pWALLPAPEROPT, 8, 0, 4
	.struct_setval pWALLPAPEROPT, WPSTYLE_CHOICE, 4, 4

	.set_vararg 0, IActiveDesktop
	.set_vararg 1, pWALLPAPEROPT
	.set_vararg 2, 0
	.api_direct_call pSetWallpaperOptions, 3

	'----------- Применение изменений
	.set_vararg 0, IActiveDesktop
	.set_vararg 1, 7
	.api_direct_call pApplyChanges, 2
	'-------------------------------------------------------

		.api_call "OLE32.DLL","CoUninitialize",0


	'-------------------------------------------------------
	WScript.Sleep(50)
	MsgBox "Проверьте правильность установки обоев Рабочего стола.", vbInformation + vbSystemModal, "Reply"
	QuitMe()

 End With

 '/Проверка ошибки/
 '---------------------------------------------------------------
 Sub CheckResult(x, sSource)
	If x <> S_OK Then
		MsgBox "Сбой выполнения. Источник" & sSource, vbSystemModal + vbExclamation, "Error"
		QuitMe()
	End If
 End Sub

 '/Завершение работы/
 '---------------------------------------------------------------
 Sub QuitMe()
	Set oScrSvc = Nothing
	WScript.Quit()
 End Sub

 
 'Скрипт предназначен для очистки журнала истории Internet Explorer,
 'и основан на вызове интерфейса IUrlHistoryStg2 средствами COM API.
 'ОС WinXP/7

 Option Explicit 

 Dim iAnsw
 Dim oScrSvc, oShellApp
 Dim r
 Dim sPath
 Dim oWindow
 Dim GUID1, GUID2, pVarRes
 Dim lData
 
 '/Контрольное сообщение/
 '---------------------------------------------------------------
 iAnsw = MsgBox("Очистить журнал Explorer?", vbYesNo + vbSystemModal + vbInformation, "Очистка журнала")
 If iAnsw = vbNo Then QuitMe()
 
 'Интерфейс [IUrlHistoryStg2]
 '---------------------------------------------------------------
 Const CLSID_Url = "{3C374A40-BAE4-11CF-BF7D-00AA006946EE}"
 Const UUID_IUrlHistoryStg2 = "{AFA0DC11-C313-11D0-831A-00C04FD5AE38}"

 'Методы интерфейса IUrlHistoryStg2;
 Const IUrlHistoryStg2_Release = 8
 Const IUrlHistoryStg2_ClearHistory = 36

 Const CLSCTX_INPROC_SERVER = 1
 Const CC_STDCALL = 4
 Const S_OK = 0

 '---------------------------------------------------------------
 Set oScrSvc = CreateObject("ScriptService.Service")
 Set oShellApp = CreateObject("Shell.Application")

 '---------------------------------------------------------------
 
 sPath = WScript.ScriptFullName
 sPath = Left(sPath,InStrRev(sPath,"\") - 1)

	'/Навигация, поиск заданного окна Shell Explorer и отображение журнала/
	'-------------------------------------------------------
	oShellApp.Open sPath

	For Each oWindow In oShellApp.Windows
		If InStr(1, LCase(TypeName(oWindow.Document)), "ishellfolderviewdual") <> 0 Then
			If StrComp(oWindow.Document.Folder.Self.Path, sPath, 1) = 0 Then
				oWindow.Application.ShowBrowserBar "{EFA24E62-B078-11D0-89E4-00C04FC9E26E}", True
				Exit For
			End If
		End If
	Next            
	WScript.Sleep(500) 	


'/Запрос интерфейса IUrlHistoryStg2 и вызов его функций/
'---------------------------------------------------------------
 With oScrSvc

	'Выделение памяти
	'-------------------------------------------------------
 	GUID1 = .struct_setval(String(8,Chr(32)))	'8*2=16 итоговое количество байт
 	GUID2 = .struct_setval(String(8,Chr(32)))	'8*2=16 итоговое количество байт
 	pVarRes = .struct_setval(String(2,Chr(32)))	'2*2=4 итоговое количество байт
 
	'-------------------------------------------------------
		.set_vararg 0, 0
		.api_call "OLE32.DLL","CoInitialize", 1

	'Запрос интерфейса
	'-------------------------------------------------------
	.set_strarg 0, CLSID_Url, True	
	.set_vararg 1, GUID1
	r = .api_call("OLE32.DLL","CLSIDFromString",2)
	CheckResult r, "CLSIDFromString"

	.set_strarg 0, UUID_IUrlHistoryStg2, True
	.set_vararg 1, GUID2
	r = .api_call("OLE32.DLL","CLSIDFromString",2)
	CheckResult r, "CLSIDFromString"

	.set_vararg 0, GUID1
	.set_vararg 1, 0
	.set_vararg 2, CLSCTX_INPROC_SERVER
	.set_vararg 3, GUID2
	.set_vararg 4, pVarRes
	r = .api_call("OLE32.DLL","CoCreateInstance",5)
	CheckResult r, "CoCreateInstance"

	lData = .struct_getval(pVarRes, 0, 4)

	'Вызов интерфейсных функций, очистка журнала
	'-------------------------------------------------------
	DispCall lData, IUrlHistoryStg2_ClearHistory
	DispCall lData, IUrlHistoryStg2_Release

	'-------------------------------------------------------
		.api_call "OLE32.DLL","CoUninitialize",0
	'-------------------------------------------------------
	WScript.Sleep(50)
	MsgBox "Журнал очищен.", vbSystemModal + vbInformation, "Очистка журнала"
	QuitMe()
	
 End With

'/Вызов функции интерфейса без аргументов/
'---------------------------------------------------------------
Function DispCall(lClass, iMethod)
 
 Dim res
 res = oScrSvc.struct_setval(String(2,Chr(32)))	'2*2=4 итоговое количество байт
 With oScrSvc
	
 	.set_vararg 0, lClass
	.set_vararg 1, iMethod
	.set_vararg 2, CC_STDCALL
	.set_vararg 3, 0
	.set_vararg 4, 0
	.set_vararg 5, 0
	.set_vararg 6, 0
	.set_vararg 7, res

	r = .api_call("OLEAUT32.DLL","DispCallFunc",8)
	DispCall = .struct_getval(res, 0, 4)

 End With
 CheckResult r, "DispCallFunc"

End Function

'/Проверка ошибки/
'---------------------------------------------------------------
Sub CheckResult(x, sSource)
	If x <> S_OK Then
		MsgBox "Сбой выполнения. Источник" & sSource, vbSystemModal + vbExclamation, "Error"
		QuitMe()
	End If
End Sub

'/Завершение работы/
'---------------------------------------------------------------
Sub QuitMe()
	Set oShellApp = Nothing
	Set oScrSvc = Nothing
	WScript.Quit()
End Sub

<HTML>
<TITLE>USB Watch</TITLE>
<HEAD>
<META HTTP-EQUIV=Content-Type content='text/html;charset=windows-1251'>
<HTA:APPLICATION
CAPTION='YES'
CONTEXTMENU='NO'
INNERBORDER='NO'        
NAVIGABLE='NO'        
SELECTION='NO'        
SHOWINTASKBAR='YES'    
SINGLEINSTANCE='YES'    
SYSMENU='YES'
WINDOWSTATE='normal' 
/>

<STYLE type=text/css>
BODY {cursor: hand; background-color: #c0c0c0;}

INPUT.headbtn     {
            position: absolute;
            left: 10px; 
            width: 150px; 
            height: 20px; 
            border: 1px;
            border-style: outset;
            background-color: #c0c0c0;
            font-family: MS Sans Serif; 
            font-size: 11px;
            font-weight: bold;
            cursor: hand; 
            
        }

</STYLE>
</HEAD>

<BODY SCROLL="NO">

    <!--------------------------------------------------------------------------------->
    <OBJECT ID="ObjSink" 
        STYLE="position:absolute;top:0;left:0;width:0;height:0"
        CLASSID="CLSID:75718C9A-F029-11D1-A1AC-00C04FB6C223">
    </OBJECT>
    
    <INPUT TYPE=BUTTON ID='btn1' 
            class='headbtn' 
            VALUE='Извлечь' style='top: 10px;'
            onclick='UnplugDialog()'>
    <P>
    <INPUT TYPE=BUTTON ID='btn2'
            class='headbtn' 
            VALUE='Выход' style='top: 40px;'
            onclick='window.close();'>
    <!--------------------------------------------------------------------------------->
    <SCRIPT LANGUAGE="VBScript">

        Public StateFlag
        Public sPrevDrivesStr
        Public objService, objProc

        Set objService = GetObject("winmgmts:root\cimv2")
        Set objProc = objService.Get("Win32_Process")
        
        lW = window.screen.width
        lH = window.screen.height
            window.moveTo lW - 180, 0
            window.resizeTo 180, 100
        
        StateFlag = False
        GetDriveLetter False    'Определение первоначального состояния съемных накопителей

        '/Выполнить запрос асинхронного отслеживания WMI/
        '---------------------------------------------------------------------------
        objService.ExecNotificationQueryAsync ObjSink, _
        "SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA ""Win32_USBControllerDevice"""
        
        '/Получение буквы съемного Flash USB диска/
        '---------------------------------------------------------------------------
        Function GetDriveLetter(flg)
            
            Dim sDrivesStr
            Dim sDev
            Dim sCur1, sCur2
            Dim a,b

            On Error Resume Next

            '/Перебор букв дисков/
            '---------------------------------------------------------------------------------
            sDrivesStr = ""
            Set objRemovableDrives = objService.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType = 2")
            
            For Each objDrive In objRemovableDrives
                sDrivesStr = sDrivesStr & CStr(objDrive.DeviceId)
            Next

            '/Выяснение буквы добавленного или удаленного диска/
            '-------------------------------------------------------------------
            If flg = True Then

                a = (Len(sDrivesStr) > Len(sPrevDrivesStr)) 'Добавление устройства
                b = (Len(sDrivesStr) < Len(sPrevDrivesStr)) 'Извлечение устройства
                sCur1 = sDrivesStr
                sCur2 = sPrevDrivesStr

                For Each objDrive In objRemovableDrives

                    sDev = CStr(objDrive.DeviceId)
                    
                    '/Добавление устройства/
                    If a Then
                        If (InStr(sDrivesStr,sDev)<>0) And Not (InStr(sPrevDrivesStr,sDev)<>0) Then GetDriveLetter = sDev: Exit For
                    End If
                    
                    '/Извлечение устройства/
                    If b Then
                        sCur1 = Replace(sCur1, sDev, "")
                        sCur2 = Replace(sCur2, sDev, "")
                    End If

                Next    
                If b Then
                    If Len(sCur1) < Len(sCur2) Then GetDriveLetter = sCur2
                End If
            End If
            '-------------------------------------------------------------------
            sPrevDrivesStr = sDrivesStr
            If Err.Number <> 0 Then GetDriveLetter = ""
            Err.Clear
        
        End Function

        '/Обработка событий вставки-извлечения/
        '---------------------------------------------------------------------------
        Sub ObjSink_OnObjectReady(objWbemObject, objContext)    'Подключение
            
            Dim sEventType, sDepend
            Dim a,b,c

             sEventType = CStr(objWbemObject.Path_.Class)
            sDepend = CStr(objWbemObject.TargetInstance.Dependent)

            '/Условия/
            '-------------------------------------------------------------------
            a = (InStr(1, sEventType, "CreationEvent") <> 0)
            b = (InStr(1, sEventType, "DeletionEvent") <> 0)
            c = (InStr(1, sDepend, "USBSTOR") <> 0)
            
            '-------------------------------------------------------------------
            If a And c Then
                StateFlag = False
                MsgBox "Подключен USB накопитель. [" & GetDriveLetter(True) & "]", vbInformation Or vbSystemModal, "Reply"
                
            End If
            
            If b Then

                If StateFlag Then
                    StateFlag = False
                    If InStr(sDepend,"VID")<>0 Then    MsgBox "USB устройство отстыковано аппаратно.", vbInformation Or vbSystemModal, "Reply"
                End If
    
                If c Then
                    StateFlag = True
                    MsgBox "USB накопитель отключен программно или небезопасно отстыкован. [" & GetDriveLetter(True) & "]", vbInformation Or vbSystemModal, "Reply"
                End If
                    
                
            End If
        End Sub
        
        '/Вызов диалога безопасного извлечения устройства/
        '---------------------------------------------------------------------------
        Sub UnplugDialog()

            On Error Resume Next
            objProc.Create "rundll32.exe shell32,Control_RunDLL hotplug.dll", null, null, pID

        End Sub
        '---------------------------------------------------------------------------
        Function window_onunload()

            ObjSink.Cancel()
            Set objService = Nothing
            Set objProc = Nothing

        End Function

        '---------------------------------------------------------------------------
        Function window_onload()
        
        End Function

    </SCRIPT>
    <!--------------------------------------------------------------------------------->
</BODY>
</HTML>

/*
 Пример инъекции в другой процесс, выполнение функции 
 ExitProcess в адресном пространстве другого процесса с 
 помощью CreateRemoteThread.

 ----------------------------------------------------------------
 Потребуется зарегистрированная библиотека scrsvc.dll
 http://forum.script-coding.com/viewtopic.php?id=8082

 ОС WinXP/7
*/
 
 var oScrSvc = new ActiveXObject('ScriptService.Service');
 
 //Изменяемый параметр - полный путь к запускаемому приложению.
 /*---------------------------------------------------------------*/
 sApp = 'calc'
 
 
 /*---------------------------------------------------------------*/
 PROCESS_TERMINATE = 1
 PROCESS_CREATE_THREAD = 2
 PROCESS_SET_SESSIONID  = 4
 PROCESS_VM_OPERATION  = 8;
 PROCESS_VM_READ = 0x10;
 PROCESS_VM_WRITE = 0x20;
 PROCESS_DUP_HANDLE = 0x40;
 PROCESS_CREATE_PROCESS = 0x80;
 PROCESS_QUERY_INFORMATION = 0x400;

 PAGE_NOACCESS = 1;
 PAGE_READONLY = 2;
 PAGE_READWRITE = 4;
 PAGE_WRITECOPY = 8;
 PAGE_EXECUTE = 0x10;
 PAGE_EXECUTE_READ = 0x20;
 PAGE_EXECUTE_READWRITE = 0x40;
 PAGE_EXECUTE_WRITECOPY= 0x80;
 PAGE_GUARD = 0x100;
 PAGE_NOCACHE = 0x200;

 MEM_COMMIT = 0x1000;
 MEM_RESERVE = 0x2000;
 MEM_DECOMMIT = 0x4000;
 MEM_RELEASE = 0x8000;
 MEM_FREE = 0x10000;
 MEM_PRIVATE = 0x20000;
 MEM_MAPPED = 0x40000;
 MEM_RESET = 0x80000;
 MEM_TOP_DOWN = 0x100000;

 NORMAL_PRIORITY_CLASS = 0x00000020;

 // Запуск процесса
 /*---------------------------------------------------------------*/
 var oWShell = new ActiveXObject('WScript.Shell');
 try
 {
	var oWExec = oWShell.Exec(sApp);
	WScript.Sleep(200);
 }
 catch(e)
 {
	oWShell.PopUp('Произошла ошибка: '+e.description, -1, 'Запуск процесса', 48);
	oWShell = null;
	oScrSvc = null;
	WScript.Quit()
 }
 var PID = oWExec.ProcessID;
 //oWShell.AppActivate(PID);
 WScript.Sleep(200);

 // Выполнение удаленной функции в адресном пространстве процесса
 /*---------------------------------------------------------------*/
 with (oScrSvc)
 {
	
	// Открытие процесса
	/*--------------------------------------------------------*/
	set_vararg(0, PROCESS_CREATE_THREAD + PROCESS_VM_OPERATION + PROCESS_VM_WRITE);
	set_vararg(1, true);
	set_vararg(2, PID);
	hOpen = api_call('KERNEL32.DLL','OpenProcess',3);
 
	// Выделение памяти в адресном пространстве созданного процесса
	set_vararg(0, hOpen);
	set_vararg(1, 0);
	set_vararg(2, 4);
	set_vararg(3, MEM_RESERVE + MEM_COMMIT);
	set_vararg(4, PAGE_EXECUTE_READWRITE);
	hMem = api_call('KERNEL32.DLL','VirtualAllocEx',5);

	// Запись аргумента удаленно вызываемой функции в выделенную память
	sStr = '____'
	vPtr = struct_setval(sStr)
	struct_setval(vPtr, 0, 0, 4); 

	set_vararg(0, hOpen);
	set_vararg(1, hMem);
	set_vararg(2, vPtr);
	set_vararg(3, 4);
	set_vararg(4, 0);
	hRes = api_call('KERNEL32.DLL','WriteProcessMemory',5);

	// Получение адреса удаленно вызываемой функции
	// (это ExitProcess, расположенная в KERNEL32.DLL)
	/*--------------------------------------------------------*/
	set_strarg(0, 'KERNEL32.DLL', true);
	hModule = api_call('KERNEL32.DLL','GetModuleHandleW',1);

	set_vararg(0, hModule);
	set_strarg(1, 'ExitProcess', false);	
	hAPIProc = api_call('KERNEL32.DLL','GetProcAddress',2);


	// Выполнение функции ExitProcess в памяти другого процесса
	/*--------------------------------------------------------*/
	oWShell.PopUp('Выполнение ExitProcess в памяти другого процесса...', 5, 'ExitProcess', 64);

	set_vararg(0, hOpen);
	set_vararg(1, 0);
	set_vararg(2, 0);
	set_vararg(3, hAPIProc);
	set_vararg(4, hMem);
	set_vararg(5, 0);
	set_vararg(6, 0);
	hRemoteThread = api_call('KERNEL32.DLL','CreateRemoteThread',7);

	oWShell.PopUp('Завершено...', 5, 'ExitProcess', 64);
	oWShell = null;
	oScrSvc = null;
	WScript.Quit();
	
 }

Option Explicit

WScript.Echo "Первая строка"
WScript.Echo "Вторая строка"
WScript.Echo "Третья строка"
WScript.Sleep 3000

CLS

WScript.Echo "Четвёртая строка"
WScript.Echo "Пятая строка"
WScript.Echo "Шестая строка"
WScript.Sleep 3000

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub CLS()
    Const WshRunning  = 0
    Const WshFinished = 1
    Const WshFailed   = 2
    
    With WScript.CreateObject("WScript.Shell").Exec("mode.com con: lines=0")
        If .Status <> WshFailed Then
            If .Status = WshRunning Then
                Do Until .Status = WshFinished
                    .StdOut.ReadAll
                    .StdErr.ReadAll
                    
                    WScript.Sleep 100
                Loop
            End If
        End If
    End With
End Sub
'=============================================================================

<html id="appHTA">
    <head>
        <meta charset="windows-1251">
        <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
        <meta http-equiv="Content-Language" content="ru">
        <title>My HTA application</title>
        <hta:Application
            Id="oHTA"
            ApplicationName="My HTA application"
            Border="none"
            Caption="no"
            ContextMenu="no"
            InnerBorder="no"
            MaximizeButton="no"
            MinimizeButton="no"
            Navigable="no"
            Scroll="no"
            ScrollFlat="no"
            Selection="no"
            ShowInTaskbar="no"
            SingleInstance="yes"
            SysMenu="no"
            Version="0.1"
            WindowState="normal"
        />
        <style type="text/css">
            BODY {
                color: WindowText;
                background-color: ButtonFace;
                margin: 0em;
            }
        </style>
    <html>
    
    <body id="tagBody">
        <img id="Splash" width="100%" height="100%">
    </body>
    
    <script language="VBScript">
        Option Explicit
        
        Dim strImgSource
        Dim objStdPicture
        
        With CreateObject("Scripting.FileSystemObject")
            strImgSource = .BuildPath(Replace(.GetParentFolderName(oHTA.commandLine), """", ""), "My file.gif")
            
            If .FileExists(strImgSource) Then
                Set objStdPicture = LoadPicture(strImgSource)
                Splash.src = "file://" & strImgSource
        
                With window
                    .resizeTo Round(objStdPicture.Width / 26.47), Round(objStdPicture.Height / 26.47)
                    .moveTo (.screen.availWidth - tagBody.offsetWidth) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2
                End With
            Else
                MsgBox "Can't find path [" & strImgSource & "].", vbOKOnly & vbExclamation
            End If
        End With
        
        setTimeout "close", 5 * 1000
    </script>
</html>

<html>
<head>
<meta http-equiv=content-type content="text-html; charset=utf-8">
<meta http-equiv=MSThemeCompatible content=yes>
<hta:application
    innerBorder=no
    scroll=no
    selection=no
    contextMenu=no
    singleinstance=yes
>
<title>Get Page with OstroSoft Winsock component</title>
<object id="oWinsock" style="display:none;" classid="CLSID:37F9EE2B-98A7-49D7-B505-94DFCE7FAC60"></object>
<script for="oWinsock" event="OnConnect()" type="text/javascript">
    oWinsock.SendData('GET /' + sPage + ' HTTP/1.0\r\nHost: ' + sHost + '\r\nAccept: text/html\r\n\r\n');
</script>
<script for="oWinsock" event="OnError(Number, Description, Scode, Source, HelpFile, HelpContext, CancelDisplay)" type="text/javascript">
    alert(Number + ': ' + Description);
</script>
<script for="oWinsock" event="OnDataArrival(bytesTotal)" type="text/javascript">
    idSource.insertAdjacentText('BeforeEnd', oWinsock.GetDataBuffer());
    oWinsock.CloseWinsock();
</script>
<script type="text/javascript">

var sPage = '';
var sHost = '';

function Connect(){
    idSource.innerText = "";
    if (/^(\w+?:\/\/)*([^\/:]+):*(\d*)\/*(.*?)$/.test(idURL.value)) {
        sHost = RegExp.$2;
        var nPort = RegExp.$3 || 80;
        sPage = RegExp.$4;

        alert("Host:\t" + sHost + "\nPort:\t" + nPort + "\nPage:\t" + sPage);
        oWinsock.Connect(sHost, nPort);
    } else {
        alert("Invalid URL");
    }
}
</script>
</head>
<body style="background-color:threedface;">
    <table style="width:100%; height:100%">
        <tr>
            <td style="width:100%;"><input id="idURL" type="text" value="http://www.ostrosoft.com/oswinsck.asp" style="width:100%;"></td>
            <td><input type=button onClick="Connect()" value=GetPage hidefocus></td>
        </tr>
        <tr style="height:100%">
            <td colspan="2"><textarea id="idSource" style="width:100%; height:100%"></textarea></td>
        </tr>
    </table>
</body>
</html>

<html>
<head>
<meta http-equiv=content-type content="text-html; charset=utf-8">
<meta http-equiv=MSThemeCompatible content=yes>
<hta:application
    innerBorder=no
    scroll=no
    selection=no
    contextMenu=no
    singleinstance=yes
>
<title>Ports Scanner</title>
<script type="text/javascript">
    window.resizeTo(280, 380);

    var aPorts = [21,22,23,25,80,110,139,143,445,1433,1521,3306,3389,5631,5900];
    var i = 0;

    function CheckNextPort(){
        if (i < aPorts.length){
            var nPort = aPorts[i];
            Logging(nPort + '\t');
            oWinsock.Connect(idHost.value, nPort);
            i++;
        }
    }

    function Logging(text){
        idLog.insertAdjacentText('BeforeEnd', text);
    }
</script>
</head>
<body style="background-color:threedface;">
    <table style="width:100%; height:100%">
        <tr>
            <td>Host:</td>
            <td style="width:100%;"><input id="idHost" type="text" value="127.0.0.1" style="width:100%;"></td>
            <td><input type=button onClick="idLog.innerText=''; CheckNextPort()" value=CheckPorts hidefocus></td>
        </tr>
        <tr style="height:100%">
            <td colspan="3"><textarea id="idLog" style="width:100%; height:100%"></textarea></td>
        </tr>
    </table>
</body>
<object id="oWinsock" style="display:none;" classid="CLSID:37F9EE2B-98A7-49D7-B505-94DFCE7FAC60"></object>
<script type="text/javascript">
    function oWinsock::OnConnect(){
        oWinsock.CloseWinsock();
    }

    function oWinsock::OnError(){
        Logging('CLOSE\n');
        CheckNextPort();
    }

    function oWinsock::OnClose(){
        Logging('OPEN\n');
        CheckNextPort();
    }
</script>
</html>

(function()
{
    var names = ['floor', 'ceil', 'round'];

    for (var i = 0; i < names.length; i++) {
        var name = names[i];
        (function(name, method)
        {
            //Math[name] = 
            Math[name + 'Modulo'] = 
            function(value, modulo)
            {
                return arguments.length < 2 
                    ? method(value) 
                    : method(value / modulo) * modulo;
            };
        })(name, Math[name]);
    }
})();

// Floor
Math.floorModulo(5, 5); // 5
Math.floorModulo(6, 5); // 5
Math.floorModulo(7, 5); // 5
Math.floorModulo(8, 5); // 5
Math.floorModulo(9, 5); // 5
Math.floorModulo(10, 5); // 10

// Ceil
Math.ceilModulo(5, 5); // 5
Math.ceilModulo(6, 5); // 10
Math.ceilModulo(7, 5); // 10
Math.ceilModulo(8, 5); // 10
Math.ceilModulo(9, 5); // 10
Math.ceilModulo(10, 5); // 10

// Round
Math.roundModulo(5, 5); // 5
Math.roundModulo(6, 5); // 5
Math.roundModulo(7, 5); // 5
Math.roundModulo(8, 5); // 10
Math.roundModulo(9, 5); // 10
Math.roundModulo(10, 5); // 10

// Несколько способов создания одного объекта
var net = new NetIP('192.168.1.100/24');
var net = new NetIP('192.168.1.100/255.255.255.0');
var net = new NetIP('192.168.1.100/0.0.0.255');

// Определение принадлежности адреса данной подсети
WScript.Echo(net.contains('192.168.1.200));

:: преобразовать в html
doc2html filename.doc

:: аналогично первому, но с выводом отладочной информации на консоль
doc2html filename.doc /v

:: аналогично первому, но WinWord запускается на переднем плане
doc2html filename.doc /fg

:: преобразовать в текстовый файл в формате DOS (cp866)
doc2html filename.doc /f:txt /e:866

:: преобразовать в FictionBook для чтения в электронных книжках
doc2html filename.doc /f:fb2

Dim objWsNet, objFS, objWMI
Dim strDomain, strBaseFolder, blnContinue, xResult
Dim strAccountOld, strSIDOld, strAccountNew, strSIDNew

strAccountOld = "user1": strAccountNew = "user2"
strBaseFolder = "C:\Temp"
Set objWsNet = CreateObject("WScript.Network")
strDomain = objWsNet.UserDomain
Set objWsNet = Nothing
Set objFS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
If Err.Number = 0 Then
    If objFS.FolderExists(strBaseFolder) Then
        If StrComp(strDomain & "\" & strAccountOld, strDomain & "\" & strAccountNew, vbTextCompare) <> 0 Then
            Set objAccount = objWMI.Get("Win32_UserAccount.Domain='" & strDomain & "',Name='" & strAccountOld & "'")
            If Err.Number = 0 Then
                strSIDOld = UCase(objAccount.SID)
                Set objAccount = objWMI.Get("Win32_UserAccount.Domain='" & strDomain & "',Name='" & strAccountNew & "'")
                If Err.Number = 0 Then
                    strSIDNew = UCase(objAccount.SID)
                    xResult = Change_Trustee(objWMI, strDomain, strAccountOld, strSIDOld, strAccountNew, strSIDNew, strBaseFolder)
                    WScript.Echo strAccountOld & " <-> " & strAccountNew & ": " & xResult
                Else
                    WScript.Echo strAccountNew & " -> не найдена учётная запись объекта"
                End If
            Else
                WScript.Echo strAccountOld & " -> не найдена учётная запись объекта"
                Err.Clear
            End If
            Set objAccount = Nothing
        Else
            WScript.Echo strAccountOld & " <-> " & strAccountNew & ": бессмысленная операция"
        End If
    Else
        WScript.Echo "Не найден путь " & UCase(strBaseFolder)
    End If
Else
    WScript.Echo "Ошибка " & Err.Number & " при подключении к WMI-пространству" & vbNewLine & Err.Description
    Err.Clear
End If
Set objWMI = Nothing
Set objFS = Nothing
WScript.Quit 0

'======

Function Change_Trustee(objWMIServ, strDom, strSAN1, strSID1, strSAN2, strSID2, strDir)
Dim objSecSettings, objSD, objItem, blnHasInherited
Dim objSID, objTrustee, arrACE, arrLines, xRes, i, j
Const SE_DACL_PROTECTED = 4096 'Флаг-признак отключенного режима наследования управляемым каталогом безопасности NTFS от "родителя"
Const INHERITED_ACE = 16 'Флаг-признак того, что текущая запись DACL унаследована от "родителя"

On Error Resume Next
xRes = 0
Set objSecSettings = objWMIServ.Get("Win32_LogicalFileSecuritySetting.Path='" & strDir & "'")
If Err.Number = 0 Then
    If objSecSettings.GetSecurityDescriptor(objSD) = 0 Then
        If Not IsNull(objSD.DACL) Then
            If Not CBool(objSD.ControlFlags And SE_DACL_PROTECTED) Then blnHasInherited = True
            arrACE = Array(): i = -1: arrLines = Array(): j = -1
            '--- Выборка из исходного DACL записей, не унаследованных от "родителя",
            'и поиск среди них (по SID) тех, которые привязаны к заменяемой пользовательской "учётке"
            For Each objItem In objSD.DACL
                If Not CBool(objItem.AceFlags And INHERITED_ACE) Then
                    If UCase(objItem.Trustee.SIDString) = strSID1 Then
                        j = j + 1
                        ReDim Preserve arrLines(j)
                        arrLines(j) = i + 1
                    End If
                    i = i + 1
                    ReDim Preserve arrACE(i)
                    Set arrACE(i) = objItem
                End If
            Next
            Set objItem = Nothing
            '------
            If j >= 0 Then
                If blnHasInherited Then
                    '--- Отключение наследования настроек безопасности от "родителя"
                    objSD.ControlFlags = objSD.ControlFlags + SE_DACL_PROTECTED
                    xRes = objSecSettings.SetSecurityDescriptor(objSD)
                    '------
                End If
                If xRes = 0 Then
                    '--- Создание экземпляра класса "Win32_Trustee",
                    'привязанного к заменяющей пользовательской "учётке"
                    Set objSID = objWMI.Get("Win32_SID.SID='" & strSID2 & "'")
                    Set objTrustee = objWMIServ.Get("Win32_Trustee").Spawninstance_
                    objTrustee.Domain = strDom
                    objTrustee.Name = strSAN2
                    objTrustee.SID = objSID.BinaryRepresentation
                    objTrustee.SidLength = objSID.SidLength
                    objTrustee.SIDString = strSID2
                    Set objSID = Nothing
                    '------
                    '--- Замена объекта класса "Win32_Trustee" у обрабатываемых записей DACL
                    For j = 0 To UBound(arrLines)
                        arrACE(arrLines(j)).Trustee = objTrustee
                    Next
                    '------
                    objSD.DACL = arrACE 'собственно изменение DACL
                    Erase arrACE: Erase arrLines
                    '--- Включение наследования настроек безопасности от "родителя", если первоначально оно было включено
                    If blnHasInherited Then objSD.ControlFlags = objSD.ControlFlags - SE_DACL_PROTECTED
                    '------
                    '--- Итоговое сохраненение изменений, внесённых в дескриптор безопасности
                    xRes = objSecSettings.SetSecurityDescriptor(objSD)
                    Select Case xRes
                        Case 0: xRes = "успешное завершение"
                        Case 2: xRes = "не удалось сохранить изменения DACL (доступ запрещён)"
                        Case 5, 9: xRes = "не удалось сохранить изменения DACL (для выполнения операции недостаточно полномочий)"
                        Case 21: xRes = "не удалось сохранить изменения DACL (заданы недопустимые значения параметров)"
                        Case Else: xRes = "не удалось сохранить изменения DACL (неизвестная ошибка)"
                    End Select
                    '------
                Else
                    xRes = "не удалось отключить наследование безопасности"
                End If
            Else
                xRes = "не обнаружено не унаследованных записей исходного объекта"
            End If
            Set objTrustee = Nothing
        Else
            xRes = "список управления доступом пуст"
        End If
    Else
        xRes = "не удалось прочитать дескриптор безопасности объекта"
    End If
    Set objSD = Nothing
    Set objSecSettings = Nothing
Else
    xRes = "ошибка " & CStr(Err.Number) & vbNewLine & Err.Description
    Err.Clear
End If
On Error GoTo 0
Change_Trustee = xRes
End Function