[Wine]Re: Can WMI be used in WINE apps?

Juan Alvarez jaferrando at yahoo.com
Fri Jun 3 06:48:26 CDT 2005


Hi Joachim,

Thank you very much for your confirmation. I regret to
abuse you again, but as I'm new to Wine, I'd be most
grateful if you could tell me about the versions and
configurations I would need to reproduce your test.

Thank you gain, I'm in debt with you.

Best regards.

Juan Alvarez

--- Joachim von Thadden <thadden at web.de> wrote:

> 
> Hi Juan,
> 
> this just worked by executing
> 
> wine wscript test.vbs
> 
> It showed me the desired four dialogs with version
> numbers only
> complaining that ADSI (Active Directory Scripting
> Interface?) is not
> installed. Tried also sokme other script from the
> scriptcenter which
> worked also.
> 
> Regards
> 	Joachim von Thadden 
> 
> Am Mi, Jun 01, 2005 at 11:11:50 -0700 schrieb Juan
> Alvarez:
> > Simplest way to test WMI is running a simple
> script
> > with MSH (Microsoft Scripting Host). There are
> plenty
> > at MS scriptcenter
> >
>
(http://www.microsoft.com/technet/scriptcenter/default.mspx).
> > This one here will check the version of WMI, and
> other
> > Windows components:
> > 
> > (taken from
> >
>
http://www.computerperformance.co.uk/Logon/WSH_Simple.htm):
> > 
> > 'Script to display WSH, VBScript, WMI, and ADSI
> > versions
> > 'Script created by Guy Thomas
> > 
> > On Error Resume Next
> > 
> > WScript.Echo "WSH Version: " & WScript.Version
> > 
> > Wscript.Echo "VBScript Version: " &
> > ScriptEngineMajorVersion _
> > & "." & ScriptEngineMinorVersion
> > 
> > strComputer = "."
> > Set objWMIService = GetObject("winmgmts:" _
> > & "{impersonationLevel=impersonate}!\\" &
> strComputer
> > _
> > & "\root\cimv2")
> > Set colWMISettings = objWMIService.ExecQuery _
> > ("Select * from Win32_WMISetting")
> > For Each objWMISetting in colWMISettings
> > Wscript.Echo "WMI Version: " &
> > objWMISetting.BuildVersion
> > Next
> > 
> > Set objShell = CreateObject("WScript.Shell")
> > strAdsiVersion = _
> > objShell.RegRead("HKLM\SOFTWARE\Microsoft\Active
> > Setup\Installed
> >
>
Components\{E92B03AB-B707-11d2-9CBD-0000F87A369E}\Version")
> > If strAdsiVersion = vbEmpty Then
> > strAdsiVersion =
> >
>
objShell.RegRead("HKLM\SOFTWARE\Microsoft\ADs\Providers\LDAP\")
> > If strAdsiVersion = vbEmpty Then
> > strAdsiVersion = "ADSI is not installed."
> > Else
> > strAdsiVersion = "2.0"
> > End If
> > End If
> > WScript.Echo "ADSI Version: " & strAdsiVersion
> >  
> > 
> > --- Joachim von Thadden <thadden at web.de> wrote:
> > 
> > > Am Mi, Jun 01, 2005 at 01:25:17 +0100 schrieb
> Mike
> > > Hearn:
> > > > On Wed, 01 Jun 2005 04:06:38 -0700, Juan
> Alvarez
> > > wrote:
> > > > > After some googling I've found that there's
> very
> > > > > little said about the possibility of using
> WMI
> > > from
> > > > > Wine.
> > > > 
> > > > IIRC WMI is based on DCOM, so our DCOM code
> would
> > > need a lot more work.
> > > 
> > > I just made a short test (WineTools, native
> DCOM98)
> > > and with a little
> > > bit of luck it is installable and the testing
> app is
> > > running. But as I
> > > don't have any apps using the API I do not know
> > > whether it really works
> > > good.
> > > 
> > > Regards
> > > 	Joachim von Thadden
> > > -- 
> > > "Never touch a running system! Never run a
> touching
> > > system?
> > >           Never run a touchy system!!!"
> > > 
> > 
> > 
> > __________________________________________________
> > Do You Yahoo!?
> > Tired of spam?  Yahoo! Mail has the best spam
> protection around 
> > http://mail.yahoo.com 
> 
> -- 
> "Never touch a running system! Never run a touching
> system?
>           Never run a touchy system!!!"
> 


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 



More information about the wine-users mailing list