Помощь для подлючения сетевого диска

 net use j: \\ipaddr\%username% [\code]

Данный вариан работает включительно window7.
но уже не работает в windows8 

im objNetwork 
Dim strDriveLetter, strRemotePath 

Set wshNetwork = WScript.CreateObject("WScript.Network") 
username=wshNetwork.Username

Set colDrives = WSHNetwork.EnumNetworkDrives

For i = 0 To colDrives.Count - 1 Step 2 
        If (colDrives(i) = "M:") then
         wshNetwork.RemoveNetworkDrive "M:" 
        End If 


Next
    
strDriveLetter = "M:" 
strRemotePath = "\\nas0\"&username
wshNetwork.MapNetworkDrive strDriveLetter,strRemotePath 


i=0
Set colDrives = WSHNetwork.EnumNetworkDrives

 данный вариант работает если его просто запустить с рабочего стола, но не работает из gpo. 
Подскажите еще готовые варианты