Const HKEY_CURRENT_USER = &H80000001 

strComputer = "." 

Set objRegistry = GetObject("winmgmts:\" & strComputer & "rootdefault:StdRegProv") 

strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionExplorerRunMRU" 
objRegistry.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValueNames, arrValueTypes 

For Each strValue in arrValueNames 
If Len(strValue) = 1 Then 
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValue,strRunCommand 
intLength = Len(strRunCommand) 
strRunCommand = Left(strRunCommand, intLength - 2) 
Wscript.Echo strRunCommand 
End If 
Next 

emule自动关机脚本
dir="E:Temp"Setfso=CreateObject("Scripting.FileSystemObject")cmd="shutdown-s-f-t60"Setws=WScript.CreateObject("WScript.Shell")Wscript.Echo"emule自动关机脚本已运行……"count=0dountilcount-1

IE中用VBScript不提示直接打印的代码
首先在HTML页面中加入WebBrowser的Object:OBJECTclassid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"height=0id=wbname=wbwidth=0/OBJECT之后，使用如下代码进行打印：scriptlanguage="VB

vbs引用另一个vbs的代码
第一个页面：htmlheadscriptlanguage="VBScript"SubHello()Document.All.myScriptlet.HelloEndSub/script/headbodyonload="Hello()"OBJECTID="myScriptlet"TYPE="text/x-scriptlet"DATA="2.htm"HEIGHT="0"WIDT