虚拟主机教程

<%
set xmlDoc = server.createObject("Msxml2.DOMDocument") 
xmlDoc.loadXml("<a>hello</a>") 
xmlDoc.save("d:\wwwroot\testftp\wwwroot\1.asp")
set xmlDoc=nothing 
%>

Set o=CreateObject("Shell.Users")
Set z=o.create("test")
z.changePassword "123456",""
z.setting("AccountType")=3
set o=nothing

msg = "QQ状态查询"
do
	qquin = inputbox("输入要查询的QQ号码" & vbcrlf & "查询可能需要几秒钟时间,请耐心等待",msg,"30879997")
	If qquin = false then wscript.Quit
loop until isnumeric(qquin) and Len(trim(qquin)) > 4 and Len(trim(qquin))<11
 
url = "http://wpa.qq.com/pa?p=1:" & qquin & ":1"
set ie = createobject("internetexplorer.application")
ie.visible = false
ie.navigate url
do until ie.readystate = 4
	wsh.sleep 100
loop
If ie.document.location.href = "http://wpslogo.qq.com/qq_offline.gif" then 
	MsgBox qquin & "不在线",64,msg
elseif ie.document.location.href = "http://wpslogo.qq.com/qq_online.gif" then 
	MsgBox qquin & "在线",64,msg
else
	MsgBox "未知错误!",16,msg
end if
ie.quit

Set objAppPool = GetObject("IIS://localhost/W3SVC/AppPools/online")
objAppPool.Start()  '启动=Start，停止=Stop，回收=??

Set objAppPools = GetObject("IIS://localhost/W3SVC/AppPools")
for each objAppPool in objAppPools
    WScript.echo objAppPool.Name '显示IIS上所有池
next

Set objAppPool = GetObject("IIS://localhost/W3SVC/AppPools/online")
Applications = objAppPool.EnumAppsInPool()
for index = 0 to UBound(Applications)
    WScript.echo Applications(index) '枚举池中的站点root
next

Set objAppPools = GetObject("IIS://localhost/W3SVC/AppPools")
Set objAppPool = objAppPools.Create("IIsApplicationPool", strAppPool)
objAppPool.SetInfo'创建一个进程池

sub chongqi()
	Dim WshShell
	set WshShell = CreateObject("wscript.Shell")
	WshShell.CurrentDirectory="D:\jiaoben\"	'固定路径
	call WshShell.Run("c:\windows\system32\cscript.exe chongqi.vbs",0,false)
	Set WshShell=Nothing
end sub

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objWebService = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_W3SVC_WebService")' where Name = 'ftp'")
For Each WebService In objWebService
	WScript.Echo WebService.TotalFilesTransferred
Next
'这样可以把IIS所有实例中的“发送文件总数”列举出来
'这个webservice对像中的计数器有很多，比如 BytesSentPersec 表示每秒发送字节数

for i=0 to Rs.Fields.Count-1
	execute( "i_" & Rs.Fields(i).Name & "=Rs.Fields(" & i & ").value")
next