strGroup  = "Marketing"
blnMember = False
 
Set objSysInfo = CreateObject( "WinNTSystemInfo" )
strUserName = objSysInfo.UserName
strDomain   = objSysInfo.DomainName
Set objSysInfo = Nothing
 
Set objUser   = GetObject( "WinNT://" & strDomain & "/" & strUserName )
Set colGroups = objUser.Groups
 
For Each objGroup in colGroups
	If LCase( objGroup.Name ) = LCase( strGroup ) Then
		blnMember = True
End If
Next
 
Set colGroups = Nothing
set objUser   = Nothing
 
If blnMember Then
	Set wshNetwork = CreateObject( "WScript.Network" )
	On Error Resume Next
	With wshNetwork
		.MapNetworkDrive "G:", "\\CompanyServer\Dept"
		If Err Then
			WScript.Echo "Error " & Err & " mapping drive G:"
			WScript.Echo "(" & Err.Description & ")"
		End If
 
		.MapNetworkDrive "H:", "\\CompanyServer\" & .UserName
		If Err Then
			WScript.Echo "Error " & Err & " mapping drive H:"
			WScript.Echo "(" & Err.Description & ")"
		End If
	End With
	On Error Goto 0
	Set wshNetwork = Nothing
End If