VBS скрипт для задания IP адреса для компьютора
VBS Script To Retrieve A Specified Computers IP Address
[more=сам скрипт]
' VBS Script To Retrieve A Specified Computers IP Address
strComputer = InputBox ("Enter Machine Name")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
If Not IsNull(objItem.IPAddress) Then
For Each objIPAddress in objItem.IPAddress
MsgBox "Machine Name: " & UCase(strComputer) & VBCr _
& "IP Address: " & objIPAddress
Next
End If
Next
[/more]
VBS скрипт для смены - задания WINS сервера для удаленного компьютора
VBS Script To Change WINS Server Information For A Remote Machine
[more=сам скрипт]
' VBS Script To Change WINS Server Information For A Remote Machine
strPrimaryServer = "192.168.1.1" ' adress WINS server primary
strSecondaryServer = "" ' adress WINS server secondary
strComputer = InputBox ("Enter Machine Name")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colActiveNic = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colActiveNic
SetWins = objItem.SetWINSServer(strPrimaryServer, strSecondaryServer)
Next
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
MsgBox "WINS Server Information For: " & UCase(strComputer) & VBCr _
'& objItem.Description _
'& VBCr _
'& VBCr _
'& "Primary Server: " & objItem.WINSPrimaryServer & VBCr _
'& "Secondary Server: " & objItem.WINSSecondaryServer
Next
[/more]
Добавлено: VBS Script To Verify If Automatic Updates Is Installed
VBS скрипт для проверки автоматических обновлений (стоят - не стоят)
[more=сам скрипт]
' VBS Script To Verify If Automatic Updates Is Installed
strComputer = InputBox ("Enter Machine Name")
strService = "Automatic Updates"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service Where DisplayName = '" & strService & "'")
For Each objItem in colItems
If colItems.Count > 0 Then
MsgBox "Automatic Updates (" & UCase(objItem.Name) & ") Is Installed"
Else
MsgBox "Automatic Updates is not installed."
End If
Next
[/more]
Добавлено: HTA Script To Retrieve A Remote Machines Process Information
HTA скрипт для показа процессов на удаленном компьюторе
[more=сам скрипт]
<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
strHTML = "<table border='1' style='border-collapse: collapse' bordercolor='SaddleBrown' id='Table1' >"
strHTML = strHTML & "<tr>"
strHTML = strHTML & "<td width='10%' bgcolor = 'SeaShell'><font color = 'Blue'><b>Process</td>"
strHTML = strHTML & "<td width='10%' bgcolor = 'SeaShell'><font color = 'Blue'><b>Command</td>"
strHTML = strHTML & "<td width='10%' bgcolor = 'SeaShell'><font color = 'Blue'><b>Description</td>"
strHTML = strHTML & "</tr>"
strComputer = MachineName.Value
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name <> 'System Idle Process'")
For Each objItem in colItems
strHTML = strHTML & "<tr>"
Window.Document.Title = "Process Information For " & UCase(strComputer)
strHTML = strHTML & "<td width='1%'>" & objItem.Name & "</td>"
strHTML = strHTML & "<td width='1%'>" & objItem.CommandLine & "</td>"
strHTML = strHTML & "<td width='1%'>" & objItem.Description & "</td>"
Next
strHTML = strHTML & "</tr>"
strHTML = strHTML & "</table>"
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>
[/more]
Добавлено: Vbs Script To Document Your Servers Network Adapter IP Information
VBS скрипт для экспорта в Excel данных о сетевых настройках
[more=сам скрипт]
' Vbs Script To Document Your Servers Network Adapter IP Information
' скрипту требуется список компьюторов в файле MachineList.Txt
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2
objExcel.Cells(1, 1).Value = "Machine Name"
objExcel.Cells(1, 2).Value = "IP Address"
objExcel.Cells(1, 3).Value = "Subnet Mask"
objExcel.Cells(1, 4).Value = "Default Gateway"
objExcel.Cells(1, 5).Value = "MAC Address"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set InputFile = fso.OpenTextFile("MachineList.Txt")
Do While Not (InputFile.atEndOfStream)
strComputer = InputFile.ReadLine
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CimV2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IpEnabled = True")
For Each objItem in colItems
strIpAddress = Join(objItem.IpAddress)
strIpSubnet = Join(objItem.IpSubnet)
strDefaultGateway = Join(objItem.DefaultIpGateway)
objExcel.Cells(intRow, 1).Value = UCase(objItem.DnsHostName)
objExcel.Cells(intRow, 2).Value = strIPAddress
objExcel.Cells(intRow, 3).Value = strIPSubnet
objExcel.Cells(intRow, 4).Value = strDefaultGateway
objExcel.Cells(intRow, 5).Value = objItem.MacAddress
intRow = intRow + 1
Next
objExcel.Range("A1:E1").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 11
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit
loop
Wscript.Echo "Done"
[/more]
