Enable SSL (VBScript)

This code can be found in Chapter 15 of Windows Server 2003 Security Cookbook

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the VBScript code from this site.

' This code enables 128-bit SSL on a web site.
' ------ SCRIPT CONFIGURATION ------
strComputer = "<ServerName>"
strSiteID = "<SiteID>"

' Taken from AccessSSLFlags
'   8 = AccessSSL
'   256 = AccessSSL128
intFlag = 8 + 256
' ------ END CONFIGURATION ---------
set objWebSite = GetObject("IIS://" & strComputer & "/W3SVC/" & strSiteID)
objWebSite.AccessSSLFlags = intFlag
objWebSite.SetInfo
WScript.Echo "Successfully modified SSL settings for: " & _
             objWebSite.ServerComment

This code has been viewed 1155 times.

New from the creators of TechTasks.com: StatSheet.com