Sammenligne tekstfil med verdi

[Thor.]

Jeg leter etter en måte der jeg kan bruke if kommandoen (Eller annen) til og hente versjonsdata fra en side (Ganske simpelt).

Det ser slik ut:

 

Meny.bat

@echo off
Echo Henter versjonsinfo...
cscript versjon.vbs //nologo > Versjon.txt
Type versjon.txt
if Versjon.txt == 1.00 echo hei
Echo Ny versjon. Vil du laste ned?
:Start
echo fortsatte
pause

 

Versjon.vbs

set http = CreateObject("Microsoft.XmlHttp")
http.open "GET", "http://home.no.net/yoshigut/versjon/index.htm", false
http.send ""
wscript.Echo http.responseText

 

Hvordan kan jeg få batch til og sammenligne resultatet fra nettet med egen versjon?

[GeirGrusom]

Øh, kan du ikke bare gjøre det i VBS scriptet da?

[Thor.]

Kan bare batch :/

[aadnk]

Slik kan det gjøres i VBScript:

' Benyttes for å åpne nettleservinduet

Set oShell = WScript.CreateObject("WSCript.Shell")

 

Version = HTTPGetText("http://home.no.net/yoshigut/versjon/index.htm")

 

If Version = "1.00" Then

    ' Du kan godt fjerne følgende linje, om ønskelig

    MsgBox "Du har allerede den nyeste versjonen.", vbInformation, Version

Else

    If MsgBox("Version " & Version & " har kommet ut. Vil du laste ned denne?", _

    vbYesNo + vbQuestion, "Ny versjon") = vbYes Then

        oShell.Run "http://www.google.com/" ' Endre til din side

    End if

End If

 

' *** Hjelpefunksjoner ***

Function HTTPGetText(URL)

 

    Set oHTTP = WScript.CreateObject("Microsoft.XmlHttp")

 

    oHTTP.open "GET", URL, false

    oHTTP.send ""

 

    ' Returner tekstrespons (en kan også returnere XML-dokumentet)

    HTTPGetText = oHTTP.responseText

 

End Function

[Thor.]

Er en stund siden nå men takk skal du ha

 

Kan denne meldingen komme i cmd vinduet istedet for i popup? Det ser bedre ut i mitt tilfelle