改进后的mkw3site.vbs(创建虚拟目录)--打印文章

改进后的mkw3site.vbs(创建虚拟目录)

作者：武汉SEO闵涛文章来源：敏韬网点击数2272 更新时间：2009/4/23 18:59:34 文章录入：mintao 责任编辑：mintao

"Unable to set property "&name
End If
next
oAdmin.SetInfo
If Err <> 0 Then
Display "不能保存更新信息."
End If
end if
End Sub

'''' Display the usage message
Sub DisplayUsage
WScript.Quit (1)
End Sub

Sub Display(Msg)
WScript.Echo Now & ". Error Code: " & Hex(Err) & " - " & Msg
End Sub

Sub Trace(Msg)
if verbose = true then
WScript.Echo Now & " : " & Msg
end if
End Sub