Windows Script Host学习收集

最新推荐文章于 2026-01-03 02:13:13 发布

原创最新推荐文章于 2026-01-03 02:13:13 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#windows #sqlserver #iis #server #服务器 #脚本

黑客技术专栏收录该内容

208 篇文章

订阅专栏

本文围绕Windows服务器展开，介绍了定时自动拷贝脚本的创建及备份任务建立，阐述WSH可使用ADO进行数据库操作，说明了修改NTFS硬盘文件权限的脚本，还展示了利用ADSI建立IIS站点的具体步骤。

1.定时自动拷贝

　　1.1建立以下脚本文件,例如为：netCopy.vbs

set wn=CreateObject("Wscript.Network")
set fso=CreateObject("Scripting.FileSystemObject")

'映射备份服务器上的个人备份目录

wn.MapNetworkDrive "n:","//192.168.0.5/BACKUP",False,"bkuser1","mypwd"

'开始备份

fso.CopyFolder "d:/myDOC/*.*","n:/myDIR",True

'取消映射

wn.RemoveNetworkDrive "n:",True

set wn=Nothing

set fso=Nothing

　　1.2在Windows中建立备份任务,这步就不用我讲了吧。

　　2.WSH能使用ADO吗？答案是肯定的。

strConn="driver={SQL Server};server=localhost;uid=sa;PWD=sapwd;database=master"
set objConn=CreateObject("ADODB.Connection")

objConn.ConnectionString=strConn

objConn.Mode=3

objConn.CommandTimeout=0

objConn.Open

objConn.Execute("Use Master")

objConn.Execute("exec doAnything")

objConn.Close

set objConn=Nothing

　　3.修改NTFS硬盘的文件权限

set objNet=Wscript.CreateObject("Wscript.Network")

set ws=Wscript.CreateObject("Wscript.Shell")

set fso=Wscript.CreateObject("Scripting.FileSystemObject")

set d=fso.GetDrive("D")

If (d.DriveType=2 And d.FileSystem="NTFS") then

iusr="IUSR_" & objNet.ComputerName

ws.Run("Attrib /S /D -R +A d:/dir1")

ws.Run("Cacls d:/dir2 /T /E /P " & iusr & ":R")

ws.Run("Cacls d:/dir3 /T /E /P " & iusr & ":C")

ws.Run("Cacls d:/dir4 /T /E /P " & iusr & ":F")

End If

set objNet=Nothing

set ws=Nothing

set fso=Nothing

　　4.知道ADSI(Active Directory Service Interface)的请举手

　　ADSI是MS对搞Novell的NDS的法宝，非常厉害。下面是一项小应用，建立IIS站点：

set objNet=Wscript.CreateObject("Wscript.Network")

set objWebSvc=GetObject("IIS://" & objNet.ComputerName & "/w3svc,IIsWebService")

'计算出下一个正确的站点编号

Index=0

bBlank=False

For Each s In objWebSvc

If s.Class="IIsWebServer" then

Index=Index+1

If (cint(s.Name)>Index) then

bBlank=True

Exit For

End If

End If

Next

if (Not bBlank) then Index=Index+1

'建立站点对象

set w=objWebSvc.Create("IIsWebServer",Index)

'设置属性，以下几个基本上是必须的。更多请参考MSDN

w.KeyType="IIsWebServer"

w.ServerComment="新WWW站点"

w.ServerBindings=Array(":81:input.your.HOSTNAME")

w.EnableDefaultDoc=True

w.DefaultDoc="default.asp"

'每个站点都必须有一个虚拟的根目录 ROOT

set r=w.Create("IIsWebVirtualDir","ROOT")

r.Path="D:/Inetpub"

r.AppFriendlyName="默认应用程序"

r.AppCreate2 2

r.AccessRead=True

r.AccessScript=True

r.EnableDirBrowsing=False

r.SetInfo

w.SetInfo

set w=Nothing

set r=Nothing

set objWebSvc=Nothing

set objNet=Nothing