' pierwszy część
Na błąd życiorys następnie
strComputer= " AHAUKC-S3004 "
Ustalony objWMIService = GetObject ("winmgmts: " & "{impersonationLevel=impersonate}! \ \" & strComputer & "\ korzeń \ cimv2")
Ustalony colFileList = objWMIService.ExecQuery ("ASSOCIATORS {Win32_Directory.Name='C:\INSTALL\IBMSNMP_001'} Dokąd" & "ResultClass = CIM_DataFile")
Dla ColFileList objFile W colFileList
txt= objFile.name
tmp1 = (Prawy (txt, 3))
jeżeli (tmp1= " bela ") wtedy
tmp2=txt
inny
kończyć jeżeli
Następnie
Const ForReading = (1)
Const ForWriting = 2
Const TriStateUseDefault = -2
strFile = tmp2
wscript.echo tmp2
'drugi część
Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
Ustalony objFile = objFSO.GetFile (strFile)
intSize = objFile.Size
Ustawiać objStream = objFile.OpenAsTextStream (ForReading, TriStateUseDefault)
Jeżeli intSize > 1024 Wtedy
objStream.Skip (intSize - 512)
Kończyć Jeżeli
Do objStream.AtEndOfStream
strNextLine = objStream.ReadLine
Jeżeli Podstrzyżenie (strNextLine) <> "" Wtedy
strLine = strNextLine
Kończyć Jeżeli
Pętla
objStream.Close
wscript.echo strLine
|