log on script help

[watts3000]

Can someone tell me why this is not working. To be exact the accounting and shipping drives map but the home folders do not work.

Dim WSHNetwork
Set WSHNetwork = WScript.CreateObject("WScript.Network")

WSHNetwork.MapNetworkDrive "m:", "\\dc1\accounting"
WSHNetwork.MapNetworkDrive "S:", "\\dc1\shipping"
WSHNetwork.MapNetworkDrive "k:", "\\dc1\home folders\%username%"