Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
determine OS
- Thread starter AntunB
- Start date
wscript.echo OS()
'///////////////////////////////////////////////////////
'-------------------------------------------------------
' Determine Operating System Function
'-------------------------------------------------------
'///////////////////////////////////////////////////////
Function OS()
On Error Resume Next
OSType = ws.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType"
If Err.Number<>0 Then
Err.Clear
OSType = ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\VersionNumber"
If Err.Number<>0 Then
OS = "Unknown"
Else
End If
Else
End If
If OSType = "LanmanNT" OR OSType = "ServerNT" OR OSType = "WinNT" Then
Err.Clear
OSversion = ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"
If Err.Number<>0 Then
GetOS = "Unknown"
Else
End If
Else
End If
If OSversion = "4.0" Then
Select Case OSType
Case "LanmanNT"
OS = "Windows NT4 Server DC"
Case "ServerNT"
OSType = "Windows NT4 Server"
Case "WinNT"
OS = "Windows NT4 Workstation"
End Select
ElseIf OSversion = "5.0" Then
Select Case OSType
Case "LanmanNT"
OS = "Windows 2000 Server DC"
Case "ServerNT"
OS = "Windows 2000 Server"
Case "WinNT"
OS = "Windows 2000 Professional"
End Select
Elseif OSversion = "5.1" Then
OS = "Windows XP"
Else
If OSType = "4.00.950" OR OSType = "4.00.1111" OR OSType = "4.03.1214" Then
OS = "Windows 95"
ElseIf OSType = "4.10.1998" OR OSType = "4.10.2222" Then
OS = "Windows 98"
Else
OS = "Unknown"
End If
End If
End Function
'///////////////////////////////////////////////////////
'-------------------------------------------------------
' Determine Operating System Function
'-------------------------------------------------------
'///////////////////////////////////////////////////////
Function OS()
On Error Resume Next
OSType = ws.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType"
If Err.Number<>0 Then
Err.Clear
OSType = ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\VersionNumber"
If Err.Number<>0 Then
OS = "Unknown"
Else
End If
Else
End If
If OSType = "LanmanNT" OR OSType = "ServerNT" OR OSType = "WinNT" Then
Err.Clear
OSversion = ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"
If Err.Number<>0 Then
GetOS = "Unknown"
Else
End If
Else
End If
If OSversion = "4.0" Then
Select Case OSType
Case "LanmanNT"
OS = "Windows NT4 Server DC"
Case "ServerNT"
OSType = "Windows NT4 Server"
Case "WinNT"
OS = "Windows NT4 Workstation"
End Select
ElseIf OSversion = "5.0" Then
Select Case OSType
Case "LanmanNT"
OS = "Windows 2000 Server DC"
Case "ServerNT"
OS = "Windows 2000 Server"
Case "WinNT"
OS = "Windows 2000 Professional"
End Select
Elseif OSversion = "5.1" Then
OS = "Windows XP"
Else
If OSType = "4.00.950" OR OSType = "4.00.1111" OR OSType = "4.03.1214" Then
OS = "Windows 95"
ElseIf OSType = "4.10.1998" OR OSType = "4.10.2222" Then
OS = "Windows 98"
Else
OS = "Unknown"
End If
End If
End Function
Try something like this:
Hope This Help
PH.
Code:
Set oSh=CreateObject("WScript.Shell")
Set oEx=oSh.Exec("%COMSPEC% /C ver")
Do While oEx.Status=0
WScript.Sleep 100
Loop
While Len(buf) < 1
buf=Replace(oEx.StdOut.ReadLine,vbCrLf,"")
Wend
WScript.Echo "'" & buf & "'"Hope This Help
PH.
- Status
Similar threads
- Locked
- Question
