vbscript non trova più il percorso

[trittico69]

salve, anni fa tramite forum, non ricordo quale, mi feci aiutare a creare un file che mi ripetesse le funzioni uguali che tutte le mattine faccio.
sono totalmente inesperto nel campo
ha funzionato a meraviglia fino a qualche giorno fa che hanno sostituito i tutti i fili della rete e relativi swic.
in pratica il file non trova più il percorso dei file excel che deve aprire sistematicamente ogni mattina, anche se il precorso sembra apparentemente lo stesso.

non so se qulacuno di voi riuscirà ad aiutarmi
l'errore che da è
impossibile accedere al file
"\\cedinfoserver\ufficioposta\nuovacartella\rubrig agedet.xsml

Dim shell                                              
Set shell = wscript.CreateObject("Shell.Application")                          
shell.Open ("\\Cedinfoserver")                                      
WScript.Sleep 5000                                          
dim os                                                  
set OS = WScript.CreateObject("WScript.Shell")                                                        
'os.SendKeys "ddiquattro"                                                                              
'WScript.Sleep 1000                                                                                    
'OS.SendKeys "{tab}"                                                                                   
'WScript.Sleep 1000                                                                                    
'OS.SendKeys "alba"                                          
'OS.SendKeys "{ENTER}"                                          
'WScript.Sleep 1000                                                                                    
Set XL = CreateObject("EXCEL.APPLICATION")                                                            
XL.Visible = true                                                                                     
XL.AskToUpdateLinks = False                                                                           
XL.DisplayAlerts = False                                      
XL.AskToUpdateLinks = False                                                                           
set oShell = CreateObject("WScript.Shell")                                                            
oShell.SendKeys"%{F4}"                                                                                
Set wB = XL.Workbooks.Open ("C:\Users\nome\Desktop\SERVIZIO 2021.XLS")                  
XL.DisplayAlerts = False                                                                              
XL.ActiveWorkBook.SaveAs ("g:\SERVIZIO 2021.XLS")                           
XL.ActiveWorkBook.SaveAs ("\\Cedinfoserver\UfficioPosta\nuova cartella\servizio 2021.xls")            
XL.ActiveWorkBook.SaveAs ("C:\Users\nome\Desktop\SERVIZIO 2021.XLS")                    
XL.DisplayAlerts = False                                      
XL.AskToUpdateLinks = False                                                                           
set oShell = CreateObject("WScript.Shell")                                                            
oShell.SendKeys"%{F4}"                                                                                
Set XL = CreateObject("EXCEL.APPLICATION")                                                            
XL.Visible = true                                                                                     
XL.AskToUpdateLinks = False                                                                           
XL.DisplayAlerts = False                                                                              
Set wB = XL.Workbooks.Open ("\\cedinfoserver\UfficioPosta\Nuova cartella\rubricagedet.xlsm")          
XL.AskToUpdateLinks = False                                                                           
XL.DisplayAlerts = False                                                                              
xl.run ("rubricagedet.xlsm!avvia")                                                                    
WScript.Sleep 1000                                                                                    
XL.AskToUpdateLinks = False                                                                              '
XL.DisplayAlerts = False                                                                              
XL.ActiveWorkBook.SaveAs "C:\Utenti\nome\Desktop\RUBRICAgedet.XLSm"                      
XL.ActiveWorkBook.SaveAs ("g:\rubricagedet.XLSm")                                                     
XL.ActiveWorkBook.SaveAs ("\\Cedinfoserver\Ufficio Posta\nuova cartella\rubricagedet.xlsm")                
XL.AskToUpdateLinks = False                                                                         
XL.DisplayAlerts = False