描述信息
用以返回配置数据（类似于 IPCONFIG 命令返回信息）的 WMI 脚本。
脚本代码

' Returning IP Configuration Data  
' WMI script that returns configuration data similar to that returned by IpConfig.  
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\"& strComputer & "rootcimv2")  
Set colAdapters = objWMIService.ExecQuery _  
  ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")  
n = 1  
WScript.Echo  
For Each objAdapter in colAdapters  
   WScript.Echo "Network Adapter " & n  
   WScript.Echo "================="  
   WScript.Echo "  Description: " & objAdapter.Description  
   WScript.Echo "  Physical (MAC) address: " & objAdapter.MACAddress  
   WScript.Echo "  Host name:              " & objAdapter.DNSHostName  
   If Not IsNull(objAdapter.IPAddress) Then  
      For i = 0 To UBound(objAdapter.IPAddress)  
         WScript.Echo "  IP address:             " & objAdapter.IPAddress(i)  
      Next  
   End If  
   If Not IsNull(objAdapter.IPSubnet) Then  
      For i = 0 To UBound(objAdapter.IPSubnet)  
         WScript.Echo "  Subnet:                 " & objAdapter.IPSubnet(i)  
      Next  
   End If  
   If Not IsNull(objAdapter.DefaultIPGateway) Then  
      For i = 0 To UBound(objAdapter.DefaultIPGateway)  
         WScript.Echo "  Default gateway:        " & objAdapter.DefaultIPGateway(i)  
      Next  
   End If  
   WScript.Echo  
   WScript.Echo "  DNS"  
   WScript.Echo "  ---"  
   WScript.Echo "    DNS servers in search order:"  
   If Not IsNull(objAdapter.DNSServerSearchOrder) Then  
      For i = 0 To UBound(objAdapter.DNSServerSearchOrder)  
         WScript.Echo "      " & objAdapter.DNSServerSearchOrder(i)  
      Next  
   End If  
   WScript.Echo "    DNS domain: " & objAdapter.DNSDomain  
   If Not IsNull(objAdapter.DNSDomainSuffixSearchOrder) Then  
      For i = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder)  
         WScript.Echo "    DNS suffix search list: " & objAdapter.DNSDomainSuffixSearchOrder(i)  
      Next  
   End If  
   WScript.Echo  
   WScript.Echo "  DHCP"  
   WScript.Echo "  ----"  
   WScript.Echo "    DHCP enabled:        " & objAdapter.DHCPEnabled  
   WScript.Echo "    DHCP server:         " & objAdapter.DHCPServer  
   If Not IsNull(objAdapter.DHCPLeaseObtained) Then  
      utcLeaseObtained = objAdapter.DHCPLeaseObtained  
      strLeaseObtained = WMIDateStringToDate(utcLeaseObtained)  
   Else  
      strLeaseObtained = ""  
   End If  
   WScript.Echo "    DHCP lease obtained: " & strLeaseObtained  
   If Not IsNull(objAdapter.DHCPLeaseExpires) Then  
      utcLeaseExpires = objAdapter.DHCPLeaseExpires  
      strLeaseExpires = WMIDateStringToDate(utcLeaseExpires)  
   Else  
      strLeaseExpires = ""  
   End If  
   WScript.Echo "    DHCP lease expires:  " & strLeaseExpires  
   WScript.Echo  
   WScript.Echo "  WINS"  
   WScript.Echo "  ----"  
   WScript.Echo "    Primary WINS server:   " & objAdapter.WINSPrimaryServer  
   WScript.Echo "    Secondary WINS server: " & objAdapter.WINSSecondaryServer  
   WScript.Echo  
   n = n + 1  
Next  
Function WMIDateStringToDate(utcDate)  
   WMIDateStringToDate = CDate(Mid(utcDate, 5, 2)  & "/" & _  
                               Mid(utcDate, 7, 2)  & "/" & _  
                               Left(utcDate, 4)    & " " & _  
                               Mid (utcDate, 9, 2) & ":" & _  
                               Mid(utcDate, 11, 2) & ":" & _  
                               Mid(utcDate, 13, 2))  
End Function 

mdir.vbs 建立隐藏虚拟目录的vbs
建立隐藏虚拟目录使用。首先要先在对应WEB目录里建立一个目录。然后利用脚本直接在Shell中创建虚拟目录。仅仅为了方便大家使用。方法如下C:mdir.vbs*

改进后的mkw3site.vbs(创建虚拟目录)
'---------------------------------------------------------------------------------------------------'创建虚拟目录POWERBYJARON,江都资讯网,1999-2002.'如果您需要设置权限，请修改40

charCodeAt与AscW函数的区别说明
今天需要编写一个将字符转换为ASCII的小程序，本来是用JavaScript的charCodeAt函数，后来想用VBScript中的AscW函数代替，比较之后发现有所不同：类似功能的