Frage : VBS Index stoppt, wenn er einen indirekten Computer antrifft

Zweck Index, gegründet es, um eine Textdatei zu betrachten und eine Computerbezeichnung einzeln zu ziehen und eine Hilfenänderung des Registers value.

someone zu ändern ein Index, den ich dieses vollenden musste. Jetzt funktioniert es, aber, wenn er einen Computer indirekt antrifft, stoppt der Index ....... irgendwelche Ideen, wie wir ihn ändern können, um den indirekten Computer zu überspringen und bis das folgende an umzuziehen?

Basically Zeilensprung irgendwelche Computer und Weitergehen, wenn es auf irgendwelche Probleme? stößt?

Originally Hilfe gelegen auf diesem Gewinde = http://www.experts-exchan ge.com/Pro gramming/Languages/Visual_Basic/VB_Script/Q_26339410.html 
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:

Const ForReading = 1
Const HKEY_LOCAL_MACHINE = &H80000002

strTxtFile = „C:\Documents and Settings\soullm01\Desktop\New-Text Document.txt“

'Liest die TXT Akte
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
objFile einstellen = objFSO.OpenTextFile (strTxtFile, ForReading)
strAllComputers = objFile.ReadAll
objFile.Close

arrComputers = aufspalteten (strAllComputers, VbCrLf)

Für jedes strComputer in den arrComputers
WScript.Echo strComputer
	Gesetztes objRegistry = GetObject („winmgmts: \ \“ u. strComputer u. „\ Wurzel \ Rückstellung: StdRegProv“)
	 
	strKeyPath = „SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Politik \ System“
	strValueName = „ScForceOption“
	
	strValue = 0
	
	objRegistry.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
	
	Wenn IsNull (strValue) dann
	    Wscript.Echo „der Registerschlüssel existiert nicht.“
	ElseIf strValue = 1 dann
	    Wscript.Echo „Kraft-Chipkarte-LOGON ermöglicht jetzt auf“ u. strComputer
	ElseIf strValue = 0 dann
	    Wscript.Echo „Kraft-Chipkarte-LOGON gesperrt jetzt auf“ u. strComputer
	Beenden wenn
	
	Rem verwenden DOS-Aufforderung mit admin-Rechten. Verbrauch: cscript *** .vbs //nologo //S

Zunächst

Antwort : VBS Index stoppt, wenn er einen indirekten Computer antrifft

Hallo, occ_user.

Dieses kann nicht mit einer Richtlinie getan werden.  Richtlinien abfeuern nur r, wann eine Mitteilung empfangen, oder nachdem sie gesendet.  Dieses erfordert ein Makro.  Das Makro ist genug einfach, aber es muss zu jedem Computer entfaltet werden.  Aussicht hat nicht automatisierte Mittel des Verteilens von Makro.  Das Entfalten des Makro muss manuell getan werden.  Mehr Computer gibt es in der Organisation mehr Schmerz, dieses wird.  Auch ein ausgebuffter Benutzer könnte das Makro abstellen.

Die oben genannte Nebenwirkung, ist hier das Makro.  Diese Anweisungen befolgen, sie zu verwenden.

Aussicht 2007
1.  Aussicht beginnen
2.  Werkzeuge > Makro- > Visual- Basicherausgeber anklicken
3.  Wenn Sie nicht bereits erweitert, Microsoft Office-Aussicht-Gegenstände erweitern und ThisOutlookSession an klicken
4.  Den Code vom Code-Stückchenkasten kopieren und ihn in die rechte Scheibe des Herausgeberfensters VB der Aussicht kleben
5.  Den Code redigieren, wie gebraucht.  Ich einschloß Kommentarzeilen ch, gleichgültig wo, das etwas benötigt oder ändern kann
6.  Die Diskettenikone auf der Symbolleiste anklicken, um die Änderungen zu sparen
7.  Den VB Herausgeber schließen
8.  Werkzeuge > Vertrauens-Mitte anklicken
9.  Makrosicherheit anklicken
10. Makrosicherheit auf „Warnungen für alle Makro“ einstellen
11. O.K. anklicken
12. Aussicht schließen
13. Aussicht beginnen.  Aussicht anzeigt eine Dialogkasten Warnung n, dass ThisOutlookSession Makro- und das Fragen enthält, ob Sie sie laufen lassen möchten.  Ja sagen.


Aussicht 2003 und früheres
1.  Aussicht beginnen
2.  Werkzeuge > Makro- > Visual- Basicherausgeber anklicken
3.  Wenn Sie nicht bereits erweitert, Microsoft Office-Aussicht-Gegenstände erweitern und ThisOutlookSession an klicken
4.  Den Code vom Code-Stückchenkasten kopieren und ihn in die rechte Scheibe von kleben
5.  Herausgeberfenster VB der Aussicht
6.  Den Code redigieren, wie gebraucht.  Ich einschloß Kommentarzeilen ch, gleichgültig wo, das etwas benötigt oder ändern kann
7.  Die Diskettenikone auf der Symbolleiste anklicken, um die Änderungen zu sparen
8.  Den VB Herausgeber schließen
9.  Werkzeuge > Makro- > Sicherheit anklicken
10. Das Sicherheits-Niveau auf Mittel einstellen
11. Aussicht schließen
12. Aussicht beginnen
13. Aussicht anzeigt eine Dialogkasten Warnung n, dass ThisOutlookSession Makro- und das Fragen enthält, ob Sie sie laufen lassen möchten.  Ja sagen.
1:
2:
3:
4:
5:
6:
7:
8:
9:

Privates VorApplication_ItemSend (ByVal Einzelteil als Gegenstand, Löschen, wie Boolesch)
    Wenn Item.Class = olMail dann
        Wenn InStr (1, Item.Subject, „: ") dann
            „Die Warnmeldung und den Titel auf der folgenden Linie redigieren, wie gebraucht.“
            msgbox „das Thema enthält einen Doppelpunkt.  Es bitte entfernen und dann wieder senden. “, vbCritical + vbOKOnly, „Firma-Politik“
            Löschen = ausrichtet et
        Beenden wenn
    Beenden wenn
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us