ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: cofe2000

请教一个vbs的问题?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-1-12 08:51 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
以下是引用cofe2000在2005-1-11 21:17:00的发言:

发现文件本身已经复制到c盘,但计划任务中没有添加进去,请问一下“At还需不需要什么参数”这个东西应该查什么帮助文件呢?是windows的帮助还是msdn?

以前没有碰到过这种问题,请多指教!!

==============================

我在第一个回帖中已经明确说了——

只能在win2K或XP或2003中找帮助文件,原因就是只有这三个系统中才有“AT”命令,Win98与WinMe中没有AT命令当然就不能进行“计划任务”添加了。

直接在2K或XP或2003中找“命令行命令”的帮助就可以看到了,不需要用MSDN.

AT命令还支持远程添加计划任务——一些脚本“木马”就是用这个方法来自我运行的。我上面这个脚本应该说已有了“蠕虫”之“”的功能如果再添点有破坏性的东东,就是“”了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-12 09:59 | 显示全部楼层

谢谢,老大能否给个好玩的虫虫给咱开开眼

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-12 10:05 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

请再帮忙看一下

由于我要的功能和上面有些出入

自己给改了一下,但是测试不成功,2000系统下

我要将c盘的一个文本文件每隔一段时间备份一下,这样的话就不是复制自己了

我改成aaaa="at" & chr(9) & b_tm & chr(9)& WScript.ScriptFullName

但是这样后最后一句就通不过,是否不能这样写啊?

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-12 10:13 | 显示全部楼层

呵呵,有点得寸进尺:)

再问个比较复杂一点的问题

这个文件由于我要开机就运行,时间一长文件太多不好,能否给加个自动根据日期建目录的功能(如果没有自动建立一个,有则直接写进当日目录),将一天的数据放在同一个文件夹里面(即将每天的数据分开存放)

先谢啦,您就当练练手

[em04][em04]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-12 10:16 | 显示全部楼层

搜索“命令行命令”出现如下,没有帮助啊

以下是引用七叶一枝梅在2005-1-12 8:51:00的发言:

==============================

我在第一个回帖中已经明确说了——

只能在win2K或XP或2003中找帮助文件,原因就是只有这三个系统中才有“AT”命令,Win98与WinMe中没有AT命令当然就不能进行“计划任务”添加了。

直接在2K或XP或2003中找“命令行命令”的帮助就可以看到了,不需要用MSDN.

AT命令还支持远程添加计划任务——一些脚本“木马”就是用这个方法来自我运行的。我上面这个脚本应该说已有了“蠕虫”之“”的功能如果再添点有破坏性的东东,就是“”了。

[此贴子已经被作者于2005-1-12 10:18:23编辑过]

请教一个vbs的问题?

请教一个vbs的问题?

搜索“命令行命令”出现如下,没有帮助啊

搜索“命令行命令”出现如下,没有帮助啊

TA的精华主题

TA的得分主题

发表于 2005-1-12 10:27 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-12 10:46 | 显示全部楼层

谢谢版主

我自己又作了一下还是不行,请帮忙看一下

A_dat=date a_tm=time s=cstr(A_dat)&" "&cstr(a_tm) s=Replace(s,":","-") 'k=msgbox(s) 'A_s="C:\"& s & ".vbs" A_s="C:\"& cstr(A_dat) & "\" & s & ".txt" Set so=CreateObject("Scripting.FileSystemObject") Set f1 = so.GetFile("C:\test.txt") 'so.GetFile(WScript.ScriptFullName).Copy(A_s)'' '********************************** If Dir("c:\" & cstr(A_dat))<>"" Then MsgBox "存在" Else MsgBox "不存在" Dim fso, fldr Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.CreateFolder("C:\" & cstr(A_dat)) End If '********************************** f1.Copy(A_s) b_tm=a_tm + #0:02# 'aaaa="at" & chr(9) & b_tm & chr(9)& A_S aaaa="at" & chr(9) & b_tm & chr(9)& WScript.ScriptFullName 'k=msgbox(aaaa) set ws=WScript.CreateObject("WScript.shell") ret=ws.run(aaaa ,0,"true")

TA的精华主题

TA的得分主题

发表于 2005-1-12 12:38 | 显示全部楼层
以下是引用cofe2000在2005-1-12 10:13:00的发言:

这个文件由于我要开机就运行,

如果是这样的话,我希望你把你的问题说得再详细些:要备份什么文件?为什么每隔一小时就要备份的原因是什么?

我怀疑你要的这个效果根本不需要使用VBS,win2K\XP\2003都支持直接记录LOG日志文件甚至可以按秒记,说不定你要的功能仅仅说是这个LOG效果。

另外,图:

请教一个vbs的问题?

请教一个vbs的问题?

请教一个vbs的问题?

请教一个vbs的问题?

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-12 13:15 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

1、要备份什么文件?

是我公司的一个管理系统的文件,是txt的

2、为什么每隔一小时就要备份的原因是什么?

备份的原因就是它每隔一段时间要更新一下这个文本文件,更新的时候把原来的都擦掉了,我备份的目的就是想要分析的时候方便调用

由于属于公司机密文件,不方便上传这个文件。

谢谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-12 13:20 | 显示全部楼层
请问您说的“直接记录LOG日志文件”的方法怎么用啊,对我来说又是一个新鲜的事物,请多指教!!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-15 16:31 , Processed in 0.035866 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表