Сценарий входа в VBS не работает правильно - PullRequest
Новая
       4

Сценарий входа в VBS не работает правильно

0 голосов
/ 15 октября 2010

У меня есть сценарий входа, который проверяет наличие ключа реестра, и, если ключ не найден, он запускает сценарий, который создает подпись outlook на основе информации в AD, а затем добавляет ключ в реестр. Скрипт отлично работает на 20 машинах, на которых я его тестировал, однако на 3 машинах он работает некорректно. Для этих 3 машин он проходит проверку на ключ reg, затем запускает скрипт sigcreate, но пропускает фактическое создание и просто добавляет ключ reg. Я что-то упустил? 

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

1 Ответ

0 голосов
/ 15 октября 2010

Проблема решена .... по-видимому, на этих 3 машинах были некоторые остатки Word 2000 ... я его почистил, и это исправило мою проблему

...