pcNameValueName = "ComputerName"

userPath = "SoftwareMicrosoftWindows NTCurrentVersionWinlogon"

userValueName = "DefaultUserName"

objReg.GetStringValue HKLM,pcName,pcNameValueName,pcValue

objReg.GetStringValue HKLM,userPath,userValueName,userValue

strFileName = UserValue & "_" & "On" & "_" & PCValue & "_"& "Software" _

& year(date()) & right("0" & month(date()),2) _

& right("0" & day(date()),2) & ".txt"

Set objTextFile2 = objFSO.OpenTextFile(strPath & strFileName, ForWriting, True)

objTextFile2.WriteLine(vbCRLF & _

"Current Installed Software " & vbCRLF & Time & vbCRLF & Date _

& vbCRLF & "Software For:" & "" & userValue & vbCRLF & "On System:" _

& "" & pcValue & vbCRLF)

For Each objItem in objDictionary2

strKeyPath = objDictionary2.Item(objItem)

objReg.GetStringValue HKLM ,strKeyPath, unValueName, strValue

objTextFile2.WriteLine (strValue)

If Err Then

objDictionary2.Remove(objItem)

End If

Next

End Sub

wscript.Quit

Сбор урожая

Если в вашей локальной сети менее десяти компьютеров, то запуск описанного выше сценария не составит особого труда. Можно воспользоваться столь любимой всеми системными администраторами программой Remote Admin и удаленно запустить сценарий на каждой клиентской машине. Однако все эти решения требуют от администраторов много ручной работы, а это не слишком хорошо. В оригинальной версии сценария [2] предлагалось использовать следующую процедуру, которая сначала собирает данные о машинах в домене, потом пытается запустить сценарий на каждом из этих компьютеров.