[XPurple]

monkkey
Проверим

Немного усовершенствовал код, представленный в первом сообщении. Может, кому-нибудь еще пригодится.

Код:

Const CheckGroup = "cn=бухгалтерия"
Const ConnectShare="\\server\share"
Const MapNetDisk="T:"

On error resume next 'На всякий случай :)

Set wshNetwork = CreateObject("WScript.Network")
set fs=CreateObject("Scripting.FileSystemObject")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

if isArray(CurrentUser.MemberOf) then
	numGroups = UBound(CurrentUser.MemberOf)+1
else 
	if CurrentUser.MemberOf<>"" then
		numGroups=1
	end if
end if

select case numGroups
	case 0
		strGroups = "Нет группы"
	case 1
		strGroups = LCase(CurrentUser.MemberOf)
	case else
		strGroups = LCase(Join(CurrentUser.MemberOf))
end select

if InStr(strGroups, CheckGroup) And fs.DriveExists(MapNetDisk) then 
	wshNetwork.RemoveNetworkDrive MapNetDisk, true, true
end if

If InStr(strGroups, CheckGroup) And fs.FolderExists(ConnectShare) Then
	wshNetwork.MapNetworkDrive MapNetDisk,ConnectShare,true
End If