Windows XPからWindows 7へPCの移行を行っているのですが、
今までのログオンスクリプトが使用できず、新たにVBSを作成しました。
作成したVBSはログインユーザーのUser.Nameから所属していUserGroupを割り出し、
所属グループに応じたネットワークドライブをマウントさせています。
ほとんどのユーザーについては問題なく使用できているのですが、一部のユーザーのみ
ActiveDirectory からUser.Nameが取得できず、ドライブのマウントができない状態です。
以下の記述を応用的に利用しているのですが、なぜ一部のユーザー情報が取得できないのか
非常に悩んでおります。
是非、御教授いただければと思い投稿させていただきました。
なにとぞよろしくお願いいたします。
On Error Resume Next
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objNetwork = CreateObject("Wscript.Network")
Set objADSysInfo = CreateObject("ADSystemInfo")
strUser = objADSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strUserCN = objUser.CN
For Each strGroup in objUser.memberOf
Set objGroup = GetObject("LDAP://" & strGroup)
strGroupName = objGroup.CN
strGroupNameMsg = strGroupNameMsg & strGroupName & vbCrlf
objDictionary.Add strGroupName, strGroupName
Next
Wscript.echo strusercn
Wscript.echo strgroupname
Wscript.echo strgroupnamemsg
Wscript.quit
