משהו שכתבתי לפני כמה חודשים והיום שכתבתי.
מקבל כמות בלתי מוגבלת של שרתים כפרמטרים.

קוד:

@echo off
setlocal ENABLEDELAYEDEXPANSION
if "%1" == "" goto :SYNTAX

:START
for %%a in (%*) do (
	FOR /F "tokens=*" %%b IN ('PING -a %%a -n 1 ^| findstr /i "Request Reply destination"') DO ECHO [!DATE! !TIME!] -- %%a: %%b
)
if not "%2" == "" echo.
timeout /t 1 >nul
goto :START

:SYNTAX
echo Super Ping. Written by Netanel Attali - 2010. 
echo Pings multiple hosts and output the timestamp.
echo.
echo Usage: %~nx0 Host1 [Host2...]

יש לשמור כקובץ cmd.
נסו ותהנו

לבלוג שלי - Sandbox

Pinky: Ha ha ha ha, Troz!
Brain: What is troz?
Pinky: Why that's Zort in a mirror. Huh huh, Troz!

חמוד, אבל לא הגיע הזמן להתקדם כבר ל powershell? תוכל גם להחזיר סיבת כישלון לפינג (אם מנהלי הרשת פה לא היו מוחקים לי קבצים הייתי מעלה דוגמה )

תראה, כל היופי של הסקריפט הזה הוא בפשוט וב(חוסר) אורך שלו

גם בbatch אני יכול לבדוק errorlevel ולהפנות לפלט מתאים.. אבל ככה אני אוהב את הסקריפטים שלי, קצרים ופושטים ככל הניתן


א-ב-ל. אתה צודק, איפה שאפשר ויעיל, אני כבר משתמש בPS. העבודה עם קבצי csv מעולם לא היתה יפה יותר

לבלוג שלי - Sandbox

Pinky: Ha ha ha ha, Troz!
Brain: What is troz?
Pinky: Why that's Zort in a mirror. Huh huh, Troz!

קצר ויעיל זה חשוב,
אבל כשתרצה דברים טובים יותר דוגמת:

קוד:

$TempErr = $ErrorActionPreference
$ErrorActionPreference = "SilentlyContinue"
$ping = New-Object System.Net.NetworkInformation.Ping
$Searcher = New-Object DirectoryServices.DirectorySearcher

$searcher.filter = "objectClass=computer"
$cmplist = $searcher.FindAll() | ForEach-Object { $_.Path.Split(",") } | where {$_ -match "LDAP://CN=" } | ForEach-Object {$_.Replace(" LDAP://CN=","") }
$cmplist | where { $($ping.Send($_)).Status -eq "Success" }
$ErrorActionPreference = $TempErr

(לא בטוח אם זה עדיין עובד ב PS2, אני אתן לך לנחש לבד מה זה עושה ) אין סיכוי שבעולם לעשות אם זה בbatch ו VB בהחלא לא בא בחשבון

קובי, אל תאתגר אותי לעשות את זה בbatch
אחר כך הבוסים שלי מתלוננים שאני לא עומד ביעדים.

תן לי להבין. אתה מוציא רשימה של כל המחשבים בAD ומריץ עליהם ping. הפלט הוא רשימת המחשבים שבהם הפעולה הצליחה. עד כאן?
למה כל ה split ו replace? לנקות את הdn ולהשאיר רק cn?

לבלוג שלי - Sandbox

Pinky: Ha ha ha ha, Troz!
Brain: What is troz?
Pinky: Why that's Zort in a mirror. Huh huh, Troz!

גם להעיף את הCN, שיהיה רק שמות של מחשבים.

רצו לדעת מי לא מתייחס לחוק להשאיר את המחשבים דולקים בלילה, משם זה הפך להיות סקריפט שמוודא לך למי יש פחות מחצי ג'יגה זיכרון בשביל שישדרגו לו את המחשב (ולא, אין לי גישה לSMS אצלנו כי המנהלי רשת... רעים ) ומאז זה התפתח אפילו יותר.

יש דברים שב batch אי אפשר לעשות:

קוד:

function xcopy ($FROM, $TO)
{
 dir -R $FROM | % {$fc=0} {$fc+=1}
 $oldposition = $host.ui.rawui.CursorPosition
 copy $FROM -destination $TO -passthru -Recurse | % -begin {$tc=0;$t=0} {`
  $l = $($_.Length/1024).ToString(" 0.00"); $n=$_.Name; $t+=$l;`
  $percent = [int](($tc/$fc)*100);
  $bar =  $($("$percent%").PadLeft(($tc/$fc)*12+1,"=") + $(">").PadLeft(($tc/$fc)*12,"=")).PadRight(25); ` 
  $host.ui.rawui.CursorPosition = $oldposition; `
  $("[$bar] $n").PadRight(80); `
  $tc+=1;} -end {`
  if ($t -lt 1000) {$t=$t.ToString("0.00"); $m=" KB"}
  if ($t -gt 1000) {$t=$($t/1024).ToString(" 0.00"); $m=" MB"}
  $percent = 100;
  $bar =  $($("$percent%").PadLeft(($tc/$fc)*12+1,"=") + $(">").PadLeft(($tc/$fc)*12,"=")).PadRight(25); `
  $host.ui.rawui.CursorPosition = $oldposition; ` 
  $("[$bar], $tc Files, $t$m ").PadRight(80); `
  "Done!"`
 }
}

ככה התחלתי ללמוד powershell, אמנם אין התייחסות לגדלים של קבצים - אבל זה עדיין נראה מגניב

אם תרצה אני אשתף עוד, אבל כבר המון זמן שלא התעסקתי עם זה

מגניב
ללא ספק, בכל הנוגע ליכולות גרפיות בממשק הטקסטואלי, עשו עבודה טובה בPS.
סוף סוף אפשר לצבוע מילים ושורות בצבע נפרד!

לבלוג שלי - Sandbox

Pinky: Ha ha ha ha, Troz!
Brain: What is troz?
Pinky: Why that's Zort in a mirror. Huh huh, Troz!

אז יאללה לעבודה - תתחיל ללמוד

אתה הבנאדם השלישי שאני מכיר שאשכרה טרח להתעסק עם PS...

הבטחתי ולכן אקיים. זה היה הרבה יותר פשוט ממה שחשבתי (בטח בשתים בלילה...):

קוד:

@echo off
setlocal ENABLEDELAYEDEXPANSION
for /f %%a in ('dsquery computer -limit 0 -o rdn') do (
	ping -n 1 %%a >nul
	if !ERRORLEVEL! == 0 (
		echo %%a is alive!
	) else (
		echo %%a is not responding to ping!
	)
)
	

לבלוג שלי - Sandbox

Pinky: Ha ha ha ha, Troz!
Brain: What is troz?
Pinky: Why that's Zort in a mirror. Huh huh, Troz!

כן, אבל זה זמין רק ב2008 (איפה שיש לך כבר PS מותקן )
מה לגבי AD גדול? הוא יודע להגדיר buffer גדול יותר ולחפש בכולו?

אני אתן לך אתגר חדש לבצע ב batch כשאגיע לעבודה מחר... נראה לי שאתה נהנה מזה

לא הבנתי מה זמין רק ב2008... dsquery? את הסקריפט הזה אני מריץ בהצלחה מהתחנה שלי..
ולא הבנתי גם את השאלה לגבי ה buffer.

ואתה מוזמן, אני אכן נהנה מזה.. אבל אולי כדאי להפנות את זה לכל המשתתפים

לבלוג שלי - Sandbox

Pinky: Ha ha ha ha, Troz!
Brain: What is troz?
Pinky: Why that's Zort in a mirror. Huh huh, Troz!

כן, אני מחפש דברים שעובדים out of the box, אחרת באותה מידה אפשר לחפש דברים מוכנים
לגבי ה buffer - כאשר יש לך יותר מ-1000 אובייקטים בAD כברירת מחדל החיפוש מאחזר רק את ה-1000 הראשונים (ברוב ה provider-ים, זאת אומרת), ככה שאם יש לך יותר מידי אובייקטים בAD לא תקבל את כל הנתונים תמיד, אם תגדיר buffer או תבצע חיפוש מספר פעמים עד שתמשוך את כולם - רק אז תקבל נתונים מלאים/

טוב, טעיתי בשם, מדובר על page.
http://support.microsoft.com/kb/315071
קפוץ לחלק על MaxPageSize

שוב, dsquery זו פקודה שקיימת כחלק מכלי הניהול.
אני מניח שעל כל תחנה של איש סיסטם בסביבת AD יש לך לפחות admin pack או rsat מותקן..

dsquery אכן מחזיר כברירת מחדל 100 אובייקטים, אלא אם משתמשים ב-limit 0 ואז הוא פשוט נותן את כולם.

לבלוג שלי - Sandbox

Pinky: Ha ha ha ha, Troz!
Brain: What is troz?
Pinky: Why that's Zort in a mirror. Huh huh, Troz!

טוב, לא ממש אתגר (כי במבט לאחור קל נורא לבצע את זה ב batch), אבל קטע קוד שתמיד יעזור לך אם אתה מגיע למקום עם חלונות 2003 ומטה שמנסים לעבוד בו עם roaming profiles

קוד:

takeown /f $args[0] /a
cacls $args[0] /c /t /e /g Administrators:F
dir -Recurse $args[0] | % {$n = '"' + $_.FullName + '"'; takeown /f $n /a | Out-Null ; cacls $n /c /t /e /g Administrators:F | Out-Null}

אם יש לך דברים מעניינים אשמח לראות