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

Contributed by
Rating: 3 stars3 stars3 stars3 stars3 stars / 4
January 29, 2002
Rate this Article:
MEH MEH++


SEARCH ASP FREE
TOOLS YOU CAN USE

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

 

blog comments powered by Disqus
ASP.NET ARTICLES

- Implementing ASP.NET 4.0 Page.MetaDescriptio...
- ASP.Net Development Tips
- Intro to Sessions in ASP.Net
- Google Maps API Introduction in ASP.NET usin...
- Creating an ASP.NET 3.5 Gridview Image Galle...
- Encrypt QueryString in ASP.NET 3.5 using VB....
- ASP.NET 3.5 Drop Down List Controls
- Connect to Access Database with ASP.Net
- Secure Audio Streaming with ASP.Net and Flash
- Dynamic Sitemap and Navigation in ASP.Net
- Implement Gzip and Deflate Compression in AS...
- Run ASP.Net in Ubuntu with Apache
- ASP.Net Mono Website Contact Forms
- ASP.Net URL Rewriting Methods
- Murach`s ASP.NET 4 Web Programming with C# 2...

ASP Web Hosting ASP.Net Web Hosting Windows Web Hosting
 
 
 

ASP Free Forums 
 RSS  Tutorials RSS
 RSS  Forums RSS
 RSS  All Feeds
Site Map 
Request Media Kit
Write For Us Get Paid 
Weekly Newsletter
 
Developer Updates  
Free Website Content 
Privacy Policy 
Support 


© 2003-2012 by Developer Shed. All rights reserved. DS Cluster 8 - Follow our Sitemap
Most Popular Topics
All ASP.Net Tutorials