Vista en User Profiles

KB art. nr. 930955

try this:
script1



script2

strComputer ="." Set objAccount = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & strComputer &"\root\cimv2:Win32_UserAccount." _ &"Domain='personeel',Name='p0082001'") Set objUserProfile = GetObject("winmgmts:{impersonationlevel=impersonate}!\\" _ & strComputer &"\root\cimv2:Win32_UserProfile." _ &"SID='" & objAccount.SID &"'") objUserProfile.Delete_

result:

Situation: