Senhores, consegui fazer com que as maquinas ingressem no dominio, mas nao consigo fazer com que me gere um relatorio
<html>
<head>
<title>Incluir micro no Dominio</title>
<HTA:APPLICATION
APPLICATIONNAME="Incluir micro no Dominio"
SCROLL="No"
SINGLEINSTANCE="Yes"
borderstyle="Thin"
minimizebutton="No"
maximizebutton="No"
icon=""
>
<style type="text/css">
/* <![CDATA[ */
BODY {
background-color: rgb(0,0,0);
color: white;
margin: 10px 10px 10px 10px;
font: 14px Verdana;
}
#status_bar {
box-shadow:rgb(136, 136, 136) 0px 5px 5px;
background-color:#F7F7F7;
border:1px solid #A5A5A5;
font-color: #A5A5A5;
font-size: 70%;
border-bottom:0px;
bottom:0px;
height:25px;
margin:auto;
padding:5px 5px 5px 5px;
position:absolute;
width:100%;
z-index:500;
}
.texta {
font-size: 14px;
background-color: white;
border: 1px solid #666666;
}
/* ]]> */
</style>
</head>
<body><center>
<br>
<h2>Incluir micro no Dominio</h2>
<br><br>
Hostname: <input type="text" maxlength="20" size="30" name="txt_computername">
<br><br>
Usuário: <input type="text" maxlength="20" size="40" name="txt_username">
<br><br>
Senha: <input type="password" maxlength="20" size="40" name="txt_password">
<br><br>
<input type="button" value="Incluir no Dominio" onClick="vbs:add2Domain">
<br><br>
</center>
<SCRIPT Language="VBScript">
Sub Window_OnLoad
intHeight = 480
intWidth = 600
Me.ResizeTo intWidth, intHeight
Me.MoveTo (screen.width / 2) - (intWidth / 2), (screen.height / 2) - (intHeight / 2)
Set objNetwork = CreateObject("WScript.Network")
txt_computername.Value = objNetwork.ComputerName
End Sub
Sub add2Domain
If Trim(txt_username.Value) = "" Then
MsgBox "Please enter a username."
txt_username.Focus
ElseIf Trim(txt_password.value) = "" Then
MsgBox "Please enter a password."
txt_password.Focus
Else
On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
Const ADS_SECURE_AUTHENTICATION = 1
Const HKEY_LOCAL_MACHINE = &H80000002
Const ForReading = 1
Const ForWriting = 2
Dim strDomain, strPassword, strUser, strAdsPath, strOU,fPath
Set WshShell =WScript.CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
UserProfile = WshShell.ExpandEnvironmentStrings("%userprofile%")
strLogDir = UserProfile&"\Desktop\"
strDomain = "TEST"
strComputer=Trim(txt_computername.Value)
strPassword=Trim(txt_password.Value)
strUser=Trim(txt_username.Value)
If objFSO.FileExists(strLogDir & "Domain Log.txt") Then
Set objFile = objFso.OpenTextFile(strLogDir & "Domain Log.txt",ForWriting)
objFile.WriteLine "Log Started : " & Now
objFile.WriteLine
DelAcct()
Join2Domain()
objFile.Writeline "Log Ended :" & NOW
objFile.close
Else
fPath=strLogDir & "Domain Log.txt"
Set objFile = objFso.CreateTextFile (fPath, True)
objFile.WriteLine "Log Started : " & Now
objFile.WriteLine
DelAcct()
Join2Domain()
objFile.Writeline "Computer Booted :" & NOW
objFile.close
End If
ShutDown strComputer
End If
End Sub
Function ShutDown(strComputer)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2:Win32_Process")
E = objWMIService.Create("cmd /c shutdown -r -t 30 ", null, null, intProcessID)
'Set objWMIService = GetObject("winmgmts:" _
'& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set WMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set OperatingSystems = WMIService.ExecQuery("Select * From Win32_OperatingSystem")
For Each OperatingSystem in OperatingSystems
OperatingSystem.Reboot()
Next
if E = 0 Then
ShutDown = "OK"
end If
End Function
Function DelAcct()
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Properties("User ID") = strDomain&"\"&strUser
objConnection.Properties("Password") = strPassword
objConnection.Properties("Encrypt Password") = True
objConnection.Properties("ADSI Flag") = 1
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 100
objCommand.Properties("Cache Results") = False
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT ADsPath FROM 'LDAP://" & strDomain & ".com" & "' WHERE objectCategory='computer' " & _
"AND Name='" & strComputer & "'"
Set objRecordSet = objCommand.Execute
If objRecordSet.EOF Then
MsgBox "Computer not found."
objFile.WriteLine "Computer not found."
Else
objRecordSet.MoveFirst
While Not objRecordSet.EOF
strAdsPath = objRecordSet.Fields("ADsPath").Value
intDNLength = Len(strAdsPath)- Len("LDAP://"&strDomain&".com/CN=")-Len (strComputer)-Len (",")
strOU=Right(strAdsPath, intDNLength)
objRecordSet.MoveNext
Wend
Set objADS = GetObject("LDAP:")
Set objComputer = objADS.OpenDSObject(strAdsPath, strDomain&"\"&strUser, strPassword,ADS_SECURE_AUTHENTICATION)
objComputer.DeleteObject (0)
objFile.WriteLine "Computer path: " & strOU
MsgBox "Computer was removed from AD "
objFile.WriteLine "Computer was removed from AD "
End If
End Function
Function Join2Domain()
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, _
strDomain & "\" & strUser, _
strOU, _
JOIN_DOMAIN + ACCT_CREATE)
If ReturnValue = 5 Then
objFile.WriteLine "Access was Denied for adding the Computer to the Domain"
objFile.WriteLine "RetureValue: " & ReturnValue
End If
If ReturnValue = 2224 Then
objFile.WriteLine "Account exists in the Domain"
objFile.WriteLine "RetureValue: " & ReturnValue
End If
If ReturnValue = 0 Then
objFile.WriteLine "The Computer was sucssefully added to the domain"
objFile.WriteLine "RetureValue: " & ReturnValue
End if
If ReturnValue > 2691 Then
objFile.WriteLine "The Computer was sucssefully added to the domain"
objFile.WriteLine "RetureValue: " & ReturnValue
Else
objFile.WriteLine "The Computer failed to join domain: "& strDomain
objFile.WriteLine "RetureValue: " & ReturnValue
End If
End Function
</Script>
</body>
</html>
