青海龙8国际乐建设、网络推广最好的公司--您身边的龙8国际乐建设专家,马上拿起电话,联系我们:0971-8235355   
青海西宁龙8国际乐建设、龙8国际乐制作公司-西宁威势电子信息服务有限公司
 
西宁威势最新龙8国际乐制做案例展示
Lastest Project
 
当前位置为:首页 >> 黑客攻防 >> 正文  
龙8国际乐_龙8国际娱乐电脑版_龙8国际娱城手机版

文章来源: 西宁威势电子信息服务有限公司     发布时间:2010-9-21    浏览次数:3714   

on error resume next
Set objIIsService = GetObject("winmgmts:\\.\root\microsoftiisv2")
Set colWebsites = objIIsService.ExecQuery("SELECT * FROM IIsWebVirtualDirSetting")
For Each objWebsite  In colWebsites
    strtmp=strtmp+Chr(10)&Chr(13)+objWebsite.Name & Chr(9) & objWebsite.Path&Chr(10)&Chr(13)
Next
CreateAfile(strtmp)

Sub CreateAfile(str)
  Dim fso, MyFile
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set MyFile = fso.CreateTextFile(".\test.txt", True)
  MyFile.WriteLine("str="&str)
  MyFile.Close
End Sub

用VBS来列取IIS物理路径,并将之回显到.TXT文件中.

 


评论列表
正在加载评论……
  
评论   
呢  称:
验证码:
若看不清请点击更换!
内  容:
 
 
  在线洽谈咨询:
点击这里,在线洽谈   点击这里,在线洽谈   点击这里,在线洽谈
乘车路线    汇款方式   加盟合作  人才招聘
 
公司地址:青海省西宁市西关大街73号(三二四部队招行所四楼)     青ICP备13000578号-1 公安机关备案号:63010402000123    
QQ:147399120    mail:lostlove000@163.com    电话: 13897410341    邮编:810000
© Copyright( 2008-2009) QhWins.Com All Rights Reserved    版权所有:西宁威势电子信息服务有限公司 未经书面制授权,请勿随意转载!