Проверьте точно путь "%ALLUSERSPROFILE%\AppData\Roaming\Microsoft\Netwo r k\Connections\Pbk.

Я бы подставил:
Set WshSysEnv = WshShell.Environment("Process")
filename = WshSysEnv("SYSTEMDRIVE")+ WshSysEnv("HOMEPATH")+ "\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pb k"