Code Snippets, Functions and Sub

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Code Snippets, Functions and Sub

Logged in as: Guest

arrSession:exec spGetSession 2,16,57816

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

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Code Snippets, Functions and Sub
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Code Snippets, Functions and Sub - 3/11/2008 11:40:36 PM

mbouchard

Posts: 1823
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

I was just thinking about how many of us have basic code snippets that we have in many of our scripts that perform 1 function and that it might be worth while to have a central repository. So, I will start.

Get OS and SP version

'Return and examples
Dim getOSSParray, WindowsVer,WindowsSPVer
getOSSParray = split(getOSSP,",")
WindowsVer = getOSSParray(0)
WindowsSPVer = getOSSParray(1)
WScript.Echo "Windows = " & WindowsVer & VbCrLf & "Service Pack = " &  WindowsSPVer

Function GetOSSP
Dim objWMIService,os,getWinOS,GetWinSP
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
 For Each os In objWMIService.InstancesOf("Win32_OperatingSystem Where Primary=True")
       Select Case left(os.Version,3)
           Case "6.0": getWinOS = "Vista" '6.0.6001=SP1 and 6.0.6000=RTM
           Case "5.2": getWinOS = "W2003" '5.2.3790
           Case "5.1": getWinOS = "WXP" '5.1.2600
           Case "5.0": getWinOS = "W2K" '5.0.2195
           Case "4.0": getWinOS = "NT4" '4.0.1381
           Case Else : getWinOS = "Other"
       End Select
       Select Case os.CSDVersion
           Case "Service Pack 6": GetWinSP = "SP6"
           Case "Service Pack 5": GetWinSP = "SP5"
           Case "Service Pack 4": GetWinSP = "SP4"
           Case "Service Pack 3": GetWinSP = "SP3"
           Case "Service Pack 2": GetWinSP = "SP2"
           Case "Service Pack 1": GetWinSP = "SP1"
           Case Else: GetWinSP = "None"
       End Select  
   Next    
   GetOSSP = getWinOS &"," & GetWinSP 
End Function

The next sub is one I use whenever I am doing an install that would pop up a security message    'Prevents "Open File - Security Warning" dialog box from displaying on Windows XP SP2 and above

Disable/Enable IEZone Checks



Compare File Versions

If CompareVersion(Fso.getfileversion("c:\program files\Internet Explorer\iexplore.exe"), "6.00.2900.2180") = 0 Then
   MsgBox "IE6SP2 is installed"
End If 
Function CompareVersion(ByVal strVersion1, ByVal strVersion2)
   Dim v1, v2, t1, t2
   'Returns -1 if strVersion1<strVersion2
   'Returns 1 if strVersion1>strVersion2
   'Returns 0 if strVersion1=strVersion2
   CompareVersion = 0
   If strVersion1="" Or strVersion2="" Then
       If strVersion1<strVersion2 Then
           CompareVersion = -1
           Exit Function
       Else
           If v1>v2 Then
               CompareVersion = 1
               Exit Function
           Else
               CompareVersion = 0
               Exit Function
           End If
       End If
   End If
   t1 = Instr(strVersion1, ".")
   If t1 = 0 Then t1 = Len(strVersion1)+1
   t2 = Instr(strVersion2, ".")
   If t2 = 0 Then t2 = Len(strVersion2)+1
   Do While True
       v1 = CInt(Left(strVersion1,t1-1))
       v2 = CInt(Left(strVersion2,t2-1))
       If v1<v2 Then
           CompareVersion = -1
           Exit Function
       Else
           If v1>v2 Then
               CompareVersion = 1
               Exit Function
           End If
       End iF
       strVersion1 = Mid(strVersion1,t1+1)
       strVersion2 = Mid(strVersion2,t2+1)
       If strVersion1="" Or strVersion2="" Then
           If strVersion1<strVersion2 Then
               CompareVersion = -1
               Exit Function
           Else
               If v1>v2 Then
                   CompareVersion = 1
                   Exit Function
               Else
                   CompareVersion = 0
                   Exit Function
               End If
           End If
       End iF
       t1 = Instr(strVersion1, ".")
       If t1 = 0 Then t1 = Len(strVersion1)+1
       t2 = Instr(strVersion2, ".")
       If t2 = 0 Then t2 = Len(strVersion2)+1
   Loop
End Function

Delete file



Delete Folder



I have an IE detect script that I am currently working as microsoft changed how the versioning is updated on IE7 when IE is patched.

That is all for today, will probably post more later.

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.