Skeep

I have been a huge fan of Skeep. It helps me all the time in my daily routine. Too bad the project got abandoned. Some discussion here. Anyways I needed a place to dump my findings that I could not find online on other resources. So here it goes.  1. Logon script would not run (or so it seems). It would not return any errors if you run the script manually. Thanks to this thread - most probable issue is a null value of one of the properties that just screws up the etire commit changes command. Solution: commit changes after every property change Below is the sample of the skeeplogon.vbs that finally works for all machines regardless of possible errors: on error resume next Dim strUserName, IP, MAC, Serial, boolLoggedOn 'local computer strComputer = "." ' Constants required for name translate Const ADS_NAME_INITTYPE_GC = 3 Const ADS_NAME_TYPE_NT4 = 3 Const ADS_NAME_TYPE_1779 = 1 'Get the NETBIOS name of the domain Set objSystemInfo = CreateObject("ADSystemInfo") strDomain = objSystemInfo.DomainShortName ' Get the name of the computer set objNetwork = createobject("Wscript.Network") strComputer = objNetwork.ComputerName ' Call function to return the distinguished name (DN) of the computer strComputerDN = getComputerDN(strComputer,strDomain) Set objComp=GetObject("LDAP://" & strComputerDN) GETDETAILS objComp.employeeNumber = strUserName 'Last Logged on User objComp.SetInfo objComp.employeeID = boolLoggedOn 'loggedOn objComp.SetInfo objComp.ipHostNumber = IP 'IP Address objComp.SetInfo objComp.networkAddress = MAC 'MAC address objComp.SetInfo objComp.serialNumber = Serial 'Serial objComp.SetInfo function getComputerDN(byval strComputer,byval strDomain) Set objTrans = CreateObject("NameTranslate") ' Initialize name translate using global catalog objTrans.Init ADS_NAME_INITTYPE_GC, "" ' Input computer name (NT Format) objTrans.Set ADS_NAME_TYPE_NT4, strDomain & "\" & strComputer & "$" ' Get Distinguished Name. getComputerDN = objTrans.Get(ADS_NAME_TYPE_1779) end function '*************************GET COMPUTER INFO************************* function GETDETAILS Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" [...]