'获取已初始化Soap对象 
Public Function GetSoapClient(sURL) 

Dim oSoap 
Set oSoap = CreateObject("MSSOAP.SoapClient") 
oSoap.mssoapinit sURL 
Set GetSoapClient = oSoap 
End Function 

'用户绑定对应序列号 
sub BindCodeNumber() 

Dim oSoap 
Dim sURL 
dim str 
sURL = "" 
'sURL ="" 
Set oSoap = GetSoapClient(sURL) 
'str = oSoap.HelloWorld() 
Set oSoap = Nothing 
'msgbox str 

End sub 
BindCodeNumber 

VBScript 算一算你从出生到现在共计多少天
VBScript算一算你从出生到现在共计多少天.msgboxDateDiff("d","1/25/1981",Date)1.新建一个记事本，输入上面内容。2.存为.vbs文件。3.双击执行。其实呢，算算你的

VBS操作Excel常见方法
dimoExcel,oWb,oSheetSetoExcel=CreateObject("Excel.Application")SetoWb=oExcel.Workbooks.Open("E:其他新装电话表.xls")SetoSheet=oWb.Sheets("Sheet1")MsgBoxoSheet.Range("B2").Value'#提取单元

VBS 批量读取文件夹内所有的文本到Excel的脚本
'ThiscodeisdonebyKangKang@Optionexplicit‘Thisisoptional,butbettertouse.DimFolderPath,FolderDimfso,File,FilesDimfileNumsDimFileString()DimiDimiii=0FolderPath="E:TDDOWNLOADaa"'*********************