Database Search

TechHome

• !!DISCLAIMER!!
• ADO Table Schemas
• Append RTF files Using COM
• AskFileName Alternative
• Binary OLE example
• Brother Label Printer with b-pac SDK
• Check CDROM Ejected
• COM Object for DLL Calls
• Convert Word Doc to PDF
• Create XML DB from the TXT file then do OLE Lookup
• Creating Shaped Hierarchical Recordset
• Crystal Reports Print Extender
• CSMail Search Inside Mime Messages
• Date Picture Taken
• Delete Message from Exchange
• Directory Browse Dialog Created Using OLE Shell Functions
• Display Spreadsheet as HTML
• Email Address Validator
• Enabling Automatic Updates
• Enumerate Certificates
• Enumerate Windows Updates
• Export Data crom Crystal Reports to Excel
• Forwarding Email Messages
• Get Current Unix TimeStamp
• GroupWise and WinBatch
• IBM Personal Communications Connect Via COM
• IIS UDFs
• Import CSV File Using Office Web Components Spreadsheet
• Inspect mail messages - CDO
• Locate and Validate Credit Card Numbers Using RegExp
• MakeCAB
• Minimize all windows
• Oracle Object for OLE OO4O Access
• Powershell COM
• Publisher SaveAsPicture
• Remove Duplicate Lines from Text File
• Remove SMS Cache Folder
• Set Groupwise Contacts Link
• SkyPe Enumerate Contacts
• SkyPe UDFs
• SNMP v1 Examples
• SQL Syntax Tool
• Symantec LiveStateRecovery ImageJob Code
• Symantec ProtectorAuto OLE Script
• Template Create IIS Site
• Use XMLHTTP to Download a File
• Windows Update Agent

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Template Create IIS Site

; This will create a Web Site, Application Pool, and Virtual Directory for IIS 6.0

sCompName = 'MyServer'
wSiteNum = 12	;Need to determine the site number
ServerComment = "Test Site"
ServerBindings = ":80:"
DefaultDoc = "Default.htm,Default.asp,index.htm,Default.aspx"
RootDirectory = "C:\Inetpub\wwwroot\testsite"
sitePath = "C:\Inetpub\wwwroot\testsite"
AppName = "MyApp"
W3SiteName = "MyApp"
AppPoolName = StrCat(W3SiteName, "Pool")


; Creating Application Pool:
AppObj = StrCat("IIS://", sCompName, "/W3SVC/AppPools")
appPools = GetObject(AppObj)
; appPools = GetObject("IIS://localhost/w3svc/AppPools")
appPool = appPools.Create("IIsApplicationPool", AppPoolName)
appPool.SetInfo

; Create the Web Site
SiteObj = StrCat("IIS://", sCompName, "/W3SVC")
w3svc = ObjectGet(SiteObj)
; Need to check for site with same bindings etc.
NewWebServer = w3svc.create("IIsWebServer", wSiteNum)
NewWebServer.SetInfo
; Need to check to make sure you can retrieve site.  
NewWebServer.ServerComment = ServerComment
NewWebServer.KeyType="IIsWebServer"
NewWebServer.ServerBindings=ServerBindings
NewWebServer.ServerState=2	; Start the server
NewWebServer.DefaultDoc=DefaultDoc
NewWebServer.ServerAutoStart=1
NewWebServer.ServerSize=1	; The ServerSize property specifies the general size of the server, in terms of the number of client requests processed per day
NewWebServer.SetInfo


; Now create the root directory object for the Site.  
NewDir = NewWebServer.Create("IIsWebVirtualDir", "ROOT")
NewDir.Path = RootDirectory
NewDir.SetInfo
NewDir.AppCreate (@TRUE)

NewDir.AppFriendlyName=AppName
NewDir.AppPoolId=AppPoolName
NewDir.AppIsolated=2
NewDir.Path=sitePath
NewDir.Authanonymous=@TRUE
NewDir.AuthBasic=@FALSE
NewDir.AuthNTLM=@TRUE
NewDir.AccessSSL=@FALSE
NewDir.AccessSSLNegotiateCert=@FALSE
NewDir.AccessSSLRequireCert=@FALSE
NewDir.AccessSSLMapCert=@FALSE
NewDir.AspEnableParentPaths=@FALSE
NewDir.AccessRead = @True
NewDir.AccessScript = @True	; Set the Execute Permissions to Scripts Only
NewDir.SetInfo

Message("Web Site Creation", "Completed")

Article ID:   W16658

File Created: 2005:02:18:12:21:46

Last Updated: 2005:02:18:12:21:46