startup script to run IE at startup only if on corporate network

Posted on 2008-06-18
Medium Priority
Last Modified: 2010-04-21
I want to be able to launch IE at startup to our internal main sharepoint page when people start their computers.  However since this site is not outward facing I wanted to know if there is a way I can script something so it first looks for a server or IP or anything else that would always be connected while on our network, this way if they are a laptop user it does not try to launch IE when they are off the network.  Is this possible?
Question by:Tim Lewis
LVL 38

Accepted Solution

Shift-3 earned 1000 total points
ID: 21815463
The script below (largely cribbed from http://www.microsoft.com/technet/scriptcenter/resources/qanda/oct07/hey1012.mspx) checks the computer's IP address.  If the first three octets match those of your corporate network then it launches the webpage.  This should be adequate unless you're using CIDR or have multiple disparate subnets, in which case it gets more complicated.

Paste the script below into a text file with a .vbs extension.  Customize the value of the strCorporate variable with first three octets of your corporate network.  Customize the value of the strHomepage variable with the URL of your Sharepoint page.

If you want to specify two octets instead of three (e.g. 10.100) then edit line 15 accordingly.

On Error Resume Next
strCorporate = "10.0.100"
strHomepage = "http://sharepoint.yourdomain.com"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery _
	("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
	For Each objAddress in objItem.IPAddress
		arrIPAddress = Split(objAddress, ".")
		If arrIPAddress(0) <> 0 AND arrIPAddress(0) <> 169 Then
			strNetwork = arrIPAddress(0) & "." & arrIPAddress(1) & "." & arrIPAddress(2)
			Exit For
		End If
	Exit For
If strNetwork = strCorporate Then
	Set objShell = CreateObject("WScript.Shell")
End If

Open in new window


Author Closing Comment

by:Tim Lewis
ID: 31468495
Great.  Thanks.

Featured Post

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

Question has a verified solution.

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 & Write a Comment

Native ability to set a user account password via AD GPO was removed because the passwords can be easily decrypted by any authenticated user in the domain. Microsoft recommends LAPS as a replacement and I have written an article that does something …
Seizing the Operation Master Roles in Windows Server 2016 in case of FSMO holder failure.
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …
Are you ready to implement Active Directory best practices without reading 300+ pages? You're in luck. In this webinar hosted by Skyport Systems, you gain insight into Microsoft's latest comprehensive guide, with tips on the best and easiest way…

624 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question