核心代码:

If WScript.Arguments.UnNamed.Count <> 1 Then Syntax 
If WScript.Arguments.Named.Count > 1 Then Syntax 
blnTd = False 
If WScript.Arguments.Named.Count = 1 Then 
If UCase( WScript.Arguments.Named( 0 ) ) = "/TD" Then 
blnTd = True 
Else 
Syntax 
End If 
End If 
strISBN = WScript.Arguments.UnNamed( 0 ) 
strPgTitle = TitleFromHTML( "http://www.amazon.com/gp/product/" & strISBN & "/" ) 
strPattern = "Amazon.com: (.*): Books: (.*)$" 
strTitle = RegExpVal( strPattern, strPgTitle, 0 ) 
strAuthor = RegExpVal( strPattern, strPgTitle, 1 ) 
If blnTd Then 
strMsg = strISBN & vbTab & strTitle & vbTab & strAuthor & vbCrLf 
Else 
strMsg = vbCrLf & "Title : " & strTitle _ 
& vbCrLf & "Author : " & strAuthor _ 
& vbCrLf & "ISBN : " & strISBN 
End If 
WScript.Echo strMsg 
Function RegExpVal( strPattern, strString, idx ) 
On Error Resume Next 
Dim regEx, Match, Matches, RetStr 
Set regEx = New RegExp 
regEx.Pattern = strPattern 
regEx.IgnoreCase = True 
regEx.Global = True 
Set Matches = regEx.Execute( strString ) 
RegExpVal = Matches( 0 ).SubMatches( idx ) 
End Function 
Function TitleFromHTML( strURL ) 
Set ie = CreateObject( "InternetExplorer.Application" ) 
ie.Navigate strURL 
Do Until ie.ReadyState = 4 
WScript.Sleep 10 
Loop 
TitleFromHTML = ie.Document.Title 
ie.Quit 
End Function 
Sub Syntax 
strMsg = strMsg & vbCrLf & "BookFind.vbs, Version 1.11" & vbCrLf _ 
& "Display book title and author name for the specified ISBN number." & vbCrLf & vbCrLf _ 
& "Usage: CSCRIPT //NOLOGO BOOKFIND.VBS isbn [ /TD ]" & vbCrLf & vbCrLf _ 
& "Where: ""isbn"" is the ISBN (or ASIN) of the book to search for" & vbCrLf _ 
& " /TD changes the output format to tab delimited" & vbCrLf & vbCrLf _ 
& "Note: This script uses Amazon's web site to look up author and title." & vbCrLf _ 
& " To be precise, the data is extracted from the title of the page" & vbCrLf _ 
& " with URL http://www.amazon.com/gp/product/ followed by the ISBN." & vbCrLf _ 
& " That means this script will fail when Amazon changes the URLs." & vbCrLf & vbCrLf _ 
& "Written by Rob van der Woude" & vbCrLf _ 
& "http://www.robvanderwoude.com" 
Wscript.Echo( strMsg ) 
Wscript.Quit( 1 ) 
End Sub 

使用方法:
CSCRIPT //NOLOGO BOOKFIND.VBS isbn [ /TD ]
Where: "isbn" is the ISBN (or ASIN) of the book to search for
/TD changes the output format to tab delimited
Note: This script uses Amazon's web site to look up author and title.
To be precise, the data is extracted from the title of the page
with URL http://www.amazon.com/gp/product/ followed by the ISBN.
That means this script will fail when Amazon changes the URLs.

VBS脚本和BAT批处理删除自身的方法
VBS脚本和BAT批处理自身删除的方法（自杀）删除自身之：VBS把下面的脚本保存为selfkill.vbs或selfkill.vbe：Setfso=CreateObject("Scripting.FileSystemObject")f=fso.DeleteFile

VBS字符串的内部实现
最近对VBS字符串Chr(0)注①截断讨论得比较多，看来有必要介绍一下VBS字符串的内部实现。Demon友情提示：本文需要一些C语言和Windows编程的知识，VBScript

ASP/VBScript中CHR(0)的由来以及带来的安全问题分析
该字符标识着字符串的结束，也称作null-terminated，这个给脚本编程尤其是ASP编程带来了一定的麻烦，很多人可能会问为什么要保留这个特殊字符，我们