Hi I have created this script to remove a home directory from searching the AD
Const ForReading = 1
Const ADS_NAME_INITTYPE_GC = 3
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1
strUser = InputBox("Enter User Name")
strDomain = "Globalinfra"
Set objTrans = CreateObject("NameTranslate")
objTrans.Init ADS_NAME_INITTYPE_GC, ""
objTrans.Set ADS_NAME_TYPE_NT4, strDomain & "\" & strUser
strUserDN = objTrans.Get(ADS_NAME_TYPE_1779)
Set objUser = GetObject("LDAP://" & strUserDN)
HomeShare = objUser.homeDirectory
DeleteFolder HomeShare
But for some reason I cannot get this to work. I have Admin rights to all
file servers. Any help appreciated
Cheers
G