Frage : Index, zum der neu erstellten Computer zu mailen. Gruppen u. Benutzerkonten auch addieren müssen.

Hallo,

Script, zum der neu erstellten Computer zu mailen. Gruppen addieren müssen u. werden Benutzerkonten also.
Can dieses addiert. Mit unterschiedlichen Überschriften und gerade den Gegenstandnamen unter jedem hheader.

regards
sharath 
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:
6:
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,“

schwaches LogResult, args
Schwaches objShell: objShell = CreateObject („WScript.Shell“) einstellen
strOutput verdunkeln: strOutput = objShell.Exec (Liste“) .StdOut.ReadAll „schtasks /query-/fo

wenn InStr (Daten, SCHEDULER_TASK_NAME) = 0 dann
        WScript.Echo SCHEDULER_TASK_NAME u. „gefunden.“
beenden wenn

wenn InStr (strOutput, SCHEDULER_TASK_NAME) = 0 dann
        WScript.Echo „verursachen Aufgabenprioritätssteuerung [“ u. SCHEDULER_TASK_NAME u. „]…“
        'Aufgabenprioritätssteuerung herstellen
        args = „schtasks /Create /F /SC TÄGLICHES /TN“ u. SCHEDULER_TASK_NAME u. „/TR """ u. Wscript.ScriptFullName u. """ /ST“ u. SCHEDULER_TASK_START_TIME
		WScript.Echo „args: “ u. args
		objShell.Run args, 1, zutreffend

        WScript.Echo „Aufgabenprioritätssteuerung [“ u. SCHEDULER_TASK_NAME u. „] verursachten erfolgreich“
sonst
        'numertae PC und eMail
        EnumPcs
        EmailResult
beenden wenn

Sub EmailResult
ToAddress, MessageSubject, MessageBody verdunkeln
	ToAddress = „contact1, contact2“
	MessageSubject = „Enum PC-Report…“
	MessageBody = „*BODY* eMail über MAPI *BODY*“

	Ol = WScript.CreateObject („Outlook.Application“) einstellen
	Einstellen ns = ol.getNamespace („MAPI“)
	ns.log auf "", "", zutreffend, falsch
	newMail = ol.CreateItem (olMailItem) einstellen
	newMail.Subject = MessageSubject
	newMail.Body = MessageBody u. vbCrLf

	'die Empfänger, gerade im Fall validieren…
	myRecipient einstellen = ns.CreateRecipient (ToAddress)
	myRecipient.Resolve
	Wenn nicht myRecipient.Resolved dann
	   MsgBox „unbekannte Empfänger“
	Sonst
	   newMail.Recipients.Add (myRecipient)
	   newMail.Send
	Beenden wenn

Ol einstellen = nichts


Unterseeboot beenden

Sub EnumPcs
        dtmDate = jetzt
         
        strYear = recht (Jahr (dtmDate), 2)
        strMonth = Monat (dtmDate)
        Wenn Len (strMonth) < dann strMonth 2 = „0“ u. strMonth
        strDay = Tag (dtmDate)
        Wenn Len (strDay) < 2 dann strDay = „0“ u. strDay
         
        strStartDate = strYear u. strMonth u. strDay u. „000000Z“
        strEndDate = strYear u. strMonth u. strDay u. „235959Z“
         
        strFilter = „(u. (createTimeStamp>=“ u. strStartDate u. ") (createTimeStamp<= " u. strEndDate u. ") (objectCategory=computer))“

        objConnection = CreateObject („ADODB.Connection“) einstellen
        objConnection.Provider = „ADsDSOObject“
        objConnection.Open „aktiver Verzeichnis-Versorger“
         
        objRootDSE = GetObject einstellen („LDAP: //RootDSE“)
        objRecordSet = objConnection.Execute einstellen (_
          „; “ u. _
          strFilter u. „; distinguishedName, Name, createTimeStamp; Unterbaum“)
        objRootDSE einstellen = nichts
         
        Während nicht objRecordSet.EOF
          dtmCreateTimeStamp = CDate (objRecordSet.Fields („createTimeStamp“). Wert)
          strMessage = objRecordSet.Fields („distinguishedName“). Wert u. VbCrLf u. _
                objRecordSet.Fields („Name“) u. VbCrLf u. _
                objRecordSet.Fields („createTimeStamp“)
         
          LogResult = LogResult u. strMessage u. vbcrlf 
          objRecordSet.MoveNext
        WEnd

Unterseeboot beenden
Related Lösungen: Script, das die verursachten Computergegenstände und -maschinenbordbücher überprüft. Eine Weise benötigen, als schedul… zu laufen

Antwort : Index, zum der neu erstellten Computer zu mailen. Gruppen u. Benutzerkonten auch addieren müssen.

Sie benötigen nicht den „Hinweis“, weil Sie einen Wert bereits zurückbringend…
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:
6:

Kategorie Programm
    {
        Static leeres Haupt (Schnur [] args)
        {
            int-Flunkerei = 20;
            Flunkerei = computeFibonacci (Flunkerei); Console.WriteLine (Flunkerei);
            Flunkerei = 20;
            Flunkerei = computeFibonacciRecursive (Flunkerei); Console.WriteLine (Flunkerei);
        }

        privater Static int computeFibonacciRecursive (int N)
        {
            wenn (n  <>
Weitere Lösungen  
 
programming4us programming4us