程序代码：

objFileName = Replace(InputBox("1111", "2222", "proxyCtrl"), "\", "\\")
If objFileName = "" Then WScript.Quit
Set ws = CreateObject("WScript.Shell")
Set fs = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from CIM_DataFile where FileName='uninst' And ExtensiOn='bat' And path like '%\\" & objFileName & "\\'")
If fs.Count = 0 Then
MsgBox "没找到。", vbInFOrmatiOn
WScript.Quit
ElseIf fs.Count > 1 Then
MsgBox "找到" & fs.Count & "个，点“确定”继续。", vbInFOrmatiOn
End If
FOr Each f In fs
If MsgBox("是否打开 " & f.Name & " ？", vbYesNo + vbQuestiOn) = vbYes Then
ws.Run Chr(34) & f.Name & Chr(34), , True
inst = Replace(f.Name, "uninst.bat" , "install.bat" ,1,-1,1)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set a = FSO.OpenTextFile(inst).ReadAll
s = "snetcfg -l .\netsf_m.inf -c s -i xl_ppoepcmp"
FSO.OpenTextFile("inst", 2).Write Replace(a, s, "")
ws.Run Chr(34) & inst & Chr(34)
End If
Next