strComputer = "."
Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & _
  strComputer & "\root\cimv2")
Set colSessions = objWMI.ExecQuery _
    ("Select * from Win32_LogonSession Where LogonType = 10")
If colSessions.Count <> 0 then
   For Each objSession in colSessions
 
REM !!!hier müsste wohl die Prüfung passieren!!!
 
     Set colList = objWMI.ExecQuery("Associators of " & _
       "{Win32_LogonSession.LogonId=" & objSession.LogonId & "} " & "Where" & _
       "AssocClass=Win32_LoggedOnUser Role=Dependent" )
     For Each objItem in colList
 
Set fso = CreateObject("Scripting.FileSystemObject")
datei_suche = "C:\Multicash\unterschriften\" & objItem.Name &"\mcsign.dat"
	If Fso.FileExists(datei_suche) then
		fso.GetFile(datei_suche).Delete
	Else
	End If	
 
     Next
   Next
End If