Veri Kümeleri ve Parametreler › Veri Kümeleri › İşletim Sistemi Değerlerini Veri Kümesi Değişkenlerine Okuma › İşletim Sistemi Değerlerini Veri Kümesi Değişkenlerine Okumaya İlişkin Komut Dosyası Örnekleri › VBScript Örneği: WinGetInfo Komut Dosyası Bilgisi › Komut Dosyası (VBScript)

Komut Dosyası (VBScript)

Komut dosyası, WinGetInfo işleç veri kümesinde HostList ve OSList olmak üzere iki adet dizine alınan alan oluşturur. Komut dosyası:

• Kaynak dosyasını satır satır okur.
• Ana bilgisayar adlarını (strHost) sıralı HostList alanlarındaki dizine alınan değerlere atar. Numaralandırma 0 ile başlar ve kaynak dosyasından okunan satır sayısının bir küçük sayısı ile biter.
• İşletim sistemlerini sıralı şekilde numaralandırılmış OSList alanlarındaki dizine alınan değerlere atar. Numaralandırma 0 ile başlar ve kaynak dosyasından okunan satır sayısının bir küçük sayısı ile biter.

Komut dosyası oArgs.Item değişkenini, çağırılan Komut Dosyasını Çalıştır işlecinin Parametre girdi alanı girişleriyle doldurur. İlk giriş oArgs.Item(0) değişkenini doldurur. Komut dosyası, okuduğu satır sayısını NumRowsRead işleç veri kümesi değişkenine atar. Wscript.sleep 30000 satırı işleci 30 saniye duraklatarak kullanıcının C2OSVD konumunda oluşturulan klasörleri ve dosyaları incelemesini sağlar. Wscript.sleep 30000 satırı bir üretim komut dosyasına dahil edilemez.

Dim oArgs
Dim oShell
Dim colProcessEnv
Dim objFSO
Dim objDir
Dim objFileIn
Dim objFileOut
Dim intCounter
Dim intExitCode
Dim strLine
Dim intSpacePos
Dim strHost
Dim strOS
on error resume next
set oArgs = WScript.Arguments
set oShell = WScript.CreateObject("WScript.Shell")
Set colProcessEnv = oShell.Environment("Process")
if oArgs.Count = 1 then		'must have the required argument 
				to proceed normally,
				fails if more arguments are present

strSourceFile = oArgs.Item(0)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDir = objFSO.CreateFolder(colProcessEnv("C2OSVD"))
Set objDir = objFSO.CreateFolder(colProcessEnv("C2OSVD") & "\HostList")
Set objDir = objFSO.CreateFolder(colProcessEnv("C2OSVD") & "\OSList")
intCounter = 0
Set objFileIn = objFSO.OpenTextFile(strSourceFile, 1)
Do Until objFileIn.AtEndOfStream

strLine = objFileIn.ReadLine
intSpacePos = InStr(strLine, " ")
strHost = Left(strLine, intSpacePos - 1)
strOS = Right(strLine, Len(strLine) - intSpacePos)
Set objFileOut = objFSO.CreateTextFile(colProcessEnv("C2OSVD") & "\HostList\" & intCounter)
objFileOut.Write strHost
objFileOut.Close
Set objFileOut = objFSO.CreateTextFile(colProcessEnv("C2OSVD") & "\OSList\" & intCounter)
objFileOut.Write strOS
objFileOut.Close
intCounter = intCounter + 1

Döngü
objFileIn.close
Set objFileOut = objFSO.CreateTextFile(colProcessEnv("C2OSVD") & "\NumRowsRead")
objFileOut.Write intCounter
objFileOut.Close
intExitCode = 0

else

'Wscript.echo "bad argument or required argument NOT present"
intExitCode = 5

end if
Wscript.sleep 30000
on error goto 0
Wscript.Quit intExitCode