Nogen der kan kaste lidt lys over dette problem

Jeg har lavet en tilføjelse til vores loginscript, som gør at den henter nogle oplysninger fra computeren og det skal så skrives på computer objektet i vores AD.

Den ændring jeg har lavet virker fint for mig, men når jeg kører loginscriptet på en anden brugers pc. Sker der ikke noget. Hvis jeg sætter Debug = "Yes" få jeg ikke den sidste besked, som fremgår i nedenstående kode på andres computer.

Det er den part hvor der skal skrives til AD, som ikke bliver gennemført.

objComputer.put ....
objComputer.SetInfo

Mv
Kenneth

------------

Sub Main
    Call InitEnv
    Call ADWriteDescription
    Call CleanUpEnv
End Sub 'Main



Sub InitEnv
    strComputer = "."
    Set ADSysInfo = CreateObject("ADSystemInfo")
    Set objComputer = GetObject("LDAP://" & ADSysInfo.ComputerName)
    Set objWMIserviceBIOS = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    set lcolitems = objWMIserviceBIOS.ExecQuery("Select * from Win32_BIOS",,48)
    Set objWMIServiceComputerSystem = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set lcolmodel = objWMIServiceComputerSystem.ExecQuery("SELECT * FROM Win32_ComputerSystem")
End Sub 'InitEnv

Sub CleanUpEnv
    Set WSHShell = Nothing
    Set OBJREG = Nothing
    Set ADSysInfo = Nothing
    Set objComputer = Nothing
    Set objWMIserviceBIOS = Nothing
    Set lcolitems = Nothing
    Set objWMIServiceComputerSystem = Nothing
    Set lcolmodel = Nothing
End Sub 'CleanUpEnv

Sub ADWriteDescription
    'On Error Resume Next
    SelectYourAttribute = "description"
    WriteToYourAttribute= "Hello World!"
    DebugMode = "No"
   
    if DebugMode = "Yes" Then
        MsgBox ("Your Attribute=" + "objComputer" + "." + SelectYourAttribute)
        objAttribute = eval("objComputer" + "." + SelectYourAttribute)
        MsgBox("Change AD attribute for current workstation (" & ADSysInfo.ComputerName & "), Attribute old value: (" & objAttribute & "), Attribute new value: (" & WriteToYourAttribute & ")")
    End If
    For each lobjitem in lcolitems
        ServiceTag = lobjitem.serialnumber
        lBIOSRev = lobjitem.SMBIOSBIOSVersion
    Next
    For Each lobjitem in lcolmodel
        lstrModel = lobjitem.model
    Next
    if DebugMode = "Yes" Then 
        MsgBox ServiceTag & " | " & lBIOSRev & " | " & lstrModel & " | " & mid(objComputer.get("managedBy"),4,InStr(objComputer.get("managedBy"),",")-4)
    End If

        objComputer.Put "description", ServiceTag & " | " & lBIOSRev & " | " & lstrModel & " | " & mid(objComputer.get("managedBy"),4,InStr(objComputer.get("managedBy"),",")-4)
        objComputer.SetInfo
   
    if DebugMode = "Yes" Then 
        MsgBox("Script has reached its end.")
    End If
    'On Error Goto 0
End Sub 'ADWriteDescription