Vraag : Het Manuscript VBS houdt op wanneer het een off-line computer ontmoet

Het doel van manuscript, het is opstelling om een tekstdossier te bekijken en een computernaam tegelijkertijd te trekken één en een verandering van de registratievalue.

someone een manuscript ik dit moest verwezenlijken. Nu werkt het maar wanneer het offline een computer de manuscripteinden ....... om het even welke ideeën ontmoet hoe wij het kunnen veranderen om zich de off-line computer over te slaan en op de volgende te bewegen?

Basically slaat om het even welke computers over en beweegt zich als het om het even welke problemen? ontmoet? hulp

Originally op deze draad wordt gevestigd = http://www.experts-exchan ge.com/Pro gramming/Languages/Visual_Basic/VB_Script/Q_26339410.html die
" 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:

Const ForReading = 1
Const HKEY_LOCAL_MACHINE = &H80000002

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

'Leest het Txt- dossier
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Vastgestelde objFile = strTxtFile objFSO.OpenTextFile (, ForReading)
strAllComputers = objFile.ReadAll
objFile.Close

arrComputers = verdelen (strAllComputers, VbCrLf)

Voor Elke strComputer in arrComputers
WScript.Echo strComputer
	Vastgestelde objRegistry = GetObject („winmgmts: \ \“ & strComputer & „\ wortel\ gebrek: StdRegProv“)
	 
	strKeyPath = „het beleids\ systeem van de Vensters \ CurrentVersion \ van de SOFTWARE \ Microsoft \“
	strValueName = „ScForceOption“
	
	strValue = 0
	
	objRegistry.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
	
	Als IsNull (strValue) toen
	    Wscript.Echo de „Registratiesleutel bestaat niet.“
	ElseIf strValue = 1 toen
	    Wscript.Echo „Opening van een sessie van de Kaart van de Kracht wordt de Slimme nu toegelaten op“ & strComputer
	ElseIf strValue = 0 toen
	    Wscript.Echo „Opening van een sessie van de Kaart van de Kracht is de Slimme nu gehandicapt op“ & strComputer
	Beëindig als
	
	rem gebruikt de herinnering van Dos met adminrechten. Gebruik: cscript *** .vbs //nologo //S

Daarna

Antwoord : Het Manuscript VBS houdt op wanneer het een off-line computer ontmoet

Hallo, occ_user.

Dit kan niet met een regel worden gedaan.  De regels steken slechts in brand wanneer een bericht wordt ontvangen of nadat het heeft verzonden.  Dit vereist een macro.  De macro is eenvoudig genoeg, maar het zal aan elke computer moeten worden opgesteld.  De vooruitzichten hebben geen geautomatiseerd middel om macro's te verdelen.  Het opstellen van de macro zal moeten manueel worden gedaan.  De meer computers zijn daar in de organisatie meer van een pijn dit wordt.  Ook, kon een savvy gebruiker de macro uitzetten.

Bovengenoemd opzij, hier is de macro.  Volg deze instructies om het te gebruiken.

Vooruitzichten 2007
1.  De Vooruitzichten van het begin
2.  Klik Hulpmiddelen > Macro > Visuele BasisRedacteur
3.  Als niet reeds uitgebreid, breid de Voorwerpen van de Vooruitzichten van Microsoft Office uit en klik op ThisOutlookSession
4.  Kopi�ër de code van de doos van het Fragment van de Code en kleef het in de rechtse ruit van het venster van de Redacteur van VB van Vooruitzichten
5.  Geef de code uit zoals nodig.  Ik omvatte commentaarlijnen waar iets aan vereist of kan veranderen
6.  Klik het diskettepictogram op de toolbar om de veranderingen te bewaren
7.  Sluit de Redacteur VB
8.  Klik Hulpmiddelen > het Centrum van het Vertrouwen
9.  Klik MacroVeiligheid
10. Plaats MacroVeiligheid aan „Waarschuwingen voor alle macro's“
11. Klik O.K.
12. Sluit Vooruitzichten
13. Begin Vooruitzichten.  De vooruitzichten zullen een dialoog-doos waarschuwing tonen dat ThisOutlookSession macro's en het vragen van bevat of wilt u hen toestaan om te lopen.  Zeg ja.


Vooruitzichten 2003 en vroeger
1.  De Vooruitzichten van het begin
2.  Klik Hulpmiddelen > Macro > Visuele BasisRedacteur
3.  Als niet reeds uitgebreid, breid de Voorwerpen van de Vooruitzichten van Microsoft Office uit en klik op ThisOutlookSession
4.  Kopi�ër de code van de doos van het Fragment van de Code en kleef het in de rechtse ruit van
5.  Het venster van de Redacteur van VB van vooruitzichten
6.  Geef de code uit zoals nodig.  Ik omvatte commentaarlijnen waar iets aan vereist of kan veranderen
7.  Klik het diskettepictogram op de toolbar om de veranderingen te bewaren
8.  Sluit de Redacteur VB
9.  Klik Hulpmiddelen > Macro > Veiligheid
10. Bepaal het Niveau van de Veiligheid aan Middel
11. Sluit Vooruitzichten
12. Begin Vooruitzichten
13. De vooruitzichten zullen een dialoog-doos waarschuwing tonen dat ThisOutlookSession macro's en het vragen van bevat of wilt u hen toestaan om te lopen.  Zeg ja.
1:
2:
3:
4:
5:
6:
7:
8:
9:

Privé SubApplication_ItemSend (het Punt ByVal als Voorwerp, annuleert Van Boole)
    Als Item.Class = olMail toen
        Als InStr (1, Item.Subject, „: “) Toen
            „Geef het de waarschuwingsbericht en titel op de volgende lijn uit zoals nodig.“
            msgbox het „Onderwerp bevat een dubbelpunt.  Verwijder het gelieve en dan opnieuw te verzenden. “, vbCritical + vbOKOnly, „het Beleid van het Bedrijf“
            Annuleer = Waar
        Beëindig als
    Beëindig als
Beëindig Sub
Andere oplossingen  
 
programming4us programming4us