[THIN] Re: Script help
- From: "Phillips, Kevin" <KPhillips@xxxxxxxxxxxxxxxxxxxxx>
- To: thin@xxxxxxxxxxxxx
- Date: Thu, 18 Dec 2003 14:58:06 -0500
Could you send me the SRVonline too? Thanks
_____
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf
Of Ron Oglesby
Sent: Thursday, December 18, 2003 1:46 PM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Re: Script help
Yeah this is one of Doug Brown's scripts. There is an SRV online version to.
I integrated these into server reboot scripts (found a couple of interesting
problems) that will unpublish the apps , wait for a while, kill session,
clean spooler, etc, then reboot the server, then when it comes back up
(based on day of week) will either republish the app or can leave it out if
you want to do server maintenance at that point in the morning. Etc.
Ron Oglesby
Senior Technical Architect
RapidApp
Office 312.372.7188
Mobile 815.325.7618
email roglesby@xxxxxxxxxxxx <mailto:roglesby@xxxxxxxxxxxx>
-----Original Message-----
From: Phillips, Kevin [mailto:KPhillips@xxxxxxxxxxxxxxxxxxxxx]
Sent: Thursday, December 18, 2003 12:38 PM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Re: Script help
Thanks Ron! That worked great.
_____
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf
Of Ron Oglesby
Sent: Thursday, December 18, 2003 1:11 PM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Re: Script help
What samples do you have? Got this one?
'***************************************************************************
*
'
'svrOffline.vbs
'
'Description: Take a MF XP server "offline" by unpublishing all applications
' published from the server. The published app names are stored
' to a text file in a path specified in the command line so that
' the server can be brought back 'online" by the svrOnline
script.
'
'Usage: Two required command line parameters - 1) MF XP server name (case
' sensitive 2) file path (with trailing "\" character)
'
' e.g. >cscript svrOffline.vbs MFXPTS05 C:\WINNT\TEMP\
'
'***************************************************************************
*
Dim fso
Dim fp
Dim svrName
Dim savePath
Dim mfSvr
Dim mfApp
Dim objArgs
Set objArgs = WScript.Arguments
If objArgs.Count > 1 Then
svrName = objArgs(0)
savePath = objArgs(1)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fp = fso.CreateTextFile(savePath & svrName & ".txt", True,
False)
Set mfSvr = CreateObject("MetaFrameCOM.MetaFrameServer")
mfSvr.Initialize 6, svrName
For Each mfApp In mfSvr.Applications
mfApp.RemoveServer svrName
mfApp.SaveData
fp.WriteLine mfApp.DistinguishedName
Next
fp.Close
Else
MsgBox "Usage: svrOffline.vbs <ServerName> <FileSavePath>"
End If
Ron Oglesby
Senior Technical Architect
RapidApp
Office 312.372.7188
Mobile 815.325.7618
email roglesby@xxxxxxxxxxxx <mailto:roglesby@xxxxxxxxxxxx>
-----Original Message-----
From: Phillips, Kevin [mailto:KPhillips@xxxxxxxxxxxxxxxxxxxxx]
Sent: Thursday, December 18, 2003 11:49 AM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Script help
I'm just trying to create a script that will un-publish all apps from a
server. I found some examples, but I always get an error "invalid procedure
call" on the line of code "aApp.Initialize MetaframeWinAppObject,appDN" Any
help would be appreciated. Thanks!
****************************************************************************
*****************************************************************
'On Error Resume Next
Dim Farm, unserver, appDN
Set Farm=CreateObject("MetaframeCOM.MetaframeFarm")
farm.Initialize 1
Const MetafameWinAppObject=3
Wscript.Echo "Farm name is " & farm.Farmname
unserver = inputbox("What server do you want to unpublish?")
For Each mfserver in Farm.servers
If mfserver.servername=unserver Then
Set aApps=mfserver.applications
For Each app in aApps
app_name=app.appname
appDN=app.distinguishedname
Set
aApp=CreateObject("MetaframeCom.MetaframeApplication")
aApp.Initialize
MetaframeWinAppObject,appDN
aApp.LoadData(TRUE)
wscript.sleep(500)
aApp.RemoveServer unserver
aApp.savedata()
Set aApp = nothing
Next
End If
Next
****************************************************************************
*********************************************************
Kevin Phillips
Web Services Administrator
Creative Solutions
Kphillips@xxxxxxxxxxxxxxxxxxxxx <mailto:Kphillips@xxxxxxxxxxxxxxxxxxxxx>
Other related posts: