home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / iis4_07.cab / pausesrv.vbs < prev    next >
Encoding:
Text File  |  1997-08-28  |  1.6 KB  |  65 lines
  1. '------------------------------------------------------------------------------------------------
  2. '
  3. ' Usage: ASTPauseServers <--ADSPath|-a server1[,server2,server3...]> 
  4. '                        [--help|-?]
  5. '
  6. ' SERVERx         ADSI Path to the server to be Paused
  7. '
  8. ' Example 1: ASTPauseServers --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.             ServerList=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(ServerList) Then
  36.     Call DisplayUsage
  37. End If
  38.  
  39. Call ASTPauseServers(ArgServerList)
  40.  
  41. Sub ASTPauseServers(ServerList)
  42.     Dim ServerNum, oServer
  43.  
  44.     ServerNum = 0
  45.     While ServerNum <= UBound(ServerList)
  46.         Display "Pausing server " & ServerList(ServerNum) & "..."
  47.         Set oServer = GetObject(ServerList(ServerNum))
  48.         oServer.Pause
  49.         If Err <> 0 Then
  50.             Display "Couldn't pause server " & ServerList(ServerNuM) & "!" 
  51.         End If
  52.         ServerNum = ServerNum + 1
  53.     Wend 
  54. End Sub
  55.  
  56. Sub DisplayUsage
  57.     WScript.Echo "Usage: ASTPauseServers <--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.