Verificar si el SQL Server esta instalado
Visual Fox Pro, WMI, SQL Server, Bases de datos Comentarios ( 0 ) »Utilizar WMI para determinar si el SQL Server esta instalado en el equipo; Cuando SQL Server se instala se inicia un servicio de Windows llamado MSSQLServer y lo que se hace es buscar a ver si existe dicho servicio.
objWMI = GetObject("winmgmts:\\")
cCadWMI = "Select * from Win32_Service Where Name = 'MSSQLServer'"
oBServ = objWMI.ExecQuery(cCadWMI)
If oBServ.Count > 0 Then
For Each objSer in oBServ
? "SQL Server is " +
objSer.State + "."
Next
Else
? "SQL Server no esta instalado en este computador."
EndIf
Por: David Amador T