;*****************************************************************
; IntelliShutdown
;*****************************************************************
; getting log files ready and cleaned out.
; warning giving admin time to shut off.
? 'you have 20 seconds to stop this program'
? 'else it will shutdown all PCs at Branchs'
? 'session will drop if you click x in upper corner'
? 'but shutdown will stop nonetheless'
sleep 30
Shell "CMD.EXE /C xcopy clean.txt failure.txt /y"
Shell "CMD.EXE /C xcopy clean2.txt success.txt /y"
;*******************************************************************************************************
;LDAP Branchx delclare and fill portion
;*************declare and fill arrays here*****************************
Dim $Branch1, $Branch2, $Branch3, $Branch4
;fnLDAPQuery(WHAT, Optional FROM, Optional FILTER, Optional ORDER BY, Optional SCOPE, Optional USER, Optional PASSWORD)
$Branch1 = fnLDAPQuery('Name','GC://OU=Computers,OU=ForthAve,OU=funnycu,dc=funnycu,dc=priv','(&(objectClass=Computer)(Name=*))')
$Branch2 = fnLDAPQuery('Name','GC://OU=Computers,OU=EighthSt,OU=funnycu,dc=funnycu,dc=priv','(&(objectClass=Computer)(Name=*))')
$Branch3 = fnLDAPQuery('Name','GC://OU=Computers,OU=PostRd,OU=funnycu,dc=funnycu,dc=priv','(&(objectClass=Computer)(Name=*))')
$Branch4 = fnLDAPQuery('Name','GC://OU=Computers,OU=ParkDr,OU=funnycu,dc=funnycu,dc=priv','(&(objectClass=Computer)(Name=*))')
;****************************************************
$Skip1 = "pc1", "pc5","pc7","pc9"
;$Skip2 =
;$Skip3 =
;$Skip4 =
;*********************************************************************************************
For Each $Element In $Branch1
Shell "cmd.exe /c ping "+ $Element + " -n 2"
IF @ERROR = 0
If AScan($Skip1,$Element) = -1
Shell "net use z: \\" + $Element + "\c$"
If Exist("Z:\WINDOWS") <> 0
Shell 'CMD.EXE /C shutdown -m \\$Element -f -s '
IF @ERROR = 0 $RC = REDIRECTOUTPUT (success.txt, 0) ? 'XP: ' + $Element Endif
Endif
If Exist("Z:\WINNT") <> 0
Shell 'CMD.EXE /C psshutdown \\$Element -f -k '
IF @ERROR = 0 $RC = REDIRECTOUTPUT (success.txt, 0) ? '2k: ' +$Element Endif
Endif
Endif
Shell "CMD.EXE /C net use z: /delete"
Endif
Next
For Each $Element In $Branch2
Shell "cmd.exe /c ping "+ $Element + " -n 2"
IF @ERROR = 0
If AScan($Skip2,$Element) = -1
Shell "net use z: \\" + $Element + "\c$"
If Exist("Z:\WINDOWS") <> 0
Shell 'CMD.EXE /C shutdown -m \\$Element -f -s '
IF @ERROR = 0 $RC = REDIRECTOUTPUT (success.txt, 0) ? 'XP: ' + $Element Endif
Endif
If Exist("Z:\WINNT") <> 0
Shell 'CMD.EXE /C psshutdown \\$Element -f -k '
IF @ERROR = 0 $RC = REDIRECTOUTPUT (success.txt, 0) ? '2k: ' +$Element Endif
Endif
Endif
Shell "CMD.EXE /C net use z: /delete"
Endif
Next
For Each $Element In $Branch3
Shell "cmd.exe /c ping "+ $Element + " -n 2"
IF @ERROR = 0
If AScan($Skip3,$Element) = -1
Shell "net use z: \\" + $Element + "\c$"
If Exist("Z:\WINDOWS") <> 0
Shell 'CMD.EXE /C shutdown -m \\$Element -f -s '
IF @ERROR = 0 $RC = REDIRECTOUTPUT (success.txt, 0) ? 'XP: ' + $Element Endif
Endif
If Exist("Z:\WINNT") <> 0
Shell 'CMD.EXE /C psshutdown \\$Element -f -k '
IF @ERROR = 0 $RC = REDIRECTOUTPUT (success.txt, 0) ? '2k: ' +$Element Endif
Endif
Endif
Shell "CMD.EXE /C net use z: /delete"
Endif
Next
For Each $Element In $Branch4
Shell "cmd.exe /c ping "+ $Element + " -n 2"
IF @ERROR = 0
If AScan($Skip4,$Element) = -1
Shell "net use z: \\" + $Element + "\c$"
If Exist("Z:\WINDOWS") <> 0
Shell 'CMD.EXE /C shutdown -m \\$Element -f -s '
IF @ERROR = 0 $RC = REDIRECTOUTPUT (success.txt, 0) ? 'XP: ' + $Element Endif
Endif
If Exist("Z:\WINNT") <> 0
Shell 'CMD.EXE /C psshutdown \\$Element -f -k '
IF @ERROR = 0 $RC = REDIRECTOUTPUT (success.txt, 0) ? '2k: ' +$Element Endif
Endif
Endif
Shell "CMD.EXE /C net use z: /delete"
Endif
Next
;***************************************************************************************
; LDAP function for query above
Function fnLDAPQuery($What,Optional $From,Optional $Filter,Optional $OrderBy,Optional $Scope,Optional $User,Optional $Pswd)
Dim $oCon,$oCMD,$oRS,$sQ,$aR,$C,$R
$sQ="<"+Iif($From="","LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext"),$From)+">;"+$Filter+";"+Iif(VarType($What)>8192,Join($What,','),$What)+";"+Iif($Scope<>"base" AND $Scope<>"onelevel","subtree",$Scope)
$oCon=CreateObject("ADODB.Connection")
$oCon.Provider="ADsDSOObject"
$oCon.Properties("Encrypt Password").Value=1
$oCon.Properties("ADSI Flag").Value=1
If $User AND $Pswd
$oCon.Properties("User ID").Value=$User
$oCon.Properties("Password").Value=$Pswd
EndIf
$oCon.Open("Active Directory Provider")
$oCMD=CreateObject("ADODB.Command")
$oCMD.ActiveConnection=$oCon
$oCMD.CommandText=$sQ
$oCMD.Properties("Page Size").Value=1000
$oCMD.Properties("Timeout").Value=30
$oCMD.Properties("Cache Results").Value=0
If InStr($OrderBy,"distinguishedName")
$oRS=CreateObject("ADODB.Recordset")
$oRS.CursorLocation=3
$oRS.Sort=$OrderBy
$oRS.Open($sQ,$oCon,0,1,1)
Else
If $OrderBy
$oCMD.Properties("Sort On").Value=$OrderBy
EndIf
$oRS=$oCMD.Execute
EndIf
If @ERROR Exit @ERROR EndIf
If $oRS.BOF AND $oRS.EOF Exit @ERROR EndIf
$aR = $oRS.GetRows()
Dim $aFR[Ubound($aR,2),Ubound($aR,1)]
For $R=0 to Ubound($aR,2)
For $C=0 to Ubound($aR,1)
$aFR[$R,$C]=$aR[$C,$R]
Next
Next
$fnLDAPQuery=$aFR
EndFunction
