I wanted to be able to remotely connect to a server and see if it had a profile directory for a particular user. I wrote a VBScript that will connect to a machine through WMI, find out what the ProfilesDirectory path is and then list all the folders in that directory. It wouldn’t take much to be able to output to a text file or some other format.<\/p>\n
The next thing I will work on is to have it pull a list of machines from somewhere, go check those machines and then when it finds a particular profile on that machine to go and remove it. You can see what I have so far:<\/p>\n
\nConst HKLM = &H80000002 <\/em> <\/p>\n
Dim strComputer <\/em> <\/p>\n
strComputer = “.” ‘This computer is the “.”. If you want another computer, replace the .
Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\\\” & _
strComputer & “\\root\\default:StdRegProv”)
strKeyPath = “SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\ProfileList\\”
strValueName = “ProfilesDirectory” <\/em> <\/p>\noReg.GetExpandedStringValue HKLM,strKeyPath,strValueName,strValue <\/em> <\/p>\n
If strValue = “%SystemDrive%\\Documents and Settings” Then
WScript.Echo “Default Path”
strProfilePath = “C:\\Documents and Settings”
Else
WScript.Echo strValue
strProfilePath = strValue
End If <\/em> <\/p>\nSet objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\\\” & strComputer & “\\root\\cimv2”)
Set colSubfolders = objWMIService.ExecQuery _
(“ASSOCIATORS OF {Win32_Directory.Name='” & strProfilePath & “‘} ” _
& “WHERE AssocClass = Win32_Subdirectory ” _
& “ResultRole = PartComponent”)
For Each objFolder in colSubfolders
Wscript.Echo objFolder.Name
Next<\/em><\/p>\n<\/blockquote>\n","protected":false},"excerpt":{"rendered":"I wanted to be able to remotely connect to a server and see if it had a profile directory for a particular user. I wrote a VBScript that will connect to a machine through WMI, find out what the ProfilesDirectory path is and then list all the folders in that directory. It wouldn’t take much… Continue reading List All Folders in the User Profile Directory<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"advanced_seo_description":"","jetpack_seo_html_title":"","jetpack_seo_noindex":false,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[25],"tags":[],"class_list":["post-51","post","type-post","status-publish","format-standard","hentry","category-scripting","entry"],"jetpack_featured_media_url":"","jetpack-related-posts":[],"jetpack_likes_enabled":true,"jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/pcW544-P","_links":{"self":[{"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/posts\/51","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/comments?post=51"}],"version-history":[{"count":0,"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/posts\/51\/revisions"}],"wp:attachment":[{"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/media?parent=51"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/categories?post=51"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.nukeitmike.com\/index.php\/wp-json\/wp\/v2\/tags?post=51"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}