碰到虚拟机的时候,还是能偷点懒的 :-) 复制代码 代码如下: On Error Resume Next Set Arg=Wscript.Arguments If Arg.count=0 then Wscript.quit ''code by NetPatch ''enjoy it Set Fso=CreateObject('Scripting.FileSystemObject') Set Gofile=Fso.OpenTextFile(Arg(0),1,false,-2) Do while G

如何创建名为 SpellNumber 的示例函数 启动 Microsoft Excel。 按 Alt+F11 启动 Visual Basic 编辑器。 在“插入”菜单上，单击“模块”。 在模块表中键入下面的代码。 复制代码 代码如下: Option Explicit ''Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim

于是研究了一会。写出个粗糙的DEMO。 exe2hex.vbs //xiaolu写的exe2vbs ，我修改成直接拖放,转成十六进制 ================================================ 复制代码 代码如下: ''code by xiaolu ''change by NetPatch on error resume next set arg=wscript.arguments if arg.count=0 then wscript.quit do w

复制代码 代码如下: on error resume next SelectFolder function SelectFolder() Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject('Shell.Application') Set objFolder = objShell.Namespace(MY_COMPUTER) Set objFolderIte

复制代码 代码如下: ''脚本说明 ''code by NP ''outDateFile变量为要写入的数据库名字 ''Tables变量为Access数据库中的表名 ''ROW变量为Access数据库中的列名 ''Excel中的数据，直接为要写入的数据，不需要标题一类的 ''例如：要写入数据库的列名为 '' 系别|班别|姓名|学号|性别|政治面貌|出生年月|身份证号码|家庭地址|生源

之前无聊整理出来了一份这个东西，因为在单位给新入职的员工配电脑时，需要登记一遍设备，可每次总要查感觉挺麻烦，结果下面的这份VBS脚本就诞生了，只可惜这个脚本做好了却没派上用场哎。。。 这个脚本的功能是运行后自动将查询到的计算机相关信息记录到一个文档中，然后在经过FTP将生成的文件上传至服务器保存，最后在清除

复制代码 代码如下: strComputer = '.' Set objWMIService = GetObject('winmgmts:' _ & '{impersonationLevel=impersonate}!\\' _ & strComputer & '\root\cimv2') Set colFiles = objWMIService. _ ExecQuery('Select * from CIM_DataFile where Extension = ''mp3''') For Ea

更改 复制代码 代码如下: Set WshShell = Wscript.CreateObject('Wscript.Shell') WshShell.Environment('user').Item('path')='c:\ruby' 移除： 复制代码 代码如下: WshShell.Environment('USER').Remove('LAST_LOGIN_DATE') 附记一下这两个： 复制代码 代码如下: Set objAD = CreateObject('ADSystemIn