中国DOS联盟

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