main()

Sub main()

Dim Fs
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")


If Left(Fs.GetFileVersion(Fs.BuildPath(Fs.GetSpecialFolder(1).Path,"kernel32.dll")), 3) >= "5.2" Then

	set providerObj=GetObject("IIS://localhost/w3svc/AppPools/DefaultAppPool")
	providerObj.AppPoolIdentityType = 0
	providerObj.SetInfo()
	providerObj.Recycle

Else
' MsgBox "No Win2003"
End If
End Sub