siliconpizza.com

Over the past five years I have built several Highly available microsoft web hosting farms , hosted web apps, and associated database servers and supporting services, each one slight better than the last.

Web farms
No 1. IIS5, NLB base load balancing, every web site usesing same process identity, many sites is shared pool
No 2. IIS6, Cisco CSM load balanced, 2 Node Physcial, unique ID for every site / application
No 3, IIS6, Cisco ACE Load Balanced, 4 Node Virutal, unique ID for every site / application
No 4, IIS6, Cisco ACE Load Balanced, 4 Node Virutal, unique ID for every site / application, second site
No 5, IIS6, Cisco ACE Load Balanced, 4 Node Virutal, unique ID for every site,  Internet facing with SSL
No 6, IIS6, Cisco ACE Load Balanced, 4 Node Virutal, unique ID for every site,  Intranet facing with SSL
No 7, IIS6, Cisco ACE Load Balanced, 4 Node Virutal, unique ID for every site,  Intranet facing with SSL
No 8, IIS6, Cisco ACE Load Balanced, 4 Node Virutal, unique ID for every site,  Intranet facing with SSL, for UAT use.

FTP, centralise FTP gateway providing a single FTP solution to every windows / Sambe wen server inside the enterprise

Wordpress MU, enterprise blog solution

Now Finally I get to build an IIS7 one and FTP7 with FTP over SSL, watch this space

I have been working on a ZERO touch build script for IIS on and off for a few weeks,

One of the last stepping stone for formating the “data” drive prior to setting everything up

“FORMAT H: /FS:NTFS /V:ASG” will prompt for “do you want to erase all yoiu data”, and again if the disk is in use !

 So enter WMI, after only 20 mins of digging around the the internet I found some code to do a defrag, a few tweaks, and I have some VBS code that will format a DRIVE, NO questions, even if the drive is in use, and it is ONLY 7 lines

strComputer = “.”
Set objWMIService = GetObject(”winmgmts:\\” & strComputer & “\root\cimv2″)
Set colVolumes = objWMIService.ExecQuery (”Select * from Win32_Volume Where Name = ‘H:\\’”)
For Each objVolume in colVolumes
     errResult  = objvolume.dismount(1,0)
     errResult = objVolume.format(”NTFS”, 1, 4096, “ASG”, 0)
Next

some REALLY rough and not very elegent code but this is my website create code for IIS6

Points to note:

• I centrally manage the W3SVC instance number, so they are unique across all of the platforms in the enterprise, hence the instance number is specified , not generated in the function
• I use AD based IWAM accounts to connect to CIFS (UNC) based content, so these have to be specified
• hosts string is a comma separated list of hostheaders,

Read the rest of this entry »

I know this is VB.NET but i was in a hurry and my C# sucks
this is mostly cobbled togther from other stuff I found on the net, none of which did EXACTLY what I needed
When I get the time i will publish some of my other functions, including IIS6 site create and IIS6 FTP Profile Create

This is a simple VB.NET function to create and IIS6 Application pool
This function is designed to specify the UserId and Password for the AppPool Identity and was used in an environment where domain credentials were used

Read the rest of this entry »