ASP.NET
  Home arrow ASP.NET arrow WSH Script to setup .NET Quickstarts in ot...
ASP Free Forums 
.NET  
ASP  
ASP Code  
ASP.NET  
ASP.NET Code  
BrainDump  
C#  
Code Examples  
Database  
Database Code  
IIS  
Microsoft Access  
MS SQL Server  
Silverlight  
Visual Basic.NET  
Windows Scripting  
Windows Security  
XML  
Mobile Linux 
App Generation ROI 
IBM® developerWorks 
ASP Web Hosting  
ASP.NET Web Hosting 
Windows Web Hosting
 
Weekly Newsletter
 
Developer Updates  
Free Website Content 
 RSS  Articles
 RSS  Forums
 RSS  All Feeds
Write For Us Get Paid 
Request Media Kit
Contact Us 
Site Map 
Privacy Policy 
Support 
 USERNAME
 
 PASSWORD
 
 
  >>> SIGN UP!  
  Lost Password? 
ASP.NET

WSH Script to setup .NET Quickstarts in other Websites besides the Default Website
By: aspfree
  • Search For More Articles!
  • Disclaimer
  • Author Terms
  • Rating: 3 stars3 stars3 stars3 stars3 stars / 4
    2002-01-29

    Table of Contents:

    Rate this Article: Poor Best 
      ADD THIS ARTICLE TO:
      Del.ici.ous Digg
      Blink Simpy
      Google Spurl
      Y! MyWeb Furl
    Email Me Similar Content When Posted
    Add Developer Shed Article Feed To Your Site
    Email Article To Friend
    Print Version Of Article
    PDF Version Of Article
     
     
    ADVERTISEMENT


    WSH Script to setup .NET Quickstarts
    in other Websites besides the Default Website

    This article is for people who want to host the .NET Quickstarts on a Top-Level Domain besides the Default Website inside IIS. This windows scripting host file is something I (Steve Schofield) whipped up to create the 55 or so virtual application roots for the Quickstarts that come with the .NET framework SDK. Instead of having to manually create these inside using Internet Service Manager, this script will take care of it. By default the .NET Quickstarts are installed to the Default website. This script creates them in the Top-Level Domain you define in the setup.vbs file. The script accepts three arguments, (Path of Directory, physical path of directory, friendly application root name) 

    wscript setup.vbs Quickstart "C:\Program Files\Microsoft.NET\FrameworkSDK\Samples\QuickStart\" Quickstart

    This script creates an application root called Quickstart and the 50+ directorys in the IIS Metabase in the Website you define in the script.   ASPFree.com server has multiple top-level domains,  we've hosted the Quickstarts from day one, visitors have come to expect these and we want to continue offering the service.   This script is only really intended to be used by people who plan on hosting the Quickstarts outside the Default Website.   I nor does aspfree.com take no responsibility of running the script and causing problems on your system.  Practice safe adminstrative methods (that means back up your IIS metabase and test before JUST deploying to a production machine),  this uses ADSI to create the directories.  Before running this on any server, test out.  This has been tested on Windows 2000 servers only.

    PS: In the Setup.vbs file, replace the "bigdogsbowling" with the name of your website name. From what I could determine, this was case sensative.

    Here is the script code 

    On Error Resume Next

    Dim ArgObj ' Object which contains the command line argument
    Dim Result ' Result of the command function call
    Dim Args(10) ' Array that contains all of the non-global arguments
    Dim ArgCount ' Tracks the size of the Args array
    Dim vAppFriendlyName

    dim vPath, scriptPath,vName

    'Set object to command line arguements
    Set ArgObj = WScript.Arguments

    'Name of virtual web
    vName = ArgObj(0)

    'Path to the files
    vPath = ArgObj(1)

    'appFriendlyName from command line
    vappFriendlyName = ArgObj(2)

    'call to create vDir
    CAll CreateVDir(vName, vPath, vappFriendlyName)

    'code taken from mkwebdir.vbs and changed for single vDir creation.
    Sub CreateVDir(byVAl vName, byVal vPath, byVal vappFriendlyName)

    Dim vRoot,vDir,webSite
    On Error Resume Next

    ' get the local host default web or change to the web you want
    ' replace bigdogsbowling with the name of your website defined inside Internet Svc Manager
    ' This is case sensative as far as we could tell
    set webSite = findWeb("localhost", "bigdogsbowling")
    if IsObject(webSite)=False then
    Display "Unable to locate the Default Web Site"
    exit sub
    else
    'display webSite.name
    end if

    ' get the root
    set vRoot = webSite.GetObject("IIsWebVirtualDir", "Root")
    If (Err <> 0) Then
    Display "Unable to access root for " & webSite.ADsPath
    Exit sub
    else
    'display vRoot.name
    End IF

    ' delete existing web if needed
    ' vRoot.Delete "IIsWebVirtualDir",vName
    ' vRoot.SetInfo
    Err=0 ' reset error

    ' create the new web
    Set vDir = vRoot.Create("IIsWebVirtualDir", vName)
    If (Err <> 0) Then
    Display "Unable to create " & vRoot.ADsPath & "/" & vName & "."
    exit sub
    else
    'display vdir.name
    end if

    ' set properties on the new web
    vDir.AccessRead = true
    vDir.Accessflags = 513
    vDir.Path = vPath
    vDir.appFriendlyName = vappFriendlyName
    vDir.appIsolated = 0
    VDir.AppCreate False
    If (Err <> 0) Then
    Display "Unable to bind path " & vPath & " to " & vRoot.Name & "/" & vName & ". Path may be invalid."
    exit sub
    end If

    ' commit changes
    vDir.SetInfo
    If (Err <> 0) Then
    Display "Unable to save changes for " & vRoot.Name & "/" & vName & "."
    exit sub
    end if

    ' report all ok
    ' WScript.Echo Now & " " & vName & " virtual directory " & vRoot.Name & "/" & vname & " created successfully."
    End Sub

    Function findWeb(computer, webname)
    On Error Resume Next

    Dim websvc, site
    dim webinfo
    Dim aBinding, binding

    set websvc = GetObject("IIS://"&computer&"/W3svc")
    if (Err <> 0) then
    exit function
    end if
    ' First try to open the webname.
    set site = websvc.GetObject("IIsWebServer", webname)
    if (Err = 0) and (not isNull(site)) then
    if (site.class = "IIsWebServer") then
    ' Here we found a site that is a web server.
    set findWeb = site
    exit function
    end if
    end if
    err.clear
    for each site in websvc
    if site.class = "IIsWebServer" then
    '
    ' First, check to see if the ServerComment
    ' matches
    '
    If site.ServerComment = webname Then
    set findWeb = site
    exit function
    End If
    aBinding=site.ServerBindings
    if (IsArray(aBinding)) then
    if aBinding(0) = "" then
    binding = Null
    else
    binding = getBinding(aBinding(0))
    end if
    else
    if aBinding = "" then
    binding = Null
    else
    binding = getBinding(aBinding)
    end if
    end if
    if IsArray(binding) then
    if (binding(2) = webname) or (binding(0) = webname) then
    set findWeb = site
    exit function
    End If
    end if
    end if
    next
    End Function

    function getBinding(bindstr)

    Dim one, two, ia, ip, hn

    one=Instr(bindstr,":")
    two=Instr((one+1),bindstr,":")

    ia=Mid(bindstr,1,(one-1))
    ip=Mid(bindstr,(one+1),((two-one)-1))
    hn=Mid(bindstr,(two+1))

    getBinding=Array(ia,ip,hn)
    end function

    Sub Display(Msg)
    WScript.Echo Now & ". Error Code: " & Hex(Err) & " - " & Msg
    End Sub

    Sub Trace(Msg)
    WScript.Echo Now & " : " & Msg
    End Sub

    Sub DeleteWeb(WebServer, WebName)
    ' delete the exsiting web (ignore error if missing)
    On Error Resume Next
    Dim vDir
    display "deleting " & WebName

    WebServer.Delete "IISWebVirtualDir",WebName
    WebServer.SetInfo
    If Err=0 Then
    DISPLAY "WEB " & WebName & " deleted."
    else
    display "can't find " & webname
    End If

    End Sub

     


    DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware.

    More ASP.NET Articles
    More By aspfree

     

    IBM® developerWorks developerWorks - FREE Tools!


    NEW! IBM – Taking Web 2.0 to Work

    David Barnes, Lead Evangelist for IBM Emerging Internet Technologies will discuss aspects of Web 2.0 that bring value to corporations, academia, and government. He'll also discuss IBM's vision around Web 2.0, including the importance of remixability and consumability. The discussion will culminate with examples of various IBM Software Group solutions you can use to get ahead of the Web 2.0 adoption curve.
    FREE! Go There Now!


    NEW! Application Development Tools for the Mainframe Developer

    You probably have thousands of lines of COBOL code loaded with business intelligence and being used to run your business, along with an army of developers maintaining these applications. Learn how to prepare your applications and developers so you can keep that competitive edge and move to a service-oriented architecture with the IBM Rational Enterprise Modernization solutions. Replay is available for 9 months.
    FREE! Go There Now!


    NEW! Did you say mainframe? e-kit

    Learn how you can extend modern application lifecycle management to IBM System z through the IBM Rational Software Delivery Platform (SDP). The Did you say mainframe? e-kit includes podcasts, webcasts, tutorials, white and red papers, demos, and articles designed to help ease the challenges of modernizing your enterprise. This complimentary kit for mainframe developers is a practical, how-to guide for making the most of an existing development environment, including the skills and infrastructure already in place at an established enterprise.
    FREE! Go There Now!


    NEW! Download IBM Rational Developer for System z

    Download a free trial version of IBM Rational Developer for System z, software that can help you deliver core development capabilities; the power of Java Platform, Enterprise Edition (Java EE); and rapid application development support to diverse enterprise application development teams. With comprehensive development tools to help create, deploy and maintain traditional enterprise and composite applications, Rational Developer for System z enables developers with different technical backgrounds to easily participate in important technology projects.
    FREE! Go There Now!


    NEW! Hello World: Monitor a simple business process using WebSphere Business Monitor V6.0.2

    This tutorial shows new users of IBM WebSphere Business Monitor Version 6.0.2 how to perform the "Hello World" equivalent for monitoring business process applications. It is intended to help you get familiar with the capabilities of the product.
    FREE! Go There Now!


    NEW! Rational 'Talks to You' Teleconference Series

    This Fall, IBM Rational talks to you directly through a special teleconference series giving you access to the best minds in IBM Rational - product experts and market thought leaders who will answer your questions during these pre-scheduled telephone conference calls. Register today!
    FREE! Go There Now!


    NEW! Rational Talks to You:Per Kroll on Rational Method Composer Plug-in customization

    Join this Rational Talks to You teleconference on December 11 at 1:00 pm ET to get tips on building your own plugins with Rational Method Composer. Get your questions answered!
    FREE! Go There Now!


    NEW! Trial download: IBM Rational Tester for SOA Quality V7.0.1

    Get a free trial download of the latest version of IBM Rational Tester for SOA Quality V7.0.1, a functional and regression testing tool that enables the creation, comprehension, modification and execution of testing GUI-less Web services.
    FREE! Go There Now!


    NEW! Using IBM Rational Developer for System z and IBM Rational ClearCase together to manage application development

    Whether you are creating new applications or modifying existing ones, managing integration of new components with traditional z/OS elements is a critical part of building and deploying modern applications. Listen to this webcast to see how IBM can help you optimize your development process using an IDE like Rational Developer for System z that integrates with management tools, such as ClearCase to manage your application development on mainframes.
    FREE! Go There Now!


    NEW! Webcast: Accelerating Software Innovation with System z

    Attend this launch webcast with Scott Hebner, Vice President of IBM Rational Marketing and Strategy, where he will overview Rational’s new offerings and programs to help customers accelerate software innovation on System z. He will discuss how these solutions help organizations extend their core business processes toward modern architectures such as SOA and web technologies to deliver business improvements that stand the test of time.
    FREE! Go There Now!



    All FREE IBM® developerWorks Tools!

    ASP.NET ARTICLES

    - Adding Content to a Static ASP.NET Website
    - Building a Static ASP.NET Website in a Basic...
    - Develop Your First ASP.NET Website with Visu...
    - Run ASP.NET in Windows XP Home with Cassini ...
    - How to Test a Web Application
    - How to Add Code and Validation Controls to a...
    - Working in Source and Split Views to Build a...
    - How to Build a Web Form for a One-Page Web A...
    - How to Develop a One-Page Web Application
    - An ASP.NET Web Application in Action
    - Developing ASP.NET Web Applications
    - An Introduction to ASP.NET Web Programming
    - Introduction to the ADO.NET Entity Framework...
    - Completing an In-Text Advertising System und...
    - Programming an In-Text Advertising System un...





    © 2003-2009 by Developer Shed. All rights reserved. DS Cluster 2 Hosted by Hostway
    For more Enterprise Application Development news, visit eWeek