[python]

import urllib2
import urllib
import sys

devicedim = ['41941']
deviceoff = ['48839']
deviceon = ['62270']
username = 'admin'
password = 'admin'

topurl = 'http://isy'
passman = urllib2.HTTPPasswordMgrWithDefaultRealm()
passman.add_password(None, topurl, username, password)
authhandler = urllib2.HTTPBasicAuthHandler(passman)
opener = urllib2.build_opener(authhandler)
urllib2.install_opener(opener)

if sys.argv[1] == 'playing':
for devicex in deviceoff:
theurl = 'http://isy/rest/nodes/' + devicex + '/cmd/DOF'
#normalize the URL
theurl = urllib.quote(theurl, safe="%/:=&?~#+!$,;'@()*[]")
print (theurl)
pagehandle = urllib2.urlopen(theurl)
for devicex in devicedim:
theurl = 'http://isy/rest/nodes/' + devicex + '/cmd/DON/64'
#normalize the URL
theurl = urllib.quote(theurl, safe="%/:=&?~#+!$,;'@()*[]")
print (theurl)
pagehandle = urllib2.urlopen(theurl)
elif sys.argv[1] == 'stopped':
for devicex in deviceon:
print (devicex)
theurl = 'http://isy/rest/nodes/' + devicex + '/cmd/DON'
#normalize the URL
theurl = urllib.quote(theurl, safe="%/:=&?~#+!$,;'@()*[]")
print (theurl)
pagehandle = urllib2.urlopen(theurl)
else:
print 'no state given'
[/python]

Usage: [plain]isy-medialights.py playing|stopped[/plain]

[powershell]param($rootMS,$urlName,$minutes,$comment,$reason)
Add-PSSnapin "Microsoft.EnterpriseManagement.OperationsManager.Client" -ErrorVariable errSnapin;

Set-Location "OperationsManagerMonitoring::" -ErrorVariable errSnapin;
new-managementGroupConnection -ConnectionString:$rootMS -ErrorVariable errSnapin;
set-location $rootMS -ErrorVariable errSnapin;

$URLWatcher = (Get-MonitoringClass -name Microsoft.SystemCenter.WebApplication.Perspective) | Get-MonitoringObject | where {$_.DisplayName -eq $urlName}

$startTime = [System.DateTime]::Now
$endTime = $startTime.AddMinutes($minutes)

"Putting URL into maintenance mode"
foreach ($name in $URLWatcher) {
New-MaintenanceWindow -startTime:$startTime -endTime:$endTime -monitoringObject:$name -comment:$comment -Reason:$reason }[/powershell]

Usage:

[bash]C:\WINDOWS\system32\WindowsPowerShell\v1.0\powershell.exe URLMaintenanceModeV4.ps1 -rootMS: `SCOMRMS1′ -urlName: ‘MSN Website Checker’ -minutes:45 -comment: ‘My Comment’ -reason: ‘PlannedOther’[/bash]

http://www.scom2k7.com/schedule-a-into-url-maintenance-mode/

What this script does is it scans a directory's subdirectories (as with many homedirs, the subdirectories are usually the AD account name). It then tries to match the subdirectory to an AD account name. If this proves that one doesn't exist, it prompts and spits out the ACL info and a prompt to move the files. If you say yes, it moves them to the directory you specified in arg1.

[vb]'Example: cscript orphaned-files.vbs "T:\" "T:\~archive" where T:\ is a mapped drive
strDomain = "dc=yourdomain,dc=com"
strFromDir = wscript.arguments(0)
strToDir = wscript.arguments(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(strFromDir)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
'Wscript.Echo Subfolder.Path
sUserName = replace(Subfolder.Path, strFromDir,"")
UserExist(sUserName)
Next
End Sub
Sub UserExist(sUserName)
dtStart = TimeValue(Now())
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<LDAP://" & strDomain & ">;(&(objectCategory=User)" & _
"(samAccountName=" & sUserName & "));samAccountName;subtree"
Set objRecordSet = objCommand.Execute
If objRecordset.RecordCount = 0 Then
WScript.Echo "*******************sAMAccountName: " & sUserName & " does not exist."
DisplayACLS(sUserName)
End If
objConnection.Close
End Sub
Sub DisplayACLS(sUserName)
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("ICACLS " & strFromDir & sUserName & "")
Set objStdOut = objWshScriptExec.StdOut
strLine = objStdOut.ReadAll
Wscript.Echo strLine
intAnswer = _
Msgbox("Do you want to move these files?", _
vbYesNo, "Move Files")
If intAnswer = vbYes Then
MoveFiles(sUserName)
Else
wscript.echo "Skipping Files"
wscript.echo "*******************"
End If
End Sub
Sub MoveFiles(sUserName)
wscript.echo "Moving Files"
wscript.echo "*******************"
Set wshShell = WScript.CreateObject ("WScript.shell")
rc=wshShell.run("cmd /c robocopy """ & strFromDir & sUserName & """ """ & strToDir & sUserName & """ /S /E /MOVE /COPY:DAT /V /NP /NFL /ZB /R:3 /W:3 /TEE",1,False)
Set wshShell = nothing
End Sub[/vb]

Example Output:

[plain]*******************sAMAccountName: username does not exist.
S:\username BUILTIN\Administrators:(OI)(CI)(F)
CREATOR OWNER:(OI)(CI)(IO)(F)
(OI)(CI)(F)
Successfully processed 1 files; Failed processing 0 files
Moving Files
*******************[/plain]

here's the post: http://forums.microsoft.com/TechNet/ShowPost.aspx?PostID=2796017&SiteID=17

on error resume next
' Setup a connection to the local provider.
Set swbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set swbemServices= swbemLocator.ConnectServer(".", "root\sms")
Set providerLoc = swbemServices.InstancesOf("SMS_ProviderLocation")
For Each Location In providerLoc
If location.ProviderForLocalSite = True Then
Set swbemServices = swbemLocator.ConnectServer(Location.Machine, "root\sms\site_" + Location.SiteCode)
siteCode = Location.SiteCode
Exit For
End If
Next

Set swbemContext = CreateObject("WbemScripting.SWbemNamedValueSet")
swbemContext.Add "SessionHandle", swbemServices.ExecMethod("SMS_SiteControlFile", "GetSessionHandle").SessionHandle

' How to list the site security mode from the site control file.
Call SetSecureKeyExchange(swbemServices, swbemContext, siteCode, 0)
Sub SetSecureKeyExchange(swbemServices, _
swbemContext, _
siteCode, _
enableDisableFlag)

' Load site control file and get the SMS_SCI_SiteDefinition section.
swbemServices.ExecMethod "SMS_SiteControlFile.Filetype=1,Sitecode=""" & siteCode & """", "Refresh", , , swbemContext Query = "SELECT * FROM SMS_SCI_SiteDefinition " & _
"WHERE ItemName = 'Site Definition' " & _
"AND SiteCode = '" & siteCode & "'"

' Get the Site Definition properties.
Set SCIComponentSet = swbemServices.ExecQuery(Query, ,wbemFlagForwardOnly Or wbemFlagReturnImmediately, swbemContext)

'Only one instance is returned from the query.
For Each SCIComponent In SCIComponentSet
'Loop through the array of embedded SMS_EmbeddedProperty instances.
For Each vProperty In SCIComponent.Props
' Setting: Allow unknown child sites aka check the box
' require secure key exchange
If vProperty.PropertyName = "Allow unknown child sites" Then
wscript.echo "Site Code: " & SiteCode
wscript.echo vProperty.PropertyName
wscript.echo "Current value: " & vProperty.Value
wscript.echo "Resetting value to: " & enableDisableFlag

' modify the value
vProperty.Value = enableDisableFlag

' Save the properties
SCIComponent.Put_ , swbemContext
End If
Next
Next

'Commit any changes to the actual site control file.
Set InParams = swbemServices.Get("SMS_SiteControlFile").Methods_("CommitSCF").InParameters.SpawnInstance_
InParams.SiteCode = siteCode
swbemServices.ExecMethod "SMS_SiteControlFile", "CommitSCF", InParams, , swbemContext

' Release the copy of the site control file.
swbemServices.Get("SMS_SiteControlFile").ReleaseSessionHandle swbemContext.Item("SessionHandle").Value
End Sub

[vb]On Error Resume
Nextssize = WScript.Arguments(0)
slocation = WScript.Arguments(1)
Set oUIResource = CreateObject("UIResource.UIResourceMgr")
Set CacheInfo = oUIResource.GetCacheInfo

cacheInfo.TotalSize = sSize

if WScript.Arguments(1) then
CacheInfo.Location = sLocation
End if[/vb]

change the two variables for your input and output txt files:
strPATHout = "C:\pingstatus.txt"
strPATHin = "C:\pinglist.txt"

ON ERROR Resume Next

' Quit the Script ----------------------------------------------------
WScript.quit