Eu tinha um script de trabalho para clientes Windows XP, distribuído por meio da diretiva de grupo do PDC do Windows Server 2003.
Esta é a parte principal do script:
Function ggMapNetworkDrive(fDriveLetter, fShareName, fDrives, fWSHNet)
'Map a network drive
Dim lExist
lExist = -1
For i = 0 to fDrives.Count - 1 Step 2
If fDrives.Item(i) = fDriveLetter Then
lExist = i
End If
Next
If lExist = -1 Then
'no drive, map us a drive
fWSHNet.MapNetworkDrive fDriveLetter, fShareName
Else
If fDrives.Item(lExist+1) = fShareName Then
'do nothing, mapped to right point
Else
'is mapped somewhere else; remove then map then add again
fWSHNet.RemoveNetworkDrive fDriveLetter, False, True
fWSHNet.MapNetworkDrive fDriveLetter, fShareName
End If
End If
End Function
Como fazer o acima no Windows 7?
EDITAR:
Mensagem de erro ...
Script: \full-path-to-script\logon.vbs
Line: (line containing 'fWSHNet.MapNetworkDrive fDriveLetter, fShareName')
Char: 2
Error: The network path was not found
Code: 80070035
Source: WSHNetwork.MapNetworkDrive
Após uma inspeção mais detalhada, vejo que há algo errado com a rede, aqui estão os sintomas: o ping e a resolução de endereço funcionam, o acesso a todos os computadores no mesmo segmento funciona como esperado, mas somente o acesso ao PDC (windows 2003) não está funcionando como esperado (conforme experimentado pelos clientes win XP).
EDIT2:
Eu fiz uma alteração no MapNetworkDrive para mapear para o FQDN e permitiu que o script fosse executado. Ainda o acesso a \ server sem o domínio ainda não foi restaurado.