我不抽烟

摘要： Class IISClassPublic Site()Public AppPool()Private SiteN,PoolNPrivate AnonyMouseName,ComputerNamePrivate AppPoolAndIIsSplitStr,SplitStrPrivate CreateSiteTmpNum Private Sub Class_Initialize()SiteN=0PoolN=0ComputerName=GetComputerNameAnonyMouseName="IUSR_" & ComputerNameAppPoolAndIIsSpli 阅读全文

摘要： Const AspNetExt="aspx"Dim Obj,Fso,F,Val,iSet Obj=New IISClassSet Fso=CreateObject("Scripting.FileSystemObject")Set F = Fso.CreateTextFile("是否有Net程序.txt", True)Obj.GetIISi=0For Each Val In Obj.Sitei=i+1WScript.Echo Fill(i,4) & "正在检测站点 " & Val.Name & 阅读全文