Question : Change the Provider Order in My Network Places

OK, this one is probably impossible. Window XP > My Network Places > Properties > Advanced > Advanced Settings > Provider Order.
I have 700 machines that need to have the Microsoft Windows Network at the top of the list. Not everyone's list is the same based on whatever is installed on their systems. How can I automate this?

Answer : Change the Provider Order in My Network Places

Save the file below as "providers.vbs".  Run it on every computer.

'provider.vbs
Dim objShell
Set objShell = CreateObject("WScript.Shell")

Dim providers
providers = objShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\NetworkProvider\Order\ProviderOrder")

If Left(providers, 17) <> "LanmanWorkstation" Then
    providers = Replace(providers, ",LanmanWorkstation", "")
    providers = "LanmanWorkstation," & providers
End If

objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\NetworkProvider\Order\ProviderOrder", providers, "REG_SZ"

Set objShell = Nothing
Random Solutions  
 
programming4us programming4us