I apologize if my question is not nclear. I'm very new to this vbscript, but i managed to find the solution..this fix my problems
set objItemSMTPServer=GetObject("IIS://localhost/SMTPSVC/1")
objItem.DropDirectory = "D:\data\IIS\mailroot\Badmail" <-- Directory path
objItemSMTPServer.RouteAction = 8388609 <-- Uncheck "Enable drop directory quota
objItem.BadMailDirectory = "D:\data\IIS\mailroot\Badmail"
objIte.MaxMessageSize = 0
objItem.MaxSessionSize = 0
objItem.MaxBatchedMessages = 0
objItem.MaxRecipients = 0
objItem.setinfo
Set domainObject = GetObject("IIS://LocalHost/SMTPSVC/1/domain") <-- Create new SMTP
Set newDomain = domainObject.Create ("IIsSmtpDomain","alias")
newDomain.RouteAction = 16
newDomain.RouteActionString = "alias"
newDomain.SetInfo
This works well form me