Option Explicit
On Error Resume Next

'変数宣言
Dim oFS, oSh
Dim sRecentPath, sRecentFilePath

'オブジェクト作成
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oSh = CreateObject("WScript.Shell")

'Recentフォルダパス指定
sRecentPath = oFS.BuildPath(_
 oSh.ExpandEnvironmentStrings("%AppData%"),_
 "Microsoft\Office\Recent")

If oFS.FolderExists(sRecentPath) Then
	'Recentファイルパス指定
	sRecentFilePath = oFS.BuildPath(sRecentPath, "*.lnk")

	'ファイル削除
	oFS.DeleteFile sRecentFilePath
Else
	Set oFS = Nothing
	Set oSh = Nothing
	WScript.Quit
End If

Set oFS = Nothing
Set oSh = Nothing

OfficeXP以降かつ、ポリシーで「最近使ったファイルを消去する」とかなんとかいうポリシーを有効にしていればこんなのいらないけど、Office2000 や Office97 を面倒見ないといけないこともあってガッと作った。後悔はしていない。

関連記事:

(( 関連記事は特にありません ))

戻り値は配列になります。

これだとプライマリ グループが拾えないが、その辺はMSの KB321360 ネイティブな ADSI コンポーネントを使用してプライマリ グループを取得する方法 あたりでできそうなので後で実装する予定。

あと、多分これでは外部フォレスト (フォレスト信頼済み) のセキュリティ グループは拾えないと思うので、そこをどうするかが課題。だれか教えてください。(´・ω・`)

2010/7/26 追記

5か月越しの追記もどうかと思いますが、信頼済みの外部フォレストのセキュリティ グループは普通に拾えました。

Function GetSecGroupName()
 Dim oADSI, oUser, oGroup
 Dim aGroups, aGroupNames
 Dim sGroup

 Set oADSI = CreateObject("ADSystemInfo")
 Set oUser = GetObject("LDAP://" & oADSI.UserName)

 Select Case TypeName(oUser.MemberOf)
   Case "Variant()"
     aGroups = oUser.MemberOf
   Case "String"
     aGroups = Array(oUser.MemberOf)
   Case Else
     aGroups = Array(Empty)
 End Select

 ReDim aGroupNames(Ubound(aGroups))
 i = 0

 For Each sGroup In aGroups
   If Len(sGroup) > 0 Then
     Set oGroup = GetObject("LDAP://" & sGroup)
     aGroupNames(i) = UCase(oGroup.CN)
   End If
   i = i + 1
 Next

 GetSecGroupName = aGroupNames

 Set oADSI = Nothing
 Set oUser = Nothing
 Set oGroup = Nothing
End Function

関連記事:

• Office の「最近使ったファイル」を削除する