Vb Script to get list of Network Computers.
Create Table ListOfServers
(
ServerName Varchar(20),
DomainName Varchar(50),
CreatedDate DateTime
)
'On error resume next
Const DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=ExtreamAdvice;Initial Catalog=Nirav's Diary;user id ='sa';password='password'"
Set myConn = CreateObject("ADODB.Connection")
Set myCommand = CreateObject("ADODB.Command" )
myConn.Open DB_CONNECT_STRING
Set myCommand.ActiveConnection = myConn
Const ADS_SCOPE_SUBTREE = 2
strDomainDn = "DomainName"
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select Name, Location from 'LDAP://" & strDomainDn & "' " _
& "Where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strComputer = objRecordSet.Fields("Name").Value
myCommand.CommandText = "Insert into ListOfServers (ServerName, DomainName,CreatedDate) values('" & strComputer & "','" & strDomainDn & "',getdate())"
myCommand.Execute
objRecordSet.MoveNext
Loop
myConn.Close
WScript.Echo "Done!"
Regards,
Nirav Gajjar