error bij numlock aan logon script

[apen]

hallo allen,

gisteren als test een logon script in het active directory doorgevoerd, op 1 afdeling van ongeveer 15 pc's.
bij 1 hiervan kwam een visual basic error terwijl bij de rest geen probleem was, kan het zijn dat er een foutje in het script zit die alleen op een bepaald iets vastloopt? muizen en toetsenborden zijn niet gestandaardiseerd.

het script:

Function IsNumLocked() 
 Dim oWrd 
 Set oWrd = CreateObject("Word.Application") 
 IsNumLocked = oWrd.Numlock 
 oWrd.Application.Quit True 
End Function 

x = IsNumlocked
if not x < 0 then
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
End If

bij voorbaat dank.

 

[wampier]

het is afhankelijk van een correcte installatie van de "office" COM objecten en de uitvoering daarvan. Ook de windows script host moet werken en aanwezig zijn.