VB Script does not map network drives on Vista

Need some help with VB logon script mapping network drives with Vista. Did some research on the problem, tried the launchapp.wsf in the GPO, this did not work. I'm thinking that something is wrong with my VB script. The script works fine on a Windows XP machine and it also runs fine just running the script from the desktop, but just on running it from GPO logon. The code is below.

'Logon Script for Group Policy
'Functions - Map Drives, add and remove icons to desktop
'Running Track-it inventory on machines on start up

'Start of Script
'On Error Resume Next
'Setting Variables
Dim objNetwork
Dim objShell
Dim strDesktop
Dim objShortcut
Dim objURL
Dim oShell
Dim audit
Set objNetwork = CreateObject("WScript.network")
Set objShell = WScript.CreateObject("WScript.Shell")
Set oShell = CreateObject("WScript.Shell")

'Getting Time for display message
sTime = Time
'Getting User Information to display in message
strUser = objNetwork.UserName
strHost = objNetwork.ComputerName

'Mapping Drives
objNetwork.MapNetworkDrive "F:", "\\Server1\SYS"
objNetwork.MapNetworkDrive "K:", "\\server2\DCSI"
objNetwork.MapNetworkDrive "p:", "\\server3\Applications"
objNetwork.MapNetworkDrive "T:", "\\server4\Quadrant"
'objNetwork.MapNetworkDrive "V:", "\\server5\SYS\Users\" & strUser & ""

'Create Shortcuts
strDesktop = objShell.SpecialFolders("Desktop")
'----------------------------------------PlantWide Documents-------------------------
Set objShortcut = objShell.CreateShortcut(strDesktop & "\PlantwideDocuments.lnk")
With objShortcut
      .TargetPath = objShell.ExpandEnvironmentStrings("F:\ISO\OVERVIEW\System.igx")
      .WorkingDirectory = objShell.ExpandEnvironmentStrings("F:\ISO\OVERVIEW")
      .WindowStyle = 1
      .IconLocation = objShell.ExpandEnvironmentStrings("c:\Program Files\iGrafx\pro\12.0\Flow.exe, 0")
      .Save
End With
'----------------------------------------Key Measures--------------------------------
Set objShortcut = objShell.CreateShortcut(strDesktop & "\keymeasures.lnk")
With objShortcut
      .TargetPath = objShell.ExpandEnvironmentStrings("F:\GROUP\STRGPLAN\KEYMEAS\keymeas.igx")
      .WorkingDirectory = objShell.ExpandEnvironmentStrings("F:\GROUP\STRGPLAN\KEYMEAS")
      .WindowStyle = 1
      .IconLocation = objShell.ExpandEnvironmentStrings("c:\Program Files\iGrafx\pro\12.0\Flow.exe, 0")
      .Save
End With
'-----------------------------------------Scar Database------------------------------
Set objShortcut = objShell.CreateShortcut(strDesktop & "\Scar.mdb.lnk")
With objShortcut
      .TargetPath = objShell.ExpandEnvironmentStrings("F:\Group\MSG\C-a_Data\Scar.mdb")
      .WorkingDirectory = objShell.ExpandEnvironmentStrings("F:\F:\Group\MSG\C-a_Data\")
      .WindowStyle = 1
      '.IconLocation = objShell.ExpandEnvironmentStrings("c:\Program Files\Microsoft Office\Office\MSACCESS.exe, 0")
      .IconLocation = objShell.ExpandEnvironmentStrings("c:\Program Files\Microsoft Office\Office12\MSACCESS.exe, 0")
      .Save
End With
'-----------------------------------------Corrective Actions-------------------------
Set objShortcut = objShell.CreateShortcut(strDesktop & "\CorrectiveAction.mdb.lnk")
With objShortcut
      .TargetPath = objShell.ExpandEnvironmentStrings("F:\Group\MSG\C-a_Data\CorrectiveAction.mdb")
      .WorkingDirectory = objShell.ExpandEnvironmentStrings("F:\F:\Group\MSG\C-a_Data\")
      .WindowStyle = 1
      '.IconLocation = objShell.ExpandEnvironmentStrings("c:\Program Files\Microsoft Office\Office\MSACCESS.exe, 0")
      .IconLocation = objShell.ExpandEnvironmentStrings("c:\Program Files\Microsoft Office\Office12\MSACCESS.exe, 0")
      .Save
End With
'-----------------------------------------Maintenance Requests------------------------
Set objShortcut = objShell.CreateShortcut(strDesktop & "\Maintenance Requests.mdb.lnk")
With objShortcut
      .TargetPath = objShell.ExpandEnvironmentStrings("F:\GROUP\Maintenance\Public\Maintprojects.mdb")
      .WorkingDirectory = objShell.ExpandEnvironmentStrings("F:\F:\Group\MSG\C-a_Data\")
      .WindowStyle = 1
      '.IconLocation = objShell.ExpandEnvironmentStrings("c:\Program Files\Microsoft Office\Office\MSACCESS.exe, 0")
      .IconLocation = objShell.ExpandEnvironmentStrings("c:\Program Files\Microsoft Office\Office12\MSACCESS.exe, 0")
      .Save
End With
''''''''''''''''''''''''''''''''''WINS
Set objURL = objShell.CreateShortcut(strDesktop & "\WINS.url")
      objURL.TargetPath = "http://www.wins-inc.com/company/"
         objURL.Save

'Call Audit32.exe
Set oShell = CreateObject("WScript.Shell")
audit = "\\aecapp\trackit80\audit32.exe"
Call oShell.Run(audit,0,True)

'Display Message
MsgBox "Welcome to Company " & strUser & ", The Time is " & sTime & " You are now logged onto " & strHost & "."
Start Free Trial