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 RootObj = GetObject("IIS://Localhost/W3SVC/1/ROOT")

	Dim tmp
	tmp = objWshShell.RegWrite("HKLM\SOFTWARE\システム・フューチャー株式会社\スーパー実践くん4WebCollabo\IISAnonymousUserName",RootObj.AnonymousUserName)

Else
' MsgBox "No Win2003"
End If
End Sub