-
Notifications
You must be signed in to change notification settings - Fork 4
/
Check version of SAP GUI.vbs
38 lines (32 loc) · 1.39 KB
/
Check version of SAP GUI.vbs
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
' Alistair McMillan
' Start Date: 24 June 2014
' -----------------------------------------------
Option Explicit
Dim strComputer, strFilename, objFileSystem, objFile, objFolder, objShell, objFolderItem, x
strComputer = InputBox("Enter full computer name (i.e. SWSA29565) or IP address. Leave blank to run against your own PC.")
If IsEmpty(strComputer) Then
WScript.quit()
ElseIf strComputer = "" Then
strComputer = "."
End If
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
If objFileSystem.FolderExists("\\" & strComputer & "\c$\Program Files\SAP\FrontEnd\SAPgui" ) Then
If objFileSystem.FileExists("\\" & strComputer & "\c$\Program Files\SAP\FrontEnd\SAPgui\SAPgui.exe") Then
Dim arrDetails(100)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("\\" & strComputer & "\c$\Program Files\SAP\FrontEnd\SAPgui\")
Set objFolderItem = objFolder.ParseName("SAPgui.exe")
For x = 0 To 100
arrDetails(x) = objFolder.GetDetailsOf(objFolder.Items, x)
If lcase(arrDetails(x))= "product version" Then
MsgBox(strComputer & " has SAP GUI version " & objFolder.GetDetailsOf(objFolderItem, x))
Exit For
End If
Next
Else
MsgBox("Uh oh! " & strComputer & " doesn't seem to have SAPgui.exe installed.")
End If
Else
MsgBox("Uh oh! " & strComputer & " doesn't even seem to have a SAPgui folder.")
End If
Wscript.Quit