|
|
Can you see anything wrong with this script?? I can get it to run when only
having one server but we have 4 which is causing me the problem.
Any help appreciated
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 = "My Domain"
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)
strDCName1 = "server1"
strDCName2 = "server2"
strDCName3 = "server3"
strDCName4 = "server4"
Set objUser = GetObject("LDAP://" & strUserDN)
' find the target user on server 1
strQuery = "LDAP://" & strDCName1 & objUser
Set theUser = GetObject(strQuery)
if (theUser.HomeMDB = "") then
WScript.Echo strUser & " doesn't have a mailbox on server 1"
else
theUser.DeleteMailbox
theUser.SetInfo
WScript.Echo "Deleted mailbox for " & strUser
next
' find the target user on server 2
strQuery = "LDAP://" & strDCName2 & objUser
Set theUser = GetObject(strQuery)
if (theUser.HomeMDB = "") then
WScript.Echo strUser & " doesn't have a mailbox on server 2"
else
theUser.DeleteMailbox
theUser.SetInfo
WScript.Echo "Deleted mailbox for " & strUser
next
' find the target user on server 1
strQuery = "LDAP://" & strDCName1 & objUser
Set theUser = GetObject(strQuery)
if (theUser.HomeMDB = "") then
WScript.Echo strUser & " doesn't have a mailbox on server 3"
else
theUser.DeleteMailbox
theUser.SetInfo
WScript.Echo "Deleted mailbox for " & strUser
next
' find the target user on server 1
strQuery = "LDAP://" & strDCName1 & objUser
Set theUser = GetObject(strQuery)
if (theUser.HomeMDB = "") then
WScript.Echo strUser & " doesn't have a mailbox on server 4"
else
theUser.DeleteMailbox
theUser.SetInfo
WScript.Echo "Deleted mailbox for " & strUser
end if
|
|
|