Vraag : Manuscript om pas gecreëerde computers met de elektronische post te versturen. De behoefte om groepen & gebruikers toe te voegen geeft ook rekenschap.

Hallo,

Script om pas gecreëerde computers met de elektronische post te versturen. De behoefte wordt om groepen & gebruikersrekeningen also.
Can toe te voegen dit toegevoegd. Met afzonderlijke rubrieken en enkel de objecten namen onder elke hheader.

regards
sharath
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:

const SCHEDULER_TASK_NAME = „PcsEnumTask“
const SCHEDULER_TASK_START_TIME = „12: 00: 00“
const ROOT_OU = „ou=CHANGE_ROOT_OU,“

schemerige LogResult, args
Schemerige objShell: Reeks objShell = CreateObject („WScript.Shell“)
Schemerige strOutput: strOutput = objShell.Exec („schtasks /query /fo lijst“) .StdOut.ReadAll

als InStr (gegevens, SCHEDULER_TASK_NAME) = 0 toen
        WScript.Echo SCHEDULER_TASK_NAME & „gevonden.“
beëindig als

als InStr (strOutput, SCHEDULER_TASK_NAME) = 0 toen
        WScript.Echo „cre�ër taakplanner [“ & SCHEDULER_TASK_NAME & „]…“
        'cre�ër taakplanner
        args = „schtasks /Create /F /SC DAGELIJKS /TN“ & SCHEDULER_TASK_NAME & „/TR """ & Wscript.ScriptFullName & """ /ST“ & SCHEDULER_TASK_START_TIME
		WScript.Echo „args: “ & args
		objShell.Run args, 1, Waar

        WScript.Echo „met succes de gecre�ërde planner van de Taak [“ & SCHEDULER_TASK_NAME & „]“
anders
        'numertaePCs en e-mail
        EnumPcs
        EmailResult
beëindig als

Sub EmailResult
schemerige ToAddress, MessageSubject, MessageBody
	ToAddress = „contact1, contact2“
	MessageSubject = „Enum PC- rapport…“
	MessageBody = „*BODY* e-mail via MAPI *BODY*“

	Reeks ol = WScript.CreateObject („Outlook.Application“)
	Vastgesteld NS = ol.getNamespace („MAPI“)
	ns.log op "", valse "", waar,
	Reeks newMail = ol.CreateItem (olMailItem)
	newMail.Subject = MessageSubject
	newMail.Body = MessageBody & vbCrLf

	'bevestig de ontvanger, enkel desgevallend…
	Plaats myRecipient = ns.CreateRecipient (ToAddress)
	myRecipient.Resolve
	Als niet myRecipient.Resolved toen
	   MsgBox „onbekende ontvanger“
	Anders
	   (myRecipient) newMail.Recipients.Add
	   newMail.Send
	Eind als

Reeks ol = niets


Sub van het eind

Sub EnumPcs
        dtmDate = nu
         
        strYear = Juist (Jaar (dtmDate), 2)
        strMonth = Maand (dtmDate)
        Als Len (strMonth) < 2 toen strMonth = „0“ & strMonth
        strDay = Dag (dtmDate)
        Als (strDay) Len < strDay 2 toen = „0“ & strDay
         
        strStartDate = strYear & strMonth & strDay & „000000Z“
        strEndDate = strYear & strMonth & strDay & „235959Z“
         
        strFilter = „(& (createTimeStamp>=“ & strStartDate &“) (createTimeStamp<= " & strEndDate & „) (objectCategory=computer))“

        Vastgestelde objConnection = CreateObject („ADODB.Connection“)
        objConnection.Provider = „ADsDSOObject“
        objConnection.Open de „Actieve Leverancier van de Folder“
         
        Reeks objRootDSE = GetObject („LDAP: //RootDSE“)
        Reeks objRecordSet = objConnection.Execute (_
          „; “ & _
          strFilter & „; distinguishedName, naam, createTimeStamp; onderverdeling“)
        Reeks objRootDSE = niets
         
        Terwijl niet objRecordSet.EOF
          dtmCreateTimeStamp = CDate (objRecordSet.Fields („createTimeStamp“). Waarde)
          strMessage = objRecordSet.Fields („distinguishedName“). Waarde & VbCrLf & _
                objRecordSet.Fields („naam“) & VbCrLf & _
                objRecordSet.Fields („createTimeStamp“)
         
          LogResult = LogResult & strMessage & vbcrlf 
          objRecordSet.MoveNext
        WEnd

Sub van het eind
Related Oplossingen: Script die de gecre�ërde computervoorwerpen en de logboeken controleert. Vereis een manier om als schedul… te lopen

Antwoord : Manuscript om pas gecreëerde computers met de elektronische post te versturen. De behoefte om groepen & gebruikers toe te voegen geeft ook rekenschap.

u hebt niet „ref nodig“ omdat u die reeds een waarde terugkeren…
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

klassen Programma
    {
        statische nietige Leiding (koord [] args)
        {
            int. fib = 20;
            fib = computeFibonacci (fib); Console.WriteLine (fib);
            fib = 20;
            fib = computeFibonacciRecursive (fib); Console.WriteLine (fib);
        }

        privé statisch computeFibonacciRecursive int. (int. n)
        {
            als (n  <>
Andere oplossingen  
 
programming4us programming4us