A simple question for the brainy

[GrimR]

If I put this at the top of a script

'RunLogonScriptOnceADay
'==========================================================================
Dim varToday, Verify, LastRunDate
Set WshShell = CreateObject("Wscript.Shell")
 
varToday = Weekday(Date)

Verify = "HKLM\SOFTWARE\MyInstallsAndFixes\"

 'Check if scan has run today and if so exit
On Error Resume Next
LastRunDate = WshShell.RegRead(Verify & "WhatYouWantToCallIT")
If LastRunDate =  cstr(Date) Then
      WScript.Quit
Else
     WshShell.RegWrite Verify & "WhatYouWantToCallIT",Date,"REG_SZ"
End If

Then there a bunch of code that goes here.
Can I then add this next part in the middle of the script to bypass this section for the next X number of days

'Now Create a registry value so if this is run it wont run again for a Month
'==========================================================================
Dim WshShell, varToday, Verify, LastScanDate, MsgText
 
Set WshShell = CreateObject("Wscript.Shell")
varToday = (Date)

Verify = "HKLM\SOFTWARE\MyInstallsAndFixes\"

'Check if scan has run today and if so Exit
On Error Resume Next
LastRunDate = WshShell.RegRead(Verify & "WhatYouWantToCallIT")

If DateDiff("d", LastRunDate, varToday) < 30 Then
   WScript.Quit
Else
  WshShell.RegWrite Verify & "WhatYouWantToCallIT",Date,"REG_SZ"
End If

MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP

 

[markdmac]

Yes you can do that but you only need to add this portion of the code:

If DateDiff("d", LastRunDate, varToday) < 30 Then
   WScript.Quit
Else
  WshShell.RegWrite Verify & "WhatYouWantToCallIT",Date,"REG_SZ"
End If

I hope that helps.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[GrimR]

Thanks, Mark it was you that made the code after all.

MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP

 

[markdmac]

Yes, I recognized it as my CheckIfFixRun code from my FAQ.

Glad you are able to make use of it.

I hope that helps.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.