'* Modifiser LDAP statementet til å finne ditt OU
On error Resume Next
Dim strComputer, strUser
Set objGroup= GetObject _
("LDAP://ou=cicero, ou=div, dc=uio,dc=no")


For each objComputer in objGroup
	strComputer = Right(objComputer.Name,Len(objComputer.Name)-3) 
	strUser=FindUser(strComputer)
	IF strUser<>"null" THEN
		Wscript.Echo strComputer +";" +  strUser
	End If
Next


Function FindUser(strComputer)
	Set objWMIService = GetObject("winmgmts:" _
	& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
	Set colComputer = objWMIService.ExecQuery _
	("Select * from Win32_ComputerSystem")
	For Each objComputer in colComputer
		FindUser= objComputer.UserName
	Next
End Functio