中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-09-25 23:02

共 47,813 主题排行 / 349,918 发帖 / 今日 0 篇 / 48,275 会员排行

DOS批处理 & 脚本技术（批处理室） » 请高手帮忙转成vbs

可打印版本　793 / 1

第1楼　zxxhwlkj	发表于 2007-09-29 10:33
初级用户　发帖 18　积分 21
请高手帮忙转成vbs @echo off echo. 请输入瑞星升级服务器的IP 如：192.168.1.100 echo. echo. set ip= if exist rav.exe set name=rav if exist rfwmain.exe set name=rfw echo echo off >smartup.inf echo set server1=\\%ip%\rising$\%name%\update\ >>smartup.inf exit

第2楼　wudixin96	发表于 2007-09-29 10:47
银牌会员　发帖 931　积分 1,928
Dim fso,name,f,ip ip=InputBox("请输入瑞星升级服务器的IP 如：192.168.1.100","输入","192.168.1.100") ip=Trim(ip) Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists("rav.exe")) Then name="rav" If (fso.FileExists("rfwmain.exe")) Then name="rfw" Set f = fso.CreateTextFile("smartup.inf", True) f.WriteLine("echo off") f.WriteLine("set server1=\\"&ip&"\rising$\"&name&"\update\") f.Close set fso=nothing set f=nothing

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023