You can download the gadget here or at Microsoft.

Thanks for the early adopters who gave me an insight to how to code this.

A lot of questions about IIS 7.0 and they were easy… There were some questions about the new Terminal Services features, I didn’t get , so I have to work on that. And 1 question about ip v6, I guessed. Thats something i really have to look into.

Thats 1 down, 2 to go to become a enterprise administrator 2008.

Add the following command to a batch file (called something like “get-spns.bat”) and you get a list of SPN’s registered with a given name and which account is associated with the SPN.

ldifde -f spns.txt -s domaincontroller -r “(|(msDS-AllowedToDelegateTo=*%1*)(servicePrincipalName=*%1*))” -l msDS-AllowedToDelegateTo,servicePrincipalName

usage: get-spns.bat servername/hostheader

open up the created spns.txt and voila.

‘————————————————————————–

Option Explicit

‘————————————————————————–
‘ init
‘————————————————————————–

Dim oIIS
Dim sDataPath
Dim cDataPaths
Dim sAppPoolID
Dim oWMI
Dim cProcessList
Dim oProcess

‘————————————————————————–
‘ Main routine
‘————————————————————————–

Set oIIS = GetObject(”IIS://localhost/w3svc“)
cDataPaths = oIIS.GetDataPaths(”AppPoolId“,0)
For Each sDataPath In cDataPaths
WScript.Echo “————————————————————”
sAppPoolID = GetObject(sDataPath).AppPoolId
WSCript.Echo “Metabase Path: ” & sDataPath
WScript.Echo “Appication Pool: ” & sAppPoolID
WScript.Echo “W3wp.exe Pid: ” & GETWPPID(sAppPoolID)
Next
WScript.Echo “————————————————————”

‘————————————————————————–

‘————————————————————————–
‘ Functions and Subs
‘————————————————————————–

Function GETAPID(sArg)
Dim Submatches
Dim sAppPoolid
Dim re
Dim Matches

On Error Resume Next

Set re = New RegExp
re.Pattern = “-ap “”(.+)”"”
re.IgnoreCase = True
Set Matches = re.Execute(sArg)
Set SubMatches = Matches(0).Submatches
sAppPoolid = Submatches(0)

GETAPID = sAppPoolid
End Function

Function GETWPPID(sAppPool)
Set oWMI = GetObject(”winmgmts:\root\cimv2“)
Set cProcessList = oWMI.ExecQuery(”Select * from Win32_Process WHERE Name=’w3wp.exe’“)
For Each oProcess In cProcessList
If GETAPID(oProcess.CommandLine) = sAppPool Then
GETWPPID = oProcess.ProcessID
Exit Function
End If
Next
GETWPPID = “Application Pool is not running”
End Function

‘————————————————————————–

Copy the following text into a new file named “IsModeDebug.cs”

//##########################################################
using System;
using System.Reflection;
using System.Diagnostics;

namespace IsModeDebug

{
public class IsDbg

// Errorlevels, for batch reasons:
// 0 = Non-Debug Assembly
// 1 = Debug Assembly
// 2 = No assembly name passed on command line
// 4 = Exception thrown

{
public static int Main(String[] args)
{
if (args.Length != 1)
{
Console.WriteLine(”\nError: Not enough command line options specified.“);
Console.WriteLine(”Usage: \”IsModDebug <path to assembly>\”“);

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Csc.exe /noconfig /debug- /optimize+ /out:C:\Temp\\IsModeDebug.exe /target:exe C:\Temp\IsModeDebug.cs

Usage: “IsModeDebug.exe path_to_assembly”