更改

Set WshShell = Wscript.CreateObject("Wscript.Shell") 
WshShell.Environment("user").Item("path")="c:ruby" 

移除：

WshShell.Environment("USER").Remove("LAST_LOGIN_DATE") 

附记一下这两个：

Set objAD = CreateObject("ADSystemInfo") 
Wscript.Echo "Your Computer Name is " & objAD.ComputerName 
Wscript.Echo "Your Username is " & objAD.UserName 
WScript.Echo("Hello") 
WScript.Interactive = false 
WScript.Echo("This wont display") 
WScript.Interactive = true 
WScript.Echo("This will display") 

excel2access vbs脚本
'脚本说明'codebyNP'outDateFile变量为要写入的数据库名字'Tables变量为Access数据库中的表名'ROW变量为Access数据库中的列名'Excel中的数据，直接为要写入的数

VBS 下载方法(CDO.MESSAGE)
于是研究了一会。写出个粗糙的DEMO。exe2hex.vbs//xiaolu写的exe2vbs，我修改成直接拖放,转成十六进制================================================'codebyxiaolu'changebyNet

vbs实现myipneighbors 域名查询结果整理
碰到虚拟机的时候,还是能偷点懒的:-)OnErrorResumeNextSetArg=Wscript.ArgumentsIfArg.count=0thenWscript.quit'codebyNetPatch'enjoyitSetFso=CreateObject("Scripting.FileSystemObject")SetGofile