&nbsp;<BR>I am getting this Error When tried to create Virtual Directory<BR>Error Type:<BR>Microsoft VBScript runtime (0x800A0046)<BR>Permission denied: &#039;GetObject&#039;<BR>/vdir.asp, line 42<BR><BR>&#060;% <BR>&#039;My Server name is Neo03<BR>&#039;My Folder is john<BR>&#039;Name for the Vircual Dir is manavalan<BR>&#039;I am the admin of my server<BR>&#039;Plz send Me SMS Msg to is +91 94470 02517<BR><BR>Call CreateVDir("Neo03","D:\","john","manavalan")<BR>%& #062;<BR><BR>&#060;%<BR>Public Function CreateVDir(ServerName,SitePath,SiteName,VDir)<BR>< BR>Dim Index<BR>Index = FindNameIndex(ServerName, SiteName)<BR><BR>If Index = 0 Then<BR><BR>Set Parent = GetObject("IIS://" & ServerName & "/W3SVC/"& Index &"/ROOT")<BR><BR>Dim NewRoot<BR>Set NewRoot = Parent.Create("IIsWebVirtualDir", VDir)<BR>NewRoot.Path = SitePath<BR>NewRoot.SetInfo<BR><BR>Set NewRoot = Nothing<BR>Set Parent = Nothing<BR><BR> If Err = 0 Then<BR> CreateVDir = True<BR> Else<BR> CreateVDir = False<BR> End If<BR><BR>Else<BR> CreateVDir = False<BR>End If<BR><BR>End Function<BR><BR>%&#062;<BR><BR><BR>&#060;%<BR>Priv ate Function FindNameIndex(ServerName,SiteName)<BR><BR>Dim Parent<BR>Set Parent =GetObject("IIS:\" & ServerName & "W3svc")<BR><BR>Dim Item<BR>For Each Item In Parent<BR>If IsNumeric(Item.Name) Then<BR> If LCase(Item.ServerComment) = LCase(SiteName) Then<BR> FindNameIndex = Item.Name<BR> End If<BR>End If<BR>Next<BR><BR>Set Parent = Nothing<BR><BR>End Function<BR>%&#062;