Автоматизация администрирования. Часть 2 - [641] :: В помощь системному администратору

<Html>
<Head>
<Title>HTA Script</Title>
<Style>
Body {Background-Color: CornSilk}
</Style>
<HTA:Application
Caption = Yes
Border = Thick
ShowInTaskBar = No
MaximizeButton = Yes
MinimizeButton = Yes>
<Script Language = VBScript>
Sub WindowsLoad
strComputer = MachineName.Value
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Window.Document.Title = "Information For " & UCase(strComputer)
strHtml = strHtml & "<td><Font color = Green> Machine Name: </Font></Td>" & UCase(strComputer) & "</Br>"
strHtml = strHtml & "<td><Font color = Green> Operating System: </Font></Td>" & objOperatingSystem.Caption & "</Br>"
strHtml = strHtml & "<td><Font color = Green> Operating System Version: </Font></Td>" & objOperatingSystem.Version & "</Br>"
Next
DataArea.InnerHtml = strHtml
End Sub
</Script><Body>
<p><h3 align = center><font color='Orange'>Please Visit myITforum.Com</font></h3>
<div></div>
Enter Machine Name: <Input Type = "Text" Name = "MachineName">
<Input Type = "Button" Value = "Run Script" Name = "Run_Button" onClick = "WindowsLoad"><P>
<Span Id = "DataArea"></Span></Body><Div Align = "Center">
<P><A Href="http://myitforum.com/cs2/blogs/dhite">Created For myITforum By Don Hite</A>

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR
ShriEkeR (23-05-2011 23:06): Автоматизация администрирования. Часть 3	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению