|
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
|
|
|
|