Scripting Help!!! Please!!! gbrown135 6/18/2007 1:54:00 PM 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

Re: Scripting Help!!! Please!!! "joseomjr[ at ]gmail.com" <joseomjr[ at ]gmail.com> 6/18/2007 2:00:57 PM Should be more like Const ADS_PROPERTY_CLEAR = 1 Set objUser = GetObject("LDAP://" & strUserDN) objUser.PutEx ADS_PROPERTY_CLEAR, "homeDirectory ", 0 objUser.setInfo

Re: Scripting Help!!! Please!!! gbrown135 6/18/2007 2:26:02 PM Hi Thanks for your quick response but when I run this i get a error at line 21 Error: The specified directory service attribute or value does not exist. Also this will only delete the attribute within AD. I want to completely remove the Home Drive Folder. Regards G "joseomjr[ at ]gmail.com" wrote: [Quoted Text] > Should be more like > > Const ADS_PROPERTY_CLEAR = 1 > > Set objUser = GetObject("LDAP://" & strUserDN) > objUser.PutEx ADS_PROPERTY_CLEAR, "homeDirectory ", 0 > objUser.setInfo > >

Re: Scripting Help!!! Please!!! "joseomjr[ at ]gmail.com" <joseomjr[ at ]gmail.com> 6/19/2007 4:04:29 AM I am not sure what line 21 is for you. To delete the home drive you may want to retrieve where it is first, use the FileSystem object to delete it, and then clear the value from AD. Something like... Dim objUser : Set objUser = GetObject("LDAP://" & strUserDN) Dim HomeShare : HomeShare = objUser.homeDirectory Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objFolder : Set objFolder = objFSO.GetFolder(HomeShare) objFolder.Delete True objUser.PutEx ADS_PROPERTY_CLEAR, "homeDirectory ", 0 objUser.setInfo

Re: Scripting Help!!! Please!!! gbrown135 6/20/2007 12:03:00 PM Hi I have came up with this now: dim strUser, strDomain, strUserDN dim objUser, objTrans, objFSO, objFolder dim HomeShare 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 set objFSO = createobject("scripting.filesystemobject") objFolder = objFSO.GetFolder(HomeShare) objFolder.Delete True This is still however getting an error on line objFolder.Delete True it comes with an error saying: Object required: '\\Serevrname\Homedrive$'. I think that due to my Home Drive being in ShareName rather than UNC format. Maybe i will need to query server first. Do you know how that is done? Gary "joseomjr[ at ]gmail.com" wrote: [Quoted Text] > I am not sure what line 21 is for you. > > To delete the home drive you may want to retrieve where it is first, > use the FileSystem object to delete it, and then clear the value from > AD. > > Something like... > > > Dim objUser : Set objUser = GetObject("LDAP://" & strUserDN) > Dim HomeShare : HomeShare = objUser.homeDirectory > Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject") > Dim objFolder : Set objFolder = objFSO.GetFolder(HomeShare) > objFolder.Delete True > objUser.PutEx ADS_PROPERTY_CLEAR, "homeDirectory ", 0 > objUser.setInfo > >