这一次，我们要利用WSH完成一次创建十个文件夹的工作。代码如下：

　　dim objdir

　　setōbjdir=wscrīpt.createobject("scrīpting.filesystemobject")

　　for k=1 to10

　　anewfolder="c:/chapter"& k

　　objdir.createfolder(anewfolder)

　　next

同样，将它存为 .vbs文件并退出。运行后，我们会发现，C盘根目录下一次性多出了十个新文件夹。

   后，再举一个在服务器上的运用。下面的代码将帮助你重新启动指定的 IIS服务：　　' definea constant for stopped services

　　ConstADS_SERVICE_STOPPED = 1

' get an ADSI object for a computer

　　SetōbjComputer =GetObject("WinNT://MYCOMPUTER，computer")

' get an object for a service

　　SetōbjService =objComputer.GetObject("Service"，"MYSERVICE")

' check to see if the service is stopped

　　If(objService.Status = ADS_SERVICE_STOPPED) Then

' if the service is stopped， then start it

　　objService.Start

　　End If

将它以 startsvc.vbs为名保存在 C: 盘根目录。并通过如下命令执行：Cscrīpt C:/STARTSVC.VBS。运行后，经你指定的 IIS 服务项将被重新开启。

其实，在 Windows的 samples目录下，有个 WSH文件夹，那里面有不少很具代表性的 .vbs和. js脚本文件。

此外，利用 WSH还可以自己编写脚本文件来提高网络管理方面的效率。

8.从 EXCEL中导出数据进行测试

datatable.AddSheet("51sheet")

datatable.ImportSheet"f:/test.xls"，"testsheet"，"51sheet"

Dim i，RowCount '定义两个变量

i=0

RowCount=datatable.GetSheet("51sheet").GetRowCount'设置 RowCount等于 51sheet中的行数。

msgbox RowCount

Do while i<rowcount

i=i+1 '第一次进入循环，执行这句后， i=1

'datatable.getsheet("51sheet").setcurrentrow(i)  这句话被我注释掉了，正确的写法应该是下面这样，分开写。

datatable.getsheet("51sheet")

datatable.setcurrentrow(i)

'执行过上面两句后， CurrentRow是第一行。

tempData=DataTable.GetSheet("51sheet").GetParameter("Name").Value            

'现在，我们调用 msgbox看看下面这种调用方法得到的是什么值？没错，是第一行的值，下一次循环呢？

'得到的是第二行的值么？

msgbox"GetParameter-Name:"&tempData '这里弹出我们要看的值。

'下面我们用另外一种方法来得到。

msgbox"GetParameter-i:"&DataTable.GetSheet("51sheet").GetParameter(1).Value'这里我用GetParameter(1)去得到 sheet中第一列的值。

loop

9.关于 dtGlobalsheet与 dtLocalsheet

1) dtGlobalsheet只有一个，它的 index值比较特殊，它有两个 index值，一个是 1还有一个是内置的默认的 1000。

你可以用 1或者 1000去引用它都是正确的。当然了，如果你用 dtGlobalsheet来引用它也是正确的。这个 sheet的 Name叫做 "Global"。注意： SheetName是区分大小写的。

2) dtLocalsheet可以用 index:1001来引用，当然，也可以用 2来引用。至于其它自定义的 sheet嘛，你只能用 index:3来引用了。

它没有内置的默认的类似前两个那样的 index值。

3) datatable这个对象只有一个。是所有 sheet的集合。或许你把它理解为 excel文件比较好。

dtsheet呢？是其中的每个 sheet。所不同的是 MI为他们做了一些默认值。在我们的应用中，可能会有多个 action，如： actiion1，actiion2，actiion3