I have a little challenge for you all.

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

I have a little challenge for you all.

Logged in as: Guest

arrSession:exec spGetSession 2,2,61886

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> I have a little challenge for you all.
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

I have a little challenge for you all. - 6/26/2008 12:56:51 AM

ginolard

Posts: 1053
Score: 21
Joined: 8/10/2005
Status: offline

I've been having fun with this recently so I thought I'd see how inventive you all are.

Write a script to detect, as accurately as possible, how many CPUs (and how many cores each CPU has) a remote machine has

Oh, this is for XP/2000 machines only. It's too easy on Vista because Microsoft added the NumberOfCores property to Win32_Processor.

Be warned, it's not as straightforward as you might think!!

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

Post #: 1

RE: I have a little challenge for you all. - 6/26/2008 1:33:15 AM

dm_4ever

Posts: 2664
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Maybe apply these hotfix

http://support.microsoft.com/kb/936235/
http://support.microsoft.com/kb/932370/

....this one may be tricky...maybe I'll have some time today to poke around

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ginolard)

Post #: 2

RE: I have a little challenge for you all. - 6/26/2008 4:23:20 PM

ginolard

Posts: 1053
Score: 21
Joined: 8/10/2005
Status: offline

Haha, I didn't know about those hotfixes!

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to dm_4ever)

Post #: 3

RE: I have a little challenge for you all. - 6/29/2008 3:58:31 AM

yfki

Posts: 78
Score: 0
Joined: 12/12/2007
Status: offline

gino--

Maybe this will just make for more fun, but I wrote this snippet a while back in a rush, has 1 ridiclously long function in it, few other subs.
Somewhat of a health check. But part of it was detecting how many cores. Has rotating logs built into it, cpu, memory status.

Could be tweaked, then copied to a remote machine run and output captured/sent back.

'On Error Resume Next 
'Log Settings
strYear = Year(Date) 
bEnableLogging = True
bIncludeDateStamp = True
bPrependDateStampInLogFileName = False
sLogFileLocation = "C:\LogFiles\"
'sLogFileLocation = "relative"
sLogFileName = "Performance_Status.log"
sOverWriteORAppend = "append"

strEcho = False

Call HealthCheck("127.0.0.1")

Function HealthCheck(host)
   
   Dim CPU0, CPU1, CPU2, CPU3, CPU4, CPU5, CPU6, CPU7, CPUCount, load
   
   CPU0 = 0
   CPU1 = 0
   CPU2 = 0
   CPU3 = 0
   CPU4 = 0
   CPU5 = 0
   CPU6 = 0
   CPU7 = 0
   Const Timeout = 3

Set WshShell = CreateObject("WScript.Shell")
   Set Memory = GetObject("winmgmts:{impersonationLevel=impersonate}!//" _
            & host & "/root/cimv2:Win32_PerfRawData_PerfOS_Memory=@")

Set objWMIService = GetObject("winmgmts:\\" & host & "\root\CIMV2")
   Set pMemory = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalMemoryConfiguration", "WQL", _
                                         wbemFlagReturnImmediately + wbemFlagForwardOnly)

Set colItems = GetObject("winmgmts:\\" & host & "\root\cimv2").ExecQuery("Select * from Win32_ComputerSystem")
   For Each objItem in colItems
       If objItem.NumberOfProcessors = 8 Then
           CPUCount = 8
       ElseIf objItem.NumberOfProcessors = 4 Then
           CPUCount = 4
       ElseIf objItem.NumberOfProcessors = 2 Then
           CPUCount = 2
       ElseIf objItem.NumberOfProcessors = 1 Then
           CPUCount = 1
       End If
   Next
   
   
   
   
   
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''    
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   '***************************** 8 CPU's ********************************************
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''    
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
   
   If CPUCount = 8 Then
   
   Do
       
       WshShell.Popup "" _
           & vbCrLf _
           & "********************************" & vbCrLf _
           & "             Multi-Core CPU Detected " & vbCrLf _
           & "                    Total CPU's: " & CPUCount & vbCrLf _
           & "********************************" & vbCrLf _
           & vbCrLf _
           & "Performing CPU & Memory Calculations" & vbCrLf _
           & "Please wait...", Timeout
           
                
       
       
       Set colcpu = GetObject("winmgmts:\\" & host & "\root\cimv2").ExecQuery ("Select * from Win32_Processor")
       For Each objItem in colcpu
           If objitem.DeviceID = "CPU0" Then
               CPU0 = Int(objItem.LoadPercentage)
           ElseIf objitem.DeviceID = "CPU1" Then
               CPU1 = Int(objItem.LoadPercentage)
           ElseIf objitem.DeviceID = "CPU2" Then
               CPU2 = Int(objItem.LoadPercentage)
           ElseIf objitem.DeviceID = "CPU3" Then
               CPU3 = Int(objItem.LoadPercentage)
           ElseIf objitem.DeviceID = "CPU4" Then
               CPU4 = Int(objItem.LoadPercentage)
           ElseIf objitem.DeviceID = "CPU5" Then
               CPU5 = Int(objItem.LoadPercentage)
           ElseIf objitem.DeviceID = "CPU6" Then
               CPU6 = Int(objItem.LoadPercentage)
           ElseIf objitem.DeviceID = "CPU7" Then
               CPU7 = Int(objItem.LoadPercentage)
           End If
       Next
           
       load = (CPU0 + CPU1 + CPU2 + CPU3 + CPU4 + CPU5 + CPU6 + CPU7) / 8

For Each MemoryObject In pMemory
                TotalpMemory = Int(MemoryObject.TotalPhysicalMemory)
           Next
           
               MemoryAvailable= Int(Memory.AvailableKBytes)
             
           TotalMemoryUtilization = 100 - ((MemoryAvailable / TotalpMemory ) * 100)
           TotalMemoryUtilizationFormatted = FormatNumber(TotalMemoryUtilization,2)
   
           If strEcho = True Then         
           
           WScript.Echo TotalMemoryUtilization
           WScript.Echo "TotalPhysicalMemory: " & TotalpMemory & vbCrLf _
           & "Free Memory in KB: " & MemoryAvailable & vbCrLf _
           & "Total Memory Utilization : " & TotalMemoryUtilizationFormatted & " %" & vbCrLf _
           & vbCrLf _
           & "*************************" & vbCrLf _
           & "     Multi-Core CPU Detected " & vbCrLf _
           & "     Total CPU's: " & CPUCount & vbCrLf _
           & "*************************" & vbCrLf _
           & vbCrLf _
           & "Amount of CPU 0 utilized : " & CPU0 & "%" & vbCrLf _
           & "Amount of CPU 1 utilized : " & CPU1 & "%" & vbCrLf _
           & "Amount of CPU 2 utilized : " & CPU2 & "%" & vbCrLf _
           & "Amount of CPU 3 utilized : " & CPU3 & "%" & vbCrLf _
           & "Amount of CPU 4 utilized : " & CPU4 & "%" & vbCrLf _
           & "Amount of CPU 5 utilized : " & CPU5 & "%" & vbCrLf _
           & "Amount of CPU 6 utilized : " & CPU6 & "%" & vbCrLf _
           & "Amount of CPU 7 utilized : " & CPU7 & "%" & vbCrLf _
           & vbCrLf _
           & "Total CPU Utilization : " & load & "%" & vbCrLf 
           End If
           
       
       LogToFile "******************************************"
       LogToFile "Total Physical Memory in KB: " & TotalpMemory 
       LogToFile "Free Memory in KB: " & MemoryAvailable 
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "Total Memory Utilization : " & TotalMemoryUtilizationFormatted & "%"
       LogToFile ""
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "******************************************"
       LogToFile "Amount of CPU 0 utilized : " & CPU0 & "%" 
       LogToFile "Amount of CPU 1 utilized : " & CPU1 & "%" 
       LogToFile "Amount of CPU 2 utilized : " & CPU2 & "%" 
       LogToFile "Amount of CPU 3 utilized : " & CPU3 & "%" 
       LogToFile "Amount of CPU 4 utilized : " & CPU4 & "%" 
       LogToFile "Amount of CPU 5 utilized : " & CPU5 & "%" 
       LogToFile "Amount of CPU 6 utilized : " & CPU6 & "%" 
       LogToFile "Amount of CPU 7 utilized : " & CPU7 & "%" 
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "Total CPU Utilization : " & load & "%"
       LogToFile ""
       LogToFile "******************************************"
               
       If load > 90 Then
           Call sendLog()
       End If

If TotalMemoryUtilization > 90 Then
           Call sendLog()
       End If

Loop

'WScript.Echo TotalMemoryUtilization
       WScript.Echo "TotalPhysicalMemory: " & TotalpMemory & vbCrLf _
       & "Free Memory in KB: " & MemoryAvailable & vbCrLf _
       & "Total Memory Utilization : " & TotalMemoryUtilizationFormatted & " %" & vbCrLf _
       & vbCrLf _
       & "*************************" & vbCrLf _
       & "     Multi-Core CPU Detected " & vbCrLf _
       & "     Total CPU's: " & CPUCount & vbCrLf _
       & "*************************" & vbCrLf _
       & vbCrLf _
       & "Amount of CPU 0 utilized : " & CPU0 & "%" & vbCrLf _
       & "Amount of CPU 1 utilized : " & CPU1 & "%" & vbCrLf _
       & "Amount of CPU 2 utilized : " & CPU2 & "%" & vbCrLf _
       & "Amount of CPU 3 utilized : " & CPU3 & "%" & vbCrLf _
       & vbCrLf _
       & "Total CPU Utilization : " & load & "%" & vbCrLf

End If

LogToFile "******************************************"
       LogToFile "Total Physical Memory in KB: " & TotalpMemory 
       LogToFile "Free Memory in KB: " & MemoryAvailable 
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "Total Memory Utilization : " & TotalMemoryUtilizationFormatted & "%"
       LogToFile ""
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "******************************************"
       LogToFile "Amount of CPU 0 utilized : " & CPU0 & "%" 
       LogToFile "Amount of CPU 1 utilized : " & CPU1 & "%" 
       LogToFile "Amount of CPU 2 utilized : " & CPU2 & "%" 
       LogToFile "Amount of CPU 3 utilized : " & CPU3 & "%" 
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "Total CPU Utilization : " & load & "%"
       LogToFile ""
       LogToFile "******************************************"
               
       If load > 90 Then
           Call sendLog()
       End If

If TotalMemoryUtilization > 90 Then
           Call sendLog()
       End If

Loop

ElseIf CPUCount = 2 Then
   
   Do
       
'        WshShell.Popup "" _
'        & vbCrLf _
'        & "********************************" & vbCrLf _
'        & "             Multi-Core CPU Detected " & vbCrLf _
'        & "                    Total CPU's: " & CPUCount & vbCrLf _
'        & "********************************" & vbCrLf _
'        & vbCrLf _
'        & "Performing CPU & Memory Calculations" & vbCrLf _
'        & "Please wait...", Timeout
       
       
       
       
       Set colcpu = GetObject("winmgmts:\\" & host & "\root\cimv2").ExecQuery ("Select * from Win32_Processor")
       For Each objItem in colcpu
           If objItem.DeviceID = "CPU0" Then
               CPU0 = Int(objItem.LoadPercentage)
           ElseIf objItem.DeviceID = "CPU1" Then
               CPU1 = Int(objItem.LoadPercentage)
           End If
       Next
       
       load = (CPU0 + CPU1) / 2
       
       
       
       
          For Each MemoryObject In pMemory
            TotalpMemory = Int(MemoryObject.TotalPhysicalMemory)
       Next
       
           MemoryAvailable= Int(Memory.AvailableKBytes)
         
       TotalMemoryUtilization = 100 - ((MemoryAvailable / TotalpMemory ) * 100)
       TotalMemoryUtilizationFormatted = FormatNumber(TotalMemoryUtilization,2)

If strEcho = True Then 
       
       'WScript.Echo TotalMemoryUtilization
       WScript.Echo "TotalPhysicalMemory: " & TotalpMemory & vbCrLf _
       & "Free Memory in KB: " & MemoryAvailable & vbCrLf _
       & "Total Memory Utilization : " & TotalMemoryUtilizationFormatted & " %" & vbCrLf _
       & vbCrLf _
       & "     Multi-Core CPU Detected " & vbCrLf _
       & "     Total CPU's: " & CPUCount & vbCrLf _
       & "*************************" & vbCrLf _
       & vbCrLf _
       & "Amount of CPU 0 utilized : " & CPU0 & "%" & vbCrLf _
       & "Amount of CPU 1 utilized : " & CPU1 & "%" & vbCrLf _
       & vbCrLf _
       & "Total CPU Utilization : " & load & "%" & vbCrLf 
       
       End if
           
       LogToFile "******************************************"
       LogToFile "Total Physical Memory in KB: " & TotalpMemory 
       LogToFile "Free Memory in KB: " & MemoryAvailable 
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "Total Memory Utilization : " & TotalMemoryUtilizationFormatted & "%"
       LogToFile ""
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "******************************************"
       LogToFile "Amount of CPU 0 utilized : " & CPU0 & "%" 
       LogToFile "Amount of CPU 1 utilized : " & CPU1 & "%" 
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "Total CPU Utilization : " & load & "%"
       LogToFile ""
       LogToFile "******************************************"

If load > 90 Then
           Call sendLog()
       End If

If TotalMemoryUtilization > 90 Then
           Call sendLog()
       End If

Loop

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''    
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   '***************************** 1 CPU *********************************************
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''    
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
       
   
       ElseIf CPUCount = 1 Then
       
       Do
       
'        WshShell.Popup "" _
'        & vbCrLf _
'        & "**************************************" & vbCrLf _
'        & "        Multi-Core CPU Detected " & vbCrLf _
'        & "              Total CPU's: " & CPUCount & vbCrLf _
'        & "**************************************" & vbCrLf _
'        & vbCrLf _
'        & "Performing CPU & Memory Calculations" & vbCrLf _
'        & "Please wait...", Timeout & vbCrLf _
'        & vbCrLf
       
       
       
       
       Set colcpu = GetObject("winmgmts:\\" & host & "\root\cimv2").ExecQuery ("Select * from Win32_Processor")
       For Each objItem in colcpu
           If objItem.DeviceID = "CPU0" Then
               CPU0 = Int(objItem.LoadPercentage)
           End If
       Next
       
       load = CPU0
       
       
          For Each MemoryObject In pMemory
            TotalpMemory = Int(MemoryObject.TotalPhysicalMemory)
       Next
       
           MemoryAvailable= Int(Memory.AvailableKBytes)
         
       TotalMemoryUtilization = 100 - ((MemoryAvailable / TotalpMemory ) * 100)
       TotalMemoryUtilizationFormatted = FormatNumber(TotalMemoryUtilization,2)
       
       'WScript.Echo TotalMemoryUtilization
       If strEcho = True Then 
       WScript.Echo "TotalPhysicalMemory: " & TotalpMemory & vbCrLf _
       & "Free Memory in KB: " & MemoryAvailable & vbCrLf _
       & "Total Memory Utilization : " & TotalMemoryUtilizationFormatted & " %" & vbCrLf _
       & vbCrLf _
       & "*********************************" & vbCrLf _
       & "       Total CPU's: " & CPUCount & vbCrLf _
       & "*********************************" & vbCrLf _
       & vbCrLf _
       & "Total CPU Utilization : " & load & "%" & vbCrLf 
       
       End If
       
       LogToFile "******************************************"
           LogToFile "Total Physical Memory in KB: " & TotalpMemory 
       LogToFile "Free Memory in KB: " & MemoryAvailable 
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "Total Memory Utilization : " & TotalMemoryUtilizationFormatted & "%"
       LogToFile ""
       LogToFile "******************************************"
       LogToFile ""
       LogToFile "******************************************"
       LogToFile "Total CPU Utilization : " & load & "%"
       LogToFile "******************************************"
       
       If load > 90 Then
           Call sendLog()
       End If

If TotalMemoryUtilization > 90 Then
           Call sendLog()
       End If
       
       Loop

End If
   
End Function

Sub LogToFile(Message)
   If bEnableLogging = False Then Exit Sub

Const ForWriting = 2
   Const ForAppending = 8

Set oLogFSO = CreateObject("Scripting.FileSystemObject")
       If oLogFSo.FolderExists(sLogFileLocation) Then 
       Else oLogFSo.CreateFolder(sLogFileLocation)
       End if
     
   If sLogFileLocation = "relative" Then
       Set oLogShell = CreateObject("Wscript.Shell")
       sLogFileLocation = oLogShell.CurrentDirectory & "\"
       Set oLogShell = Nothing
   End If
  
   If bPrependDateStampInLogFileName Then
       sNow = Replace(Replace(Now(),"/","-"),":",".")
       sLogFileName = sNow & " - " & sLogFileName
       bPrependDateStampInLogFileName = False       
   End If
  
   sLogFile = sLogFileLocation & sLogFileName

If oLogFSO.FileExists(sLogFile) Then
       Set logCheck = oLogFSO.GetFile(sLogFile)
       If logCheck.Size > 1000000 Then
           Call RotateLog(sLogFile)
       End If
           
       'WScript.Echo logCheck.Name & " is " & logCheck.Size
   End If

If sOverWriteORAppend = "overwrite" Then
       Set oLogFile = oLogFSO.OpenTextFile(sLogFile, ForWriting, True)
       sOverWriteORAppend = "append"
   Else
       Set oLogFile = oLogFSO.OpenTextFile(sLogFile, ForAppending, True)
   End If

If bIncludeDateStamp Then
       Message = Now & "   " & Message
   End If

oLogFile.WriteLine(Message)
  
   oLogFile.Close
   oLogFSO = Null

End Sub

Sub sendLog()

'WScript.Echo sLogFileLocation&sLogFileName

Set objEmail = CreateObject("CDO.Message")
     objEmail.From = "bla@bla.com"
     objEmail.To = "bla@bla.com"
     objEmail.Subject = "** Status Alert **"
     objEmail.AddAttachment(sLogFileLocation & sLogFileName )

objEmail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   objEmail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
   objEmail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
   objEmail.Configuration.Fields.Update
'    WScript.Echo "I am about to Send"
   objEmail.Send
   set objEmail = Nothing
End Sub
   
   
Sub RotateLog(sLogFile)
   
   strFile = sLogFile
   
   Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(sLogFileLocation & sLogFileName & ".20") Then 
      FSO.DeleteFile(sLogFileLocation & sLogFileName & ".20")
      WScript.Sleep 500
   End If   
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".19") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".19", sLogFileLocation & sLogFileName & ".20" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".18") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".18", sLogFileLocation & sLogFileName & ".19" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".17") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".17", sLogFileLocation & sLogFileName & ".18" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".16") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".16", sLogFileLocation & sLogFileName & ".17" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".15") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".15", sLogFileLocation & sLogFileName & ".16" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".14") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".14", sLogFileLocation & sLogFileName & ".15" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".13") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".13", sLogFileLocation & sLogFileName & ".14" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".12") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".12", sLogFileLocation & sLogFileName & ".13" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".11") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".11", sLogFileLocation & sLogFileName & ".12" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".10") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".10", sLogFileLocation & sLogFileName & ".11" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".9") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".9", sLogFileLocation & sLogFileName & ".10" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".8") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".8", sLogFileLocation & sLogFileName & ".9" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".7") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".7", sLogFileLocation & sLogFileName & ".8" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".6") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".6", sLogFileLocation & sLogFileName & ".7" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".5") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".5", sLogFileLocation & sLogFileName & ".6" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".4") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".4", sLogFileLocation & sLogFileName & ".5" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".3") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".3", sLogFileLocation & sLogFileName & ".4" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".2") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".2", sLogFileLocation & sLogFileName & ".3" 
      WScript.Sleep 500
   End If
   
   If FSO.FileExists(sLogFileLocation & sLogFileName & ".1") Then
      FSO.MoveFile sLogFileLocation & sLogFileName & ".1", sLogFileLocation & sLogFileName & ".2" 
      WScript.Sleep 500
   End If
   
   FSO.MoveFile strFile, strFile & ".1"
End Sub

(in reply to ginolard)

Post #: 4

RE: I have a little challenge for you all. - 6/29/2008 4:28:16 AM

TNO

Posts: 1284
Score: 12
Joined: 12/18/2004
From: thenewobjective.com
Status: offline

To determine the number of PHYSICAL CPUs:

To determine the LOGICAL number of CPUs, get the info from the Registry:
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\system\CentralProcessor\
count the number of folders.

_____________________________

To iterate is human, to recurse divine. -- L. Peter Deutsch

(in reply to yfki)

Post #: 5

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> I have a little challenge for you all.

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts