Le script de connexion VBS ne fonctionne pas correctement

Question

J'ai un script de connexion qui vérifie une clé de registre et si la clé est introuvable, il exécute un script qui crée une signature Outlook à partir d'info dans AD puis ajoute une clé au registre. Le script a fonctionné parfaitement sur environ 20 machines sur lesquelles je l'ai testé, mais cela ne fonctionne pas correctement sur 3 machines. Pour ces 3 machines, il passe la vérification de la clé reg puis lance le script sigcreate mais saute la création réelle et ajoute simplement la clé reg. Est-ce que je manque quelque chose?

On Error Resume Next 

Set objSysInfo = CreateObject("ADSystemInfo") 

Set WshShell = CreateObject("WScript.Shell") 

strUser = objSysInfo.UserName 
Set objUser = GetObject("LDAP://" & strUser) 

strName = objUser.FullName 
strTitle = objUser.Description 
strCred = objUser.info 
strStreet = objUser.StreetAddress 
strLocation = objUser.l 
strPostCode = objUser.PostalCode 
strPhone = objUser.TelephoneNumber 
strMobile = objUser.Mobile 
strFax = objUser.FacsimileTelephoneNumber 
strEmail = objUser.mail 

Set objWord = CreateObject("Word.Application") 

Set objDoc = objWord.Documents.Add() 
Set objSelection = objWord.Selection 

Set objEmailOptions = objWord.EmailOptions 
Set objSignatureObject = objEmailOptions.EmailSignature 

Set objSignatureEntries = objSignatureObject.EmailSignatureEntries 

objSelection.Font.Name = "Arial" 
objSelection.Font.Size = 11 
if (strCred) Then objSelection.TypeText strName & ", " & strCred Else 
objSelection.TypeText strName 
objSelection.TypeParagraph() 
objSelection.TypeText " " & strTitle 
objSelection.TypeText Chr(11) 
objSelection.TypeText " " & strPhone 
objSelection.TypeText Chr(11) 
objSelection.TypeText Chr(11) 
objSelection.TypeText "Company Name" 
objSelection.TypeText Chr(11) 
objSelection.TypeText "Company Tagline" 
objSelection.TypeText Chr(11) 
objSelection.TypeText Chr(11) 
objSelection.TypeText "Company Website" 



Set objSelection = objDoc.Range() 

objSignatureEntries.Add "Standard Signature", objSelection 
objSignatureObject.NewMessageSignature = "Standard Signature" 

objDoc.Saved = True 
objWord.Quit 

Set oShell = CreateObject("Wscript.Shell") 

sRegFile = "\\file1\users\Clerical\wallpaper\siglock.reg" 
oShell.Run "regedit.exe /s " & Chr(34) & sRegFile & Chr(34), 0, True 

Answer 1

Problème résolu .... apparemment il y avait des restes de Word 2000 sur ces 3 machines ... i nettoyé et que fixé mon problème