ie.Left = 0 ie.Top = 0 ie.width = 1024 ie.height = 768 End Sub
Sub Force32bit() If InStr(UCase(WScript.FullName), "SYSTEM32") > 0 Then Dim objShell : Set objShell = CreateObject("WScript.Shell") objShell.CurrentDirectory = "C:\Windows\SysWOW64" objShell.Run "wscript.exe " & WScript.ScriptFullName, 1, False WScript.Quit End If End Sub
our servers are 64 bit, users PCS 32 bit xp with qv plug-in installed locally. All access is via the plug-in directly from PC (laptops or workstations) to server using the qvp protocol. All the machines are in the AD which uses trusted domains. We don't access via terminal servers - we used that as a workaound during the migration to the AD for users whose machines were still outside the domain as we use NT authentification. But is was only temporary.