setlocal enabledelayedexpansion
set /a id=1
for /f "delims=" %%a in (pay.txt) do (
set /a id+=1
md c:\web\www.%%a
adsutil.vbs create_vserv w3svc/!id!
adsutil.vbs set w3svc/!id!/servercomment "www.%%a"
adsutil.vbs create_vdir w3svc/!id!/root
adsutil.vbs set w3svc/!id!/root/path "c:\web\www.%%a"
adsutil.vbs set w3svc/!id!/serverbindings ":80:%%a"
adsutil.vbs set w3svc/!id!/root/appfriendlyName 默认应用程序
adsutil.vbs set w3svc/!id!/enabledefaultdoc true
adsutil.vbs set w3svc/!id!/serversize 1
adsutil.vbs set w3svc/!id!/root/accessread true