{"id":52623,"date":"2009-08-25T03:01:00","date_gmt":"2009-08-25T03:01:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2009\/08\/25\/hey-scripting-guy-can-you-translate-this-vbscript-to-windows-powershell\/"},"modified":"2009-08-25T03:01:00","modified_gmt":"2009-08-25T03:01:00","slug":"hey-scripting-guy-can-you-translate-this-vbscript-to-windows-powershell","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/hey-scripting-guy-can-you-translate-this-vbscript-to-windows-powershell\/","title":{"rendered":"Hey, Scripting Guy! Can You Translate This VBScript to Windows PowerShell?"},"content":{"rendered":"

 <\/p>\n

\"Hey,<\/p>\n

Hey Scripting Guy! I am wondering about something. I was looking on the Script Center Script Gallery, and I came across a pretty cool script that lists items that are in the user’s profile. It is in VBScript. Can you translate it to Windows PowerShell for me?<\/p>\n<\/p>\n

— AW<\/p>\n

\n

\"Hey,<\/span><\/p>\n<\/p>\n

Hello AW, <\/p>\n

Microsoft Scripting Guy Ed Wilson here. It is early morning. I am listing to Luciano Pavarotti<\/font><\/a> on my Zune as he sings Lunge da Lei from Verdi’s La Traviata<\/font><\/a>, and I’m sipping a cup of English Breakfast tea from my little blue tea pot the Scripting Wife bought me. The tea has a stick of real cinnamon in it, and I am munching on a freshly baked peach scone (peaches are in season in Charlotte, North Carolina, in the United States). Needless to say, I am in a good mood. Life is good. And I bought a new Microsoft keyboard the other day at the company store in Charlotte, so I am all set to answer your question. <\/p>\n

I love our new Script Gallery—the search feature is cool, and the ability to filter scripts based upon the categories and scripting languages is sweet. The fact that you can directly upload scripts and not have to e-mail scripts to us and then wait for us to get around to publishing them is obviously another huge benefit. The rating, ranking, and discussion will turn out to be a big bonus as well. In short, as we used to say in Southern California, it rocks dude! <\/p>\n

AW, you found the List Items in the User Profile Folder<\/font><\/a>, which is seen here. <\/p>\n

ListItemsInTheUserProfileFolder.vbs<\/p>\n

<\/strong><\/p>\n

Const USER_PROFILE = &H28&<\/p>\n

Set objShell = CreateObject(“Shell.Application”)
Set objFolder = objShell.NameSpace(USER_PROFILE)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path<\/p>\n

Set colItems = objFolder.Items
For Each objItem in colItems
    <\/span>Wscript.Echo objItem.Name
Next<\/p>\n

<\/font><\/font><\/span><\/p>\n

The ListItemsInTheUserProfileFolder.vbs script begins by creating a constant, USER_PROFILE, and assigning hexadecimal 28 to it. A listing of shell folder constants is seen in Table 1; they are also documented on MSDN<\/font><\/a>. <\/p>\n

Table 1 Shell special folder values<\/p>\n

<\/strong><\/p>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
\n

Special Folder name<\/p>\n

<\/strong><\/p>\n<\/td>\n

\n

Hexadecimal value<\/p>\n

<\/b><\/p>\n<\/td>\n<\/tr>\n

\n

ALTSTARTUP <\/p>\n<\/td>\n

\n

0x1d<\/p>\n<\/td>\n<\/tr>\n

\n

APPDATA <\/p>\n<\/td>\n

\n

0x1a<\/p>\n<\/td>\n<\/tr>\n

\n

BITBUCKET <\/p>\n<\/td>\n

\n

0xa<\/p>\n<\/td>\n<\/tr>\n

\n

COMMONALTSTARTUP <\/p>\n<\/td>\n

\n

0x1e<\/p>\n<\/td>\n<\/tr>\n

\n

COMMONAPPDATA <\/p>\n<\/td>\n

\n

0x23<\/p>\n<\/td>\n<\/tr>\n

\n

COMMONDESKTOPDIR <\/p>\n<\/td>\n

\n

0x19<\/p>\n<\/td>\n<\/tr>\n

\n

COMMONFAVORITES <\/p>\n<\/td>\n

\n

0x1f<\/p>\n<\/td>\n<\/tr>\n

\n

COMMONPROGRAMS <\/p>\n<\/td>\n

\n

0x17<\/p>\n<\/td>\n<\/tr>\n

\n

COMMONSTARTMENU <\/p>\n<\/td>\n

\n

0x16<\/p>\n<\/td>\n<\/tr>\n

\n

COMMONSTARTUP <\/p>\n<\/td>\n

\n

0x18<\/p>\n<\/td>\n<\/tr>\n

\n

CONTROLS <\/p>\n<\/td>\n

\n

0x3<\/p>\n<\/td>\n<\/tr>\n

\n

COOKIES <\/p>\n<\/td>\n

\n

0x21<\/p>\n<\/td>\n<\/tr>\n

\n

DESKTOP <\/p>\n<\/td>\n

\n

0x0<\/p>\n<\/td>\n<\/tr>\n

\n

DESKTOPDIRECTORY <\/p>\n<\/td>\n

\n

0x10<\/p>\n<\/td>\n<\/tr>\n

\n

DRIVES <\/p>\n<\/td>\n

\n

0x11<\/p>\n<\/td>\n<\/tr>\n

\n

FAVORITES <\/p>\n<\/td>\n

\n

0x6<\/p>\n<\/td>\n<\/tr>\n

\n

FONTS <\/p>\n<\/td>\n

\n

0x14<\/p>\n<\/td>\n<\/tr>\n

\n

HISTORY <\/p>\n<\/td>\n

\n

0x22<\/p>\n<\/td>\n<\/tr>\n

\n

INTERNETCACHE <\/p>\n<\/td>\n

\n

0x20<\/p>\n<\/td>\n<\/tr>\n

\n

LOCALAPPDATA <\/p>\n<\/td>\n

\n

0x1c<\/p>\n<\/td>\n<\/tr>\n

\n

MYPICTURES <\/p>\n<\/td>\n

\n

0x27<\/p>\n<\/td>\n<\/tr>\n

\n

NETHOOD <\/p>\n<\/td>\n

\n

0x13<\/p>\n<\/td>\n<\/tr>\n

\n

NETWORK <\/p>\n<\/td>\n

\n

0x12<\/p>\n<\/td>\n<\/tr>\n

\n

PERSONAL <\/p>\n<\/td>\n

\n

0x5<\/p>\n<\/td>\n<\/tr>\n

\n

PRINTERS <\/p>\n<\/td>\n

\n

0x4<\/p>\n<\/td>\n<\/tr>\n

\n

PRINTHOOD <\/p>\n<\/td>\n

\n

0x1b<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n","protected":false},"excerpt":{"rendered":"

  Hey Scripting Guy! I am wondering about something. I was looking on the Script Center Script Gallery, and I came across a pretty cool script that lists items that are in the user’s profile. It is in VBScript. Can you translate it to Windows PowerShell for me? — AW Hello AW, Microsoft Scripting Guy […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[16,3,4,707,5,155,45],"class_list":["post-52623","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-desktop-management","tag-scripting-guy","tag-scripting-techniques","tag-shell-application","tag-vbscript","tag-vbscript-migration","tag-windows-powershell"],"acf":[],"blog_post_summary":"

  Hey Scripting Guy! I am wondering about something. I was looking on the Script Center Script Gallery, and I came across a pretty cool script that lists items that are in the user’s profile. It is in VBScript. Can you translate it to Windows PowerShell for me? — AW Hello AW, Microsoft Scripting Guy […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/52623","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=52623"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/52623\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=52623"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=52623"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=52623"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}