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