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}!\\” & strComputer & “\root\cimv2”)
Set colSMBIOS = objWMIService.ExecQuery (“SELECT * FROM Win32_SystemEnclosure”)

For Each objSMBIOS in colSMBIOS
‘Get Serial
Serial = objSMBIOS.SerialNumber
Next

Set objNet = CreateObject(“WScript.NetWork”)

‘Get Current Username
strUserName = objNet.UserName

‘Currently Logged on
boolLoggedOn = 1

‘GET NIC INFO (IP, MAC, DHCP)
Set NIC1 = GetObject(“winmgmts:”).InstancesOf(“Win32_NetworkAdapterConfiguration”)

‘For Each of the NICs in the connection
For Each Nic in NIC1
‘Get the Adapter Description
StrNIC = Nic.Description
‘If IP is enabled on the NIC then let’s find out about the NIC
IF Nic.IPEnabled THEN
lngCount=UBound(Nic.IPAddress)
For i=0 to lngCount
If i >= 0 Then
StrIP = Nic.IPAddress(i)
If StrIP <> “” Then
‘If Left(StrIP,5) = “10.40” Then
MAC = Nic.MACAddress(i)
IP = Nic.IPAddress(0)
DHCP = Nic.DHCPENABLED(i)
‘End If
‘WScript.Echo IP
End If
End If
Next
END IF
Next

End Function


 2. Make sure OU in AD has proper delegation permissions.

This threat has a good tutorial:  http://community.spiceworks.com/how_to/34096-show-user-s-logged-on-computer-name-in-active-directory


 3. CAD issue on some machines

Crtr+Alt+Del solution:
Regarding Registry Keys, here’s what I found :
In

[HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\], you have to create a value named SoftwareSASGeneration and put it to “dword:00000001”
If your OS is a 64bits, you’ll have to create the same value in [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Policies\System\] if CAD still not working get the latest 64bit installer, install on your machine and then replace deploy folder with everything from uVNC installed folder and redeploy uVNC


4. Include Description column in the main Skeep window

well, the main HTA file has to be changed to accomplish that.  The file is below.

svnc.zip


 

5. Another reason the script is not running is McAfee…. you get an error that VBScript engine is not found or a similar one

A registry value needs to be changed. In my case I as an admit could not change it…

HKEY_CLASSES_ROOT\CLSID\{B54F3741-5B07-11cf-A4B0-00AA004A55E8}\InprocServer32

At that key in the right window is there a Value (Default) of type REG_SZ with a “Data” of C:\Windows\system32\vbscript.dll

This thread helped

GPO setting did not help…. had to download third party registry editor and changed the bugger that way


 

To be continued