Benutzername und Beschreibung in ADS Computerbeschreibung eintragen

Hallo,
ich hätte gerne, wenn sich ein Benutzer in der Domäne anmeldet, dass sich sein Benutzername in die Computerbeschreibung des PC´s einträgt. Gleichzeitig soll aber auch in der Computerbeschreibung in der Active Directory der Loginname und das was in der Beschreibung des Benutzers steht eingetragen werden. (z.B.: Backoffice)

Da ich kein Programmierer bin, hoffe ich das mir von Euch jemand helfen kann.
Ich habe ein VB-Script das ich aber gerne als KIXtart-Script haben möchte.
D.h. der VB-Code soll in KIX-Code umgeschrieben werden.


VB-Code----------------------------------------------

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Dim WshShell

Set objSysInfo = CreateObject("ADSystemInfo")
Set objComputer = GetObject("LDAP:" & objSysInfo.ComputerName)
Set objUser = GetObject("LDAP:" & objSysInfo.UserName)
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objRegistry = GetObject _
("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"
strValueName = "srvcomment"
strDescription = objUser.Description & "-" & objuser.CN

objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription

strMessage = objUser.Description & " " & objuser.CN

objComputer.Description = strMessage
objComputer.SetInfo

WshShell.Run "cmd /C net stop server /Y", 2, true


WshShell.Run "cmd /C net start server", 2, true


WshShell.Run "cmd /C net start computerbrowser", 2, true



Danke