中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 请高手帮忙转成vbs

zxxhwlkj
初级用户

积分 21
发帖 18
注册 2006-9-18
状态离线

『楼主』: 请高手帮忙转成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

2007-9-29 10:33

wudixin96
银牌会员

积分 1928
发帖 931
注册 2007-1-6
状态离线

『第 2 楼』:

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

2007-9-29 10:47

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: