Your question, your audience. Choose who sees your identity—and your question—with question security.
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
If CInt(objItem.BuildNumber) < 7601 Then
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("iexplore.exe ""\\server\share\YourPage.htm""")
WScript.Sleep 30000
objExec.Terminate
End If
Next
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join the community of 500,000 technology professionals and ask your questions.