Rem 打开一个word文档
'Sub OpenWordFile(filespec)
'Dim ObjWD,ObjDOC
'Set ObjWD=CreateObject("Word.application")
'Set ObjDOC=ObjWD.Documents.Open(filespec)
'ObjWD.Visible=True
'End Sub
Rem 打开一个e...
多的不说,会用的各位测试~ fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,"")) with createobject("adodb.stream") .type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str) end with sll=sl mod 65536...
c
Set WshShell = WScript.CreateObject("WScript.Shell") pro ="C:\Documents and Settings\Administrator\桌面\11.bat" WshShell.Run chr(34) & pro & chr(34),0 为隐藏
set WshShell = WScript.CreateOb...
