This should get you started:
Code:
set oNet=createobject("wscript.network")
set oSysinfo=createobject("adsysteminfo")
'get full name eg cn=pc010203,ou=finance,ou=allpcs,dc=ic,dc=ac,dc=uk
sDN=lcase(oSysinfo.computername)
'separate at commas; sdata(0) will be cn=pc010203; sdata(1) will be ou=finance etc
sData=split(sDN,",")
sOU=mid(sdata(1),4) 'get the lowest level OU - finance here - and start at 4th char; ie lose "ou="
'find the path to map for this OU
select case sOU
case "finance"
sPath="\\server1\fin_data"
case "admin"
sPath="\\server2\adminstuff"
end select
'and map it
if sPath<>"" then
oNet.mapnetworkdrive "Z:",sPath
end if