' On Error Resume Next
Const strURL = "http://***.txt"
Dim objXMLHTTP, objFSO
' Http get set info
Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")
objXMLHTTP.open "GET", strURL & "?" & Now(), False
objXMLHTTP.send()
If Err.Number <> 0 Then
' WScript.Echo "Error: " & Err.Number
Set objXMLHTTP = Nothing
Err.Clear
Else
WScript.Echo objXMLHTTP.responseText
strHttpResult = Split(objXMLHTTP.responseText, " ")
strDomainName = Trim(strHttpResult(0))
strIp = Replace(Trim(strHttpResult(1)), vbLf, "")
Set objXMLHTTP = Nothing
' Update hosts
Dim strNewContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
strHostFile = objFSO.GetSpecialFolder(1) & "\drivers\etc\hosts"
strHostBackFile = objFSO.GetSpecialFolder(1) & "\drivers\etc\hosts.bak"
objFSO.CopyFile strHostFile, strHostBackFile
Set objFile = objFSO.OpenTextFile(strHostFile, ForReading, False)
Do Until objFile.AtEndOfStream
strLine = objFile.Readline
strLine = Trim(strLine)
If Not(InStr(1, strLine, Chr(9) & strDomainName, 1) > 0 Or InStr(1, strLine, Chr(32) & strDomainName, 1) > 0) Then
strNewContents = strNewContents & strLine & vbCrLf
End If
Loop
strNewContents = strNewContents & strIp & Chr(9) & strDomainName
objFile.Close
Set objFile = objFSO.OpenTextFile(strHostFile, ForWriting)
objFile.Write strNewContents
objFile.Close
Set objFSO = Nothing
End If
引用
分享到:
相关推荐
vbs 的post上传表单示例.vbs用http"WinHttp.WinHttpRequest.5.1"可伪造cookie
vbs从sqlserver数据库导出数据成execl
通过vbs进行数据校验,并把不符合要求的数据通过excel进行展现
VBS更改桌面源码 VBS更改桌面源码 VBS更改桌面源码 VBS更改桌面源码
wincc中通过vbs写excel
VBS代码自动更改计算机名,大家可以下载下来学习下原理。
TIA博途WINCC中通过VBS脚本执行向文件中读写数据的具体操作步骤
本文主要介绍了在WinCC中如何使用VBS脚本访问变量归档数据,并且获得数据使用Excel模版保存新文件,其中包括两个代码文本文档
如何在WINCC中基于VBS实现对EXCEL文件中数据的读写?
vbs HTTP.txt
VBS 批量修改文件名 VBS 批量修改文件名 VBS 批量修改文件名
wincc 通过VBS脚本对串口通讯,打开串口,发送数据,接收数据
更改DNS vbs脚本 好用 需要一个修改DNS为校内DNS更改DNS vbs脚本 好用 需要一个修改DNS为校内DNS
VBS取QQ-TM号码的自动登录命令行.vbs 妙用脚本清除电脑中的痕迹.vbs 后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工具.vbs 中文姓名笔画计算(VBS脚本版).vbs 利用VB编写文本朗读精灵.vbs 。...
VBS 更改文件名程序,用于对文件名进行更名,快捷
在WinCC中如何使用VBS读取变量归档数据到EXCEL
vbsvbs的基础,html编程的基础,vbsvbs的基础,html编程的基础
让vbs通过调用excel模拟鼠标点击的一个案例,目前vbs无法直接控制鼠标,曲线救国!
这是一个最简单的用VBS控制串口的示例程序,想学习VBS的朋友可以参考一下。文字不多,只有十行,配有简单的文字说明。
VBS自动更换IP.vbs 'VBS自动更换IP Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Set oIE = CreateObject("InternetExplorer.Application") for i=1 to 5 wsh.run "Rasdial /DISCONNECT",false,1 wsh....