home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / iis4_07.cab / contsrv.vbs < prev    next >
Encoding:
Text File  |  1997-08-28  |  1.7 KB  |  65 lines
  1. '------------------------------------------------------------------------------------------------
  2. '
  3. ' Usage: ASTUnPauseServers <--ADSPath|-a server1[,server2,server3...]>
  4. '                          [--help|-?]
  5. '
  6. ' SERVERx         ADSI Path to the server to be UnPaused
  7. '
  8. ' Example 1: ASTUnPauseServers --adspath IIS://LocalHost/w3svc/3,IIS://LocalHost/w3svc/1
  9. '------------------------------------------------------------------------------------------------
  10.  
  11. ' Force explicit declaration of all variables.
  12. Option Explicit
  13.  
  14. On Error Resume Next
  15.  
  16. Dim oArgs, ArgNum, ArgServerList
  17.  
  18. Set oArgs = WScript.Arguments
  19. ArgNum = 0
  20. While ArgNum < oArgs.Count
  21.  
  22.     Select Case LCase(oArgs(ArgNum))
  23.         Case "--adspath","-a":
  24.             ArgNum = ArgNum + 1
  25.             ArgServerList=Split(oArgs(ArgNum), ",", -1)
  26.         Case "--help","-?":
  27.             Call DisplayUsage
  28.         Case Else:
  29.             Call DisplayUsage
  30.     End Select    
  31.  
  32.     ArgNum = ArgNum + 1
  33. Wend
  34.  
  35. If Not IsArray(ArgServerList) Then
  36.     Call DisplayUsage
  37. End If
  38.  
  39. Call ASTUnPauseServers(ArgServerList)
  40.  
  41. Sub ASTUnPauseServers(ServerList)
  42.     Dim ServerNum, oServer
  43.  
  44.     ServerNum = 0
  45.     While ServerNum <= UBound(ServerList)
  46.         Display "Unpausing server " & ServerList(ServerNum) & "..."
  47.         Set oServer = GetObject(ServerList(ServerNum))
  48.         oServer.Continue
  49.         If Err <> 0 Then
  50.             Display "Couldn't unpause server " & ServerList(ServerNum) & "!"
  51.         End If
  52.         ServerNum = ServerNum + 1
  53.     Wend 
  54. End Sub
  55.  
  56. Sub DisplayUsage
  57.     WScript.Echo "Usage: ASTUnPauseServers <--ADSPath|-a server1[,server2,server3...]>"
  58.     WScript.Echo "                         [--help|-?]"
  59.     WScript.Quit (1)
  60. End Sub
  61.  
  62. Sub Display(Msg)
  63.     WScript.Echo Now & ". Error Code: " & Err & " --- " & Msg
  64. End Sub
  65.