function criadiretoriovirtual(byval vdirname as string, byval serverid as string, byval vdirpath as string, byval criaapplication as boolean) as directoryentry
dim newvdir as directoryentry
dim root as directoryentry
root = new directoryentry("iis://localhost/w3svc/" + serverid + "/root")
