Компьютерный форум NoWa.cc - Показать сообщение отдельно - Как автоматически отключить explorer при запуске Win

dmitry_a · 17.09.2009, 15:54

Скрипт будет смотреться примерно таким

Код:

Dim objShell, regvariable
Set objShell = CreateObject("WScript.Shell")
regvariable = "explorer.exe"
If objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\shell")<> regvariable Then
objShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\shell", regvariable, "REG_SZ" 
End If

Писался под условие, хотя там и писать вообщем-то нечего было.

17.09.2009, 15:54	#8
dmitry_a Постоялец Пол: Регистрация: 11.04.2007 Сообщений: 285 Репутация: 85	Re: Как автоматически отключить explorer при запуске Win Скрипт будет смотреться примерно таким Код: Dim objShell, regvariable Set objShell = CreateObject("WScript.Shell") regvariable = "explorer.exe" If objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\shell")<> regvariable Then objShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\shell", regvariable, "REG_SZ" End If Писался под условие, хотя там и писать вообщем-то нечего было.