Click here for important information about

VBS change homepage on all comps in network

Dell Latitude 2100 netbook - customizabl...
December 28, 2009 at 03:26:50
Specs: Windows XP, 2 Gb
Hi all great forum, great people
I need your help masters:
The task is - to set the intranet-site of the company on all computers in the local network (more than 350)
The local user shouldn't have possibility to change it.
I am planning to realize it by VBscript.

What we have:
No domen
No antivirus
All comps using only IE browser
Because there is no domen every computer uses different logins and passwords (all logins are with administrator rights)

So I have wrote a small VBScript which changes two registry keys sets the intranet site as a homepage and blocks the field where the user change it.

What I need now:
is to write another script or update the current to work through the network and run automaticaly.
I just need to run it on any computer in local network and it should run automaticaly on anothers comps something like Warm/Virus but for peaceful purposes)))
so in my vision it should be something like that

but may be it is another solution?

See More: VBS change homepage on all comps in network

December 29, 2009 at 04:12:34
no answers? anyone? ))

Report •

January 1, 2010 at 09:15:30
The local user shouldn't have possibility to change it.
(all logins are with administrator rights)
Your task is impossible. You can inconvenience the user, but nothing more.

Because there is no domen every computer uses different logins and passwords
This makes things extremely difficult. Even if you have a list of a valid logon and password for every PC, you still need to make sure WSH will allow remote execution of a script. Without AD, there's no easy way to do that.

Report •

January 1, 2010 at 11:37:04
There is a way to do this (but there is no way, really, to prevent a knowledgeable user from changing it back), but since everyone is an admin, this is going to be a PITA make happen. You don't even need VBS... Batch will work fine, but parsing through all of the users in a box is also going to be a PITA... it might be a better idea to reference a small batch file in HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run to change the Homepage of the user at login.

Report •

Related Solutions

January 12, 2010 at 09:40:38
I have found another solution, to scan the local network via Netowrk Connection and if the script will find the shared folders and copy to every of them two files
So there is the first part of the script which the acanning the network and shared folders but i have no idea how to make a second part, if the shared folder was found copy files to it.

Set objNetwork = CreateObject("Shell.Application").NameSpace(&H12) ' получение объекта "Сетевое окружение"
Set objEntireNetwork = objNetwork.Items().Item("EntireNetwork").GetFolder ' получение объекта "Вся сеть"
For Each objNetItem In objEntireNetwork.Items()
If objNetItem.Name = "Microsoft Windows Network" Then
Set objMSWinNetwork = objNetItem.GetFolder ' получение объекта "Microsoft Windows Network"
Exit For
End If

For Each objMSNetItem In objMSWinNetwork.Items()
WScript.Echo objMSNetItem.Name & ":"
Set objDomain = objMSNetItem.GetFolder ' получение объекта WORKGROUP или DOMAIN
For Each objDomainItem In objDomain.Items()
WScript.Echo vbTab & "\\" & objDomainItem.Name
Set objComputer = objDomainItem.GetFolder ' получение объекта Computer
For Each objCompItem In objComputer.Items()
If objCompItem.IsFileSystem Then
WScript.Echo vbTab & vbTab & objCompItem.Name
End If

Report •

Ask Question