awsswaawsswa
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Const ADS_SCOPE_SUBTREE = 2
On Error Resume Next
Comp = "."
Set objWMIService = GetObject("winmgmts:\\" & Comp & "\root\directory\LDAP")
Set colItems = objWMIService.ExecQuery("SELECT * FROM RootDSE",,48)
For Each objItem in colItems
DNC = objItem.defaultNamingContext
Next
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://" & DNC & "' " & "Where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Computer = objRecordSet.Fields("Name").Value
Set objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_CDROMDrive",,48)
For Each objItem in colItems
CDName = objItem.VolumeName
MediaLoaded = objItem.MediaLoaded
If MediaLoaded = False Then
Else
Drive = objItem.Drive
SCDN = CDName & " was found on: " & Computer & " (Drive: " & Drive & ")"
intMessage = Msgbox(SCDN & vbCrLf & vbCrLf & "Is this the CD you were looking for?", _
vbYesNo, "Success - CD-ROM Found!!")
If intMessage = vbYes Then
WScript.Echo "Congrats, you found your CD."
Wscript.Quit
Else
End If
End If
Next
objRecordSet.MoveNext
Loop
WScript.Echo "CD Search Completed!"
|
