strFilePath = InputBox("Please enter in the Name For the LDFIDE File")

Set wshNetwork = WScript.CreateObject( "WScript.Network" )
strComputerName = wshNetwork.computerName

Set RootLDAP = GetObject("LDAP://rootDSE")
domainContainer = rootLDAP.Get("defaultNamingContext") 

Set fs = CreateObject ("Scripting.FileSystemObject") 
Set userFile = fs.CreateTextFile (strFilePath) 

userFile.Write "dn: CN=ms-Exch-Assistant-Name,CN=Schema,CN=Configuration," & DomainContainer & VBCRLF
userFile.Write "changetype: Modify" & VBCRLF
userFile.Write "replace:LDAPDisplayName" & VBCRLF
userFile.Write "LDAPDisplayName: msExchAssistantName" & VBCRLF
userFile.Write "-" & VBCRLF
userFile.Write VBCRLF

userFile.Write "dn: CN=ms-Exch-LabeledURI,CN=Schema,CN=Configuration," & DomainContainer & VBCRLF
userFile.Write "changetype: Modify" & VBCRLF
userFile.Write "replace:LDAPDisplayName" & VBCRLF
userFile.Write "LDAPDisplayName: msExchLabeledURI" & VBCRLF
userFile.Write "-" & VBCRLF
userFile.Write VBCRLF

userFile.Write "dn: CN=ms-Exch-House-Identifier,CN=Schema,CN=Configuration," & DomainContainer & VBCRLF
userFile.Write "changetype: Modify" & VBCRLF
userFile.Write "replace:LDAPDisplayName" & VBCRLF
userFile.Write "LDAPDisplayName: msExchHouseIdentifier" & VBCRLF
userFile.Write "-" & VBCRLF
userFile.Write VBCRLF

userFile.Write "dn:" & VBCRLF
userFile.Write "changetype: Modify" & VBCRLF
userFile.Write "add: schemaUpdateNow" & VBCRLF
userFile.Write "schemaUpdateNow: 1" & VBCRLF
userFile.Write "-" & VBCRLF
userFile.Write VBCRLF

userFile.close

Set fs = Nothing
Set userFile = Nothing

strFilePath2 = InputBox("Please enter in the Name For the Execute Batch File")

Set fs = CreateObject ("Scripting.FileSystemObject") 
Set userFile = fs.CreateTextFile (strFilePath2) 

userFile.Write "ldifde -i -f " & strFilePath & " -v -c DC=" & strComputerName & " " & DomainContainer & VBCRLF
userFile.close

Set fs = Nothing
Set userFile = Nothing
Set wshNetwork = Nothing
Set RootLDAP = Nothing

Wscript.Echo "Script Completed"