script doesnt map on windows 7 64 bit

I have the following script running for all my 32 bit machines how ever when i add a 64 bit PC to the domain the script does not map the public share ? does anyone have any insight on this?  Below is my code

Set objWSHNet = CreateObject("WScript.Network")
On Error Resume Next
objWSHNet.MapNetworkDrive "S:", "\\canonsp01\publicfolders"
if err.number=0 then
  sDrive = "S:\"
  Set oShell = CreateObject("Shell.Application")
  oShell.NameSpace(sDrive).Self.Name = "Public Folders"
end if
hdrive = "H:\"
oShell.NameSpace(hDrive).Self.Name = "My Home Drive"