Provides access to a string containing Windows NT/2000: a string, such as "Service Pack 3," that indicates the latest Service Pack installed on the system. If no Service Pack has been installed, the string is empty. Windows 9x: a string that provides arbitrary additional information about the operating system.
To access the Service Pack information, enter:
Dim SPInfo, obj Set obj = CreateObject("OpScrUtil.SystemManager") SPInfo = obj.ServicePackInfo