' VBScript
' Find the URLs of the currently running Internext Explorer Windows ' References:
' https://windowssdk.msdn.microsoft.com/en-us/library/ms630310.aspx
' https://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/objects/internetexplorer.asp Const IE_EXE = "iexplore.exe" Call FindCurrentURLs(strURLSet)
WScript.Echo strURLSet wscript.quit(0) Function FindCurrentURLs(ByRef strURLSet)
Dim objShell, objWindowSet, objWindow
Dim strwindowName, strURL, strFullName Set objShell = CreateObject("Shell.Application") ' Create a Windows shell automation object
Set objWindowSet = objShell.Windows ' Get the collection of open windows belonging to the shell Wscript.Echo "Processing " & objWindowSet.Count & " windows" ' Report how many instances were found For Each objWindow in objWindowSet ' For each InternetExplorer object in the ShellWindows set
strFullName = objWindow.FullName ' Get the full path and executable of this window
If InStr(1, strFullName, IE_EXE, 1) <> 0 Then ' Is this an IE shell object?
strURL = objWindow.LocationURL ' Get the URL If strURL <> "" Then
strURLSet = strURLSet & vbCRLF & strURL ' Append to the set of URLs
End If
Else ' No, probably explorer.exe skip
WScript.Echo "Skipped " & strFullName & " – not IE"
End If
Next If Len(strURLSet) >= Len(vbCRLF) Then strURLSet = Right(strURLSet, Len(strURLSet) – Len(vbCRLF)) ' Strip the leading vbCRLF
Set objShell = Nothing
Set objWindowSet = Nothing : Set objWindow = Nothing
End Function
——————-
Thanks,
https://sccm07.blogspot.com/
