Question
June 25, 2007 at 12:54 PM
ananth1201

Script for finding the model for hundreds of servers

by ananth1201 . Updated 19 years, 1 month ago

Hello
I have the script for finding the model of a server.. but copying the script & excuting it takes lot of time…
Am copying the script here

Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objTextFile = objFSO.CreateTextFile(“c:\software1.xls”, True)
set obj=Wscript.CreateObject(“Wscript.Network”)
set obj1=Wscript.StdOut

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)
Set colBIOS = objWMIService.ExecQuery _
(“Select * from Win32_BIOS”)

objTextFile.WriteLine “Server” & vbtab & _
“Manufacturer” & vbtab

For each objBIOS in colBIOS
objTextFile.WriteLine obj.ComputerName
objTextFile.WriteLine objBIOS.Manufacturer

Next

This is my script

I need the script for 100 servers at a time… just copy to one server & get the data from that server

Please E-mail to me @ ananth1201@yahoo.co.in or ani732@yahoo.co.in

This discussion is locked

All Comments