On error Resume Next
Dim strComputer, strUser
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objGroup= GetObject _
("LDAP://ou=laptop, ou=cicero, ou=div, dc=uio,dc=no")

For each objComputer in objGroup
	strComputer = Right(objComputer.Name,Len(objComputer.Name)-3) 
If objFSO.FolderExists("\\" +strComputer + "\c$\WINDOWS\System32") Then
	If objFSO.FileExists("\\" +strComputer + "\c$\WINDOWS\System32\shimgapi.dll") Then
		Wscript.Echo "File exist on: " + strComputer
	Else
		Wscript.Echo "File does not exist on: " + strComputer
	End If
ElseIf objFSO.FolderExists("\\" +strComputer + "\c$\WINNT\System32") Then
	If objFSO.FileExists("\\" +strComputer + "\c$\WINNT\System32\shimgapi.dll") Then
		Wscript.Echo "File exist on: " + strComputer
	Else
		Wscript.Echo "File does not exist on: " + strComputer
	End If
Else
	Wscript.Echo "No systemroot folder on: " + strComputer
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