Fråga : ändra den sched uppgiften pw via befaller fodrar

Jag har en lista av jobbet (uppgift) i scheduleren som kräver för att ändra pw varje 30 dagar.  detta blir smärtar av hånglar för att varje 30 dagar ska gå till och med varje, klickar egenskapen, nollställer lösenordet. och därefter apply.

I vet att det finns ett program i systemet som kallas ”schtasks”, som låter mig lista alla uppgift som, jag har,
also kan ändra pw via befaller fodrar.  och jag kan finna mitt system som är känt vid typing
hostname i befalla, fodrar, e.g. VSRV1

current namnger:  run_1 körningar under VSRV! \ abc var abc är användarenamecurrent pw:      pw1
new pw som nollställer till synax för pw2

the av exempelnågot att säga:

schtasks /CHANGE /tn run_1 /S VSRV1 /RP pw2
and som jag får, reagerar:  ”ta fram förnekas "

can som någon hjälper mig närmare detalj hur bör mig göra för att göra pw-ändringarna via över?

thanks


 " klar "

Svar : ändra den sched uppgiften pw via befaller fodrar

Min enkla tar prov

Skapa en kontra.
I qrband.beforeprint inc kontra
I qrband.afterprint-kontroll kontra, och, om det är som behövd styrka en ny sida.

Se kodifieraexemplet

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:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:

enhet Unit1;

ha kontakt

bruk
  Windows meddelanden, SysUtils, Variants, klassificerar, diagram, kontrollerar, bildar,
  Dialoger StdCtrls, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;

typ
  TForm1 = klassificerar (TForm)
    Table1: TTable;
    QuickRep1: TQuickRep;
    QRBand2: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    Button1: TButton;
    tillvägagångssätt Button1Click (avsändare: TObject);
    tillvägagångssätt QRBand2BeforePrint (avsändare: TQRCustomBand; var PrintBand: Boolean);
    tillvägagångssätt QRBand2AfterPrint (avsändare: TQRCustomBand; BandPrinted: Boolean);
  privat
    {Privata förklaringar}
  offentligt
    {Offentliga förklaringar}
  avsluta;

var
  Form1: TForm1;
  i: Heltal;

genomförande

{$R *.dfm}

tillvägagångssätt TForm1.Button1Click (avsändare: TObject);
börja
  i: = 0;
  QuickRep1.Preview;
avsluta;

tillvägagångssätt TForm1.QRBand2AfterPrint (avsändare: TQRCustomBand; BandPrinted: Boolean);
börja
  om I-ändring 5 = 0 därefter
    QuickRep1.NewPage;
avsluta;

tillvägagångssätt TForm1.QRBand2BeforePrint (avsändare: TQRCustomBand; var PrintBand: Boolean);
börja
  Inc (I);
avsluta;

avsluta.


bilda

anmärka Form1: TForm1
  Lämnade = 245
  Överträffa = 92
  Förse med text = ”Form1”,
  ClientHeight = 464
  ClientWidth = 854
  Färga = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = ”Tahoma”,
  Font.Style = []
  OldCreateOrder = falskt
  Skalapn = falskt
  PixelsPerInch = 96
  TextHeight = 13
  anmärka QuickRep1: TQuickRep
    Lämnade = 76
    Överträffa = 54
    Bredd = 794
    Höjd = 1123
    Frame.Color = clBlack
    Frame.DrawTop = falskt
    Frame.DrawBottom = falskt
    Frame.DrawLeft = falskt
    Frame.DrawRight = falskt
    DataSet = Table1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = ”Arial”,
    Font.Style = []
    Functions.Strings = (
      ”PAGENUMBER”,
      ”COLUMNNUMBER”,
      ”REPORTTITLE”)
    Functions.DATA = (
      ”0”,
      ”0”,
      #39#39)
    Alternativ = [FirstPageHeader, LastPageFooter]
    Page.Columns = 1
    Page.Orientation = poPortrait
    Page.PaperSize = A4
    Page.Values = (
      100.000000000000000000
      2970.000000000000000000
      100.000000000000000000
      2100.000000000000000000
      100.000000000000000000
      100.000000000000000000
      0.000000000000000000)
    PrinterSettings.Copies = 1
    PrinterSettings.OutputBin = automatisk
    PrinterSettings.Duplex = falskt
    PrinterSettings.FirstPage = 0
    PrinterSettings.LastPage = 0
    PrinterSettings.UseStandardprinter = falskt
    PrinterSettings.UseCustomBinCode = falskt
    PrinterSettings.CustomBinCode = 0
    PrinterSettings.ExtendedDuplex = 0
    PrinterSettings.UseCustomPaperCode = falskt
    PrinterSettings.CustomPaperCode = 0
    PrinterSettings.PrintMetaFile = falskt
    PrinterSettings.PrintQuality = 0
    PrinterSettings.Collate = 0
    PrinterSettings.ColorOption = 0
    PrintIfEmpty = True
    SnapToGrid = True
    Enheter = EN MM
    Zoom = 100
    PrevFormStyle = fsNormal
    PreviewInitialState = wsNormal
    PrevInitialZoom = qrZoomToFit
    anmärka QRBand2: TQRBand
      Lämnade = 38
      Överträffa = 38
      Bredd = 718
      Höjd = 40
      Frame.Color = clBlack
      Frame.DrawTop = falskt
      Frame.DrawBottom = falskt
      Frame.DrawLeft = falskt
      Frame.DrawRight = falskt
      AfterPrint = QRBand2AfterPrint
      AlignToBottom = falskt
      BeforePrint = QRBand2BeforePrint
      Färga = clWhite
      TransparentBand = falskt
      ForceNewColumn = falskt
      ForceNewPage = falskt
      Size.Values = (
        105.833333333333300000
        1899.708333333333000000)
      PreCaluculateBandHeight = falskt
      KeepOnOnePage = falskt
      BandType = rbDetail
      anmärka QRDBText1: TQRDBText
        Lämnade = 18
        Överträffa = 12
        Bredd = 44
        Höjd = 17
        Frame.Color = clBlack
        Frame.DrawTop = falskt
        Frame.DrawBottom = falskt
        Frame.DrawLeft = falskt
        Frame.DrawRight = falskt
        Size.Values = (
          44.979166666666670000
          47.625000000000000000
          31.750000000000000000
          116.416666666666700000)
        Justeringen = taLeftJustify
        AlignToBand = falskt
        AutoSize = True
        AutoStretch = falskt
        Färga = clWhite
        DataSet = Table1
        DataField = ”CustNo”,
        Genomskinligt = falskt
        WordWrapen = True
        FontSize = 10
      avsluta
      anmärka QRDBText2: TQRDBText
        Lämnade = 104
        Överträffa = 12
        Bredd = 56
        Höjd = 17
        Frame.Color = clBlack
        Frame.DrawTop = falskt
        Frame.DrawBottom = falskt
        Frame.DrawLeft = falskt
        Frame.DrawRight = falskt
        Size.Values = (
          44.979166666666670000
          275.166666666666700000
          31.750000000000000000
          148.166666666666700000)
        Justeringen = taLeftJustify
        AlignToBand = falskt
        AutoSize = True
        AutoStretch = falskt
        Färga = clWhite
        DataSet = Table1
        DataField = ”företag”,
        Genomskinligt = falskt
        WordWrapen = True
        FontSize = 10
      avsluta
      anmärka QRDBText3: TQRDBText
        Lämnade = 454
        Överträffa = 11
        Bredd = 24
        Höjd = 17
        Frame.Color = clBlack
        Frame.DrawTop = falskt
        Frame.DrawBottom = falskt
        Frame.DrawLeft = falskt
        Frame.DrawRight = falskt
        Size.Values = (
          44.979166666666670000
          1201.208333333333000000
          29.104166666666670000
          63.500000000000000000)
        Justeringen = taLeftJustify
        AlignToBand = falskt
        AutoSize = True
        AutoStretch = falskt
        Färga = clWhite
        DataSet = Table1
        DataField = ”stad”,
        Genomskinligt = falskt
        WordWrapen = True
        FontSize = 10
      avsluta
    avsluta
  avsluta
  anmärka Button1: TButton
    Lämnade = 10
    Överträffa = 12
    Bredd = 75
    Höjd = 25
    Förse med text = ”Button1”,
    TabOrder = 1
    OnClick = Button1Click
  avsluta
  anmärka Table1: TTable
    Aktivet = True
    DatabaseName = ”DBDEMOS”,
    TableName = ”customer.db”,
    Lämnade = 228
    Överträffa = 120
  avsluta
avsluta
Andra lösningar  
 
programming4us programming4us