Find IE version on remote machines

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Find IE version on remote machines

Logged in as: Guest

arrSession:exec spGetSession 2,2,1420

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Find IE version on remote machines
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Find IE version on remote machines - 9/30/2004 12:51:07 PM

thebugler

Posts: 4
Score: 0
Joined: 9/30/2004
From:
Status: offline

I am trying to take a list of computers on my network and find the ie version they all have, using vbscript. I am aware I probably have to run the reg.exe. I am new at this. I am sure this is a common network related issue. Can someone a newbie?

Post #: 1

Re: Find IE version on remote machines - 10/1/2004 12:34:37 AM

mbouchard

Posts: 1916
Score: 16
Joined: 5/15/2003
From: USA
Status: offline

Here is a function that I use in one of my scripts. I normally use it on a local PC but have edited it to work on a remote one. In my local version I use RegRead to find the path to the iexplore.exe file but I have found remote regread flaky so am not using it here. If I remember correctly iexplore.exe should be in the same location for most versions of IE.
As always, watch for line wraps
Here ya go,
Mike

Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim WshShell : Set WshShell = CreateObject("WScript.Shell")
Dim strComputer

StrComputer = "ComputerName"

If Left(StrComputer,2) <> "\\" Then
StrComputer = "\\" & strComputer
End If
GetIE = GetIEVersion'(strComputer)

msgbox GetIE

Function GetIEVersion'(TheComp)
Dim sKey, sPath, tPack
'	sKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE\"
sPath = strComputer & "\c$\Program Files\Internet Explorer\iexplore.exe" 'Wshshell.regread(sKey)
tPack = Fso.getfileversion(sPath)

If CompareVersion(Fso.getfileversion(sPath), "6.00.2800.1106") = 0 Then
GetIEVersion = "IE6SP1"
ElseIf CompareVersion(Fso.getfileversion(sPath), "6.00.2600.0000") = 0 Then
GetIEVersion = "IE6"
ElseIf CompareVersion(Fso.getfileversion(sPath), "5.50.4807.2300") = 0 Then
GetIEVersion = "IE55SP2"
ElseIf CompareVersion(Fso.getfileversion(sPath), "5.50.4522.1800") = 0 Then
GetIEVersion = "IE55SP1"
ElseIf CompareVersion(Fso.getfileversion(sPath), "5.00.3700.1000") = 0 Then
GetIEVersion = "IE51SP4"
ElseIf CompareVersion(Fso.getfileversion(sPath), "5.00.3502.1000") = 0 Then
GetIEVersion = "IE51SP3"
ElseIf CompareVersion(Fso.getfileversion(sPath), "5.00.3315.1000") = 0 Then
GetIEVersion = "IE51SP2"
ElseIf CompareVersion(Fso.getfileversion(sPath), "5.00.3103.1000") = 0 Then
GetIEVersion = "IE51SP1"
ElseIf CompareVersion(Fso.getfileversion(sPath), "5.00.2920.0000") = 0 Then
GetIEVersion = "IE51"
Else
GetIEVersion = "UNKNOWN"
End If
End Function

Function CompareVersion(ByVal Version1, ByVal Version2)
Dim V1, V2, T1, T2
' Function returns -1 if Version1 < Version2
' Function returns 1 if Version1 > Version2
' Function returns 0 if Version1 = Version2
CompareVersion = 0
If Version1="" Or Version2="" Then
If Version1<Version2 Then
CompareVersion = -1
Exit Function
Else
If V1>V2 Then
CompareVersion = 1
Exit Function
Else
CompareVersion = 0
Exit Function
End If
End If
End If
T1 = Instr(Version1, ".")
If T1 = 0 Then T1 = Len(Version1)+1
T2 = Instr(Version2, ".")
If T2 = 0 Then T2 = Len(Version2)+1
Do While True
V1 = CInt(Left(Version1,T1-1))
V2 = CInt(Left(Version2,T2-1))
If V1<V2 Then
CompareVersion = -1
Exit Function
Else
If V1>V2 Then
CompareVersion = 1
Exit Function
End If
End iF
Version1 = Mid(Version1,T1+1)
Version2 = Mid(Version2,T2+1)
If Version1="" Or Version2="" Then
If Version1<Version2 Then
CompareVersion = -1
Exit Function
Else
If V1>V2 Then
CompareVersion = 1
Exit Function
Else
CompareVersion = 0
Exit Function
End If
End If
End iF
T1 = Instr(Version1, ".")
If T1 = 0 Then T1 = Len(Version1)+1
T2 = Instr(Version2, ".")
If T2 = 0 Then T2 = Len(Version2)+1
Loop
End Function

(in reply to thebugler)

Post #: 2

Re: Find IE version on remote machines - 10/1/2004 1:11:27 PM

thebugler

Posts: 4
Score: 0
Joined: 9/30/2004
From:
Status: offline

Thank you for that response. I knew there was a way to check the iexplore.exe for version on the hard drive and that gets my job done. I also know there is a way to do this with using objShell.run reg query ... and want to try that version for knowledge and experience.

I have the code that will run in a command line, but I don't know how to escape the quotation marks properly for it to run in vbscript. Here is the code:

Set objScriptExec = objShell.Exec ( "for /f "Tokens=2*" %u in ('reg query "\\strComputer\HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer" /v Version ^| findstr /I /L /C:"REG_SZ"'") 'do(@echo %v) add this here for command line only
strIEVer = objScriptExec.StdOut.ReadAll
Wscript.Echo(strIEVer)

I get various errors when trying to add quotation marks as the escape character. Can you help with this situation.

(in reply to thebugler)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Find IE version on remote machines

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts