[RKinner]

Give me the make, model, part number, and service tag if applicable of your PC. You probably mentioned it before but I don't have time to go look for it.

[Advertisements]

I did find this one:

http://www.updatesdr...d5074685db2cceb

It's 7.14.10.1151

[RKinner]

I did find this one:

http://www.updatesdr...d5074685db2cceb

It's 7.14.10.1151

[RKinner]

Lot of older drivers on this page:

http://www.updatesdr...3f5c5c&os=winxp

I would think that if it says 7.14.10.xxxx that you can try it regardless of what it says it is for. If it doesn't work you can boot to Safe Mode and uninstall it.

[ramaflore]

Amilo Pro 3505 running under Vista Business 32 bits.

What's service tag ?

Give me the make, model, part number, and service tag if applicable of your PC. You probably mentioned it before but I don't have time to go look for it.

[ramaflore]

I can't trust this site as I downloaded the setup and when launching, I have the Driver Tuner nag screen to install.

I know what was happening, I clicked on Start Download that seems to be obvious, instead of the arrow button.

I did find this one:

http://www.updatesdr...d5074685db2cceb

It's 7.14.10.1151

Edited by ramaflore, 26 August 2012 - 12:08 PM.

[ramaflore]

still the KSod with this version, sorry !

I did find this one:

http://www.updatesdr...d5074685db2cceb

It's 7.14.10.1151

[RKinner]

What version of DirectX do you have?

Start, All Programs, Accessories, right click on Command Prompt and Run as Administrator, Continue. Type with an Enter after each line:

dxdiag

On the System tab, note the version of DirectX that is displayed on the DirectX Version line.
On the various tabs, check the version information for each DirectX file.
When you are finished checking file versions, click Exit.

Vista SP2 can run DirectX 11.0 so I would get that if you don't have it.

If none of the older drivers on this page will work for you

http://www.updatesdr...3f5c5c&os=winxp

can you go back to the original driver and just let Autruns disable the two that cause a problem? Does that cause a problem with the display?

[ramaflore]

Hi Ron,

I have the latest version, DirectX 11.0.

can you go back to the original driver and just let Autruns disable the two that cause a problem?
Does that cause a problem with the display?

The display is similar to the Safe Mode.

What version of DirectX do you have?

Start, All Programs, Accessories, right click on Command Prompt and Run as Administrator, Continue. Type with an Enter after each line:

dxdiag

On the System tab, note the version of DirectX that is displayed on the DirectX Version line.
On the various tabs, check the version information for each DirectX file.
When you are finished checking file versions, click Exit.

Vista SP2 can run DirectX 11.0 so I would get that if you don't have it.

If none of the older drivers on this page will work for you

http://www.updatesdr...3f5c5c&os=winxp

can you go back to the original driver and just let Autruns disable the two that cause a problem? Does that cause a problem with the display?

[ramaflore]

Could you tell me what is Gather ?

Attached Thumbnails

• 

[ramaflore]

The main culprit is
igfx Intel Graphics Kernel Mode Driver Intel Corporation c:\windows\system32\drivers\igdkmd32.sys

and not 'ialm' as I wrote before:
My link

Edited by ramaflore, 26 August 2012 - 03:41 PM.

[RKinner]

Gather means collect. If you can find one or both of the two vbs files mentioned and right click on them and Open in Notepad and copy and paste the text and I can tell you what they do. C:\windows\system32\gatherwiredinfo.vbs, C:\windows\system32\gatherwirelessinfo.vbs

I wonder if your video settings are just not correct. Can you right click on your desktop somewhere and get into the graphics setup and tell me what resolution you are using? Does it make a difference to your black out periods what resolution you set it to?

Were you able to find out what version of DirectX you are using?

[RKinner]

One of the other techs has looked at your speccy results and he tells me that the problem is likely not enough RAM. You only have 1 GB and that is not enough to run Vista SP2 especially when the Video will be sharing it. (I'm kicking myself for not seeing that. I have tried to run Vista SP2 on 1 GB and it's absolutely awful.) 1 GB may have been enough when Vista first came out but each Service Pack seems to have increased the need for RAM. Running less than 2 GB will cause an extremely slow boot. You need to get two: 1024MB-533MHz DDR2-533 PC2-4200, 200p SODIMM, 1.8

Ron

[ramaflore]

Here you are gatherwiredinfo.vbs :

Dim FSO, shell, xslProcessor



Sub GetOSInfo(outputFileName)
On Error Resume Next

strComputer = "."
HKEY_LOCAL_MACHINE = &H80000002

Dim objReg, outputFile
Dim buildDetailNames, buildDetailRegValNames

buildDetailNames = Array("Product Name", "Version", "Build Lab", "Type")
buildDetailRegValNames = Array("ProductName", "CurrentVersion", "BuildLabEx", "CurrentType")

Set outputFile = FSO.OpenTextFile(outputFileName, 2, True)

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

outputFile.WriteLine("[Architechture/Processor Information]")
outputFile.WriteLine()
outputFile.Close
cmd = "cmd /c set processor >> " & outputFileName
shell.Run cmd, 0, True

Set outputFile = FSO.OpenTextFile(outputFileName, 8, True)

outputFile.WriteLine()
outputFile.WriteLine("[Operating System Information]")
outputFile.WriteLine()

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
for I = 0 to UBound(buildDetailNames)
objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, buildDetailRegValNames(I), info
outputFile.WriteLine(buildDetailNames(I) + " = " + info)
Next

outputFile.WriteLine()
strKeyPath = "SYSTEM\SETUP"
objReg.GetDWordValue HKEY_LOCAL_MACHINE, strKeyPath, "Upgrade", upgradeInfo
if IsNull(upgradeInfo) Then
outputFile.WriteLine("This is a clean installed system")
Else
outputFile.WriteLine("This is an upgraded system")
End If

outputFile.WriteLine(buildDetailNames(I) + " = " + info)

outputFile.WriteLine()
outputFile.WriteLine("[File versions]")
outputFile.WriteLine()

Set shell = WScript.CreateObject( "WScript.Shell" )
windir = shell.ExpandEnvironmentStrings("%windir%\system32\")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Dim FileSet
FileSet = Array("onex.dll", "dot3api.dll", "dot3cfg.dll", "dot3dlg.dll", "dot3gpclnt.dll", "dot3gpui.dll", "dot3msm.dll", "dot3svc.dll", "dot3ui.dll")
For Each file in FileSet
filename = windir + file
strQuery = "Select * from CIM_Datafile Where Name = '" + Replace(filename, "\", "\\") + "'"
Set fileProp = objWMIService.ExecQuery _
(strQuery)

For Each objFile in fileProp
outputFile.WriteLine(file + " " + objFile.Version)
Next
Next

call GetBatteryInfo(outputFile)
outputFile.Close

Set outputFile = FSO.OpenTextFile(outputFileName, 8, True)
outputFile.WriteLine("")
outputFile.WriteLine("[System Information]")
outputFile.WriteLine("")
outputFile.Close

'Comments: Dumping System Information using "systeminfo" command

cmd = "cmd /c systeminfo >> " & outputFileName
shell.Run cmd, 0, True

Set outputFile = FSO.OpenTextFile(outputFileName, 8, True)
outputFile.WriteLine("")
outputFile.WriteLine("[User Information]")
outputFile.WriteLine("")
outputFile.Close

cmd = "cmd /c set u >> " & outputFileName
shell.Run cmd, 0, True

End Sub

Sub GetBatteryInfo(outputFile)
On Error Resume Next
strComputer = "."
outputFile.WriteLine()
outputFile.WriteLine("[Power Information]")
outputFile.WriteLine()
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Battery")
if colItems.Count = 0 Then
outputFile.WriteLine("It is a Desktop running on AC")
Else
For Each objItem in colItems
if objItem.Availability = 2 Then
outputFile.WriteLine("Machine is running on AC Adapter")
Else
if objitem.Availability = 3 Then
outputFile.WriteLine("Machine is running on Battery")
End If
End If
Next
End If
End Sub

Sub GetAdapterInfo(outputFile)
On Error Resume Next
Dim adapters, objReg
Dim adapterDetailNames, adapterDetailRegValNames

adapterDetailNames = Array("Driver Description", "Adapter Guid", "Hardware ID", "Driver Date", "Driver Version", "Driver Provider")
adapterDetailRegValNames = Array("DriverDesc", "NetCfgInstanceId", "MatchingDeviceId", "DriverDate", "DriverVersion", "ProviderName")


HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")


strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"

objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, adapterSet

For Each adapter In adapterSet
If StrComp("Properties", adapter) Then
fullstrKeyPath = strKeyPath + adapter
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, fullstrKeyPath, "*IfType", ifType
If ifType = 6 Then
for I = 0 to UBound(adapterDetailNames)
objReg.GetStringValue HKEY_LOCAL_MACHINE, fullstrKeyPath, adapterDetailRegValNames(I), info
outputFile.WriteLine(adapterDetailNames(I) + " = " + info)
Next
outputFile.WriteLine()
End If
End If
Next
End Sub



Sub GetEnvironmentInfo(outputFileName)
On Error Resume Next
Dim envInfoFile

Set objShell = WScript.CreateObject( "WScript.Shell" )

cmd = "cmd /c netsh lan show interfaces > " & outputFileName
objShell.Run cmd, 0, True

cmd = "cmd /c netsh lan show settings >> " & outputFileName
objShell.Run cmd, 0, True

cmd = "cmd /c netsh lan show profiles >> " & outputFileName
objShell.Run cmd, 0, True

cmd = "cmd /c ipconfig /all >> " & outputFileName
objShell.Run cmd, 0, True

Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
envInfoFile.WriteLine("")
envInfoFile.WriteLine("Machine certificates...")
envInfoFile.WriteLine("")
envInfoFile.Close

cmd = "cmd /c certutil -v -store -silent My >> " & outputFileName
objShell.Run cmd, 0, True

Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
envInfoFile.WriteLine("")
envInfoFile.WriteLine("User certificates...")
envInfoFile.WriteLine("")
envInfoFile.Close

cmd = "cmd /c certutil -v -store -silent -user My >> " & outputFileName
objShell.Run cmd, 0, True
End Sub

'Comments: Function to dump a tree under a registry path into a file
Sub DumpRegKey(outputFileName,regpath)
On Error Resume Next
Dim cmd

Set objShell = WScript.CreateObject( "WScript.Shell" )

cmd = "cmd /c reg export " & regpath & " " & outputFileName & " /y"
objShell.Run cmd, 0, True

End Sub

Sub DumpAllKeys
On Error Resume Next
Dim NotifRegFile, RegFolder, Key

RegFolder = "Reg"

if Not FSO.FolderExists(RegFolder) Then
FSO.CreateFolder RegFolder
End If

LMDot3SvcRegFile = RegFolder + "\HKLMDot3Svc.reg.txt"
CUDot3SvcRegFile = RegFolder + "\HKCUDot3Svc.reg.txt"
LGPPolicyFile = RegFolder + "\L2GP.reg.txt"

call DumpRegKey(LMDot3SvcRegFile ,"""HKLM\SOFTWARE\Microsoft\dot3svc""")
call DumpRegKey(CUDot3SvcRegFile ,"""HKCU\SOFTWARE\Microsoft\dot3svc""")
call DumpRegKey(LGPPolicyFile ,"""HKLM\SOFTWARE\Policies\Microsoft\Windows\WiredL2\GP_Policy""")
End Sub

Sub FormatTrace(basename, tmfPath, omitLevels)
On Error Resume Next

Dim subdir
subdir = "traces\"
Dim cmd
cmd = "tracerpt """ & subdir & basename & ".etl"" -o """ & subdir & basename & ".xml"" -summary """ & subdir & basename & ".sum"" -tmf """ & tmfPath & """ -y"

Dim exitcode
exitcode = shell.Run(cmd, 0, True) ' run synchronous and hide the window
If exitcode <> 0 Then
Err.Raise exitcode, "gatherWiredInfo.FormatTrace", "tracerpt failed"
End If

FSO.DeleteFile subdir & basename & ".sum"

Const ForReading = 1
Const TristateFalse = 0
Dim ansiFile
Set ansiFile = FSO.OpenTextFile(subdir & basename & ".xml", ForReading, False, TristateFalse)

xslProcessor.Input = CreateObject("MSXML2.DOMDocument.6.0")
xslProcessor.Input.Async = False
xslProcessor.Input.ValidateOnParse = True
If Not xslProcessor.Input.LoadXml(ansiFile.ReadAll()) Then
Err.Raise xslProcessor.Input.ParseError.ErrorCode, "gatherWiredInfo.FormatTrace", basename & ".xml line " & xslProcessor.Input.ParseError.Line & " column " & xslProcessor.Input.ParseError.LinePos & ": " & xslProcessor.Input.ParseError.Reason
End If

Dim output
Set output = FSO.CreateTextFile(subdir & basename & ".txt", True, True)

xslProcessor.AddParameter "omit-levels", " " & omitLevels & " "
xslProcessor.Reset
xslProcessor.Transform

Dim buf
Do
' FSO text file doesn't implement IStream, have to flush internal buffer manually
buf = xslProcessor.Output
output.Write buf
Loop While buf <> ""

ansiFile.Close
FSO.DeleteFile subdir & basename & ".xml"
End Sub

Sub FormatEventLog(basename)
On Error Resume Next
Dim subdir
subdir = "eventlog\"
if Not FSO.FolderExists(subdir) Then
FSO.CreateFolder subdir
End If

Dim cmd

Set objShell = WScript.CreateObject( "WScript.Shell" )

cmd = "cmd /c tracerpt -y -of EVTX " + basename + ".etl -o " + subdir + basename + ".evtx"
objShell.Run cmd, 0, True

End Sub


On Error Resume Next

Dim adapterInfoFile, netInfoFile

Set FSO = CreateObject("Scripting.FileSystemObject")

Set shell = WScript.CreateObject( "WScript.Shell" )
sysdrive = shell.ExpandEnvironmentStrings("%SystemDrive%\")

configFolder = "config"
osinfoFileName = configFolder + "\osinfo.txt"
adapterinfoFileName = configFolder + "\adapterinfo.txt"
envinfoFileName = configFolder + "\envinfo.txt"

if Not FSO.FolderExists(configFolder) Then
FSO.CreateFolder configFolder
End If

call DumpAllKeys

call GetOSInfo(osinfoFileName)

Set adapterInfoFile = FSO.OpenTextFile(adapterInfoFileName, 2, True)

call GetAdapterInfo(adapterInfoFile)

adapterInfoFile.Close

call GetEnvironmentInfo(envinfoFileName)

Set stylesheet = CreateObject("MSXML2.FreeThreadedDOMDocument.6.0")
stylesheet.Async = False
stylesheet.ValidateOnParse = True
If Not stylesheet.Load(shell.ExpandEnvironmentStrings("%windir%\system32\gatherWiredInfo.xslt")) Then
Err.Raise stylesheet.ParseError.ErrorCode, "gatherWiredInfo", "gatherWiredInfo.xml line " & stylesheet.ParseError.Line & " column " & stylesheet.ParseError.LinePos & ": " & stylesheet.ParseError.Reason
End If
Set template = CreateObject("MSXML2.XSLTemplate.6.0")
template.Stylesheet = stylesheet
Set xslProcessor = template.CreateProcessor

onex_tmf = shell.ExpandEnvironmentStrings("%windir%\system32\onex.tmf")
onex_omit = "ONEX_DEV_REFCOUNTS ONEX_DEV_TRACK UTILS_LIB_TRACK UTILS_LIB_INFO WLAN_UTL_DEV_INFO WLAN_UTL_DEV_TRACK WLAN_UTL_DEV_ERROR WLAN_UTL_DEV_MEMORY Noise Perf Trace"
dot3_tmf = shell.ExpandEnvironmentStrings("%windir%\system32\dot3.tmf")
dot3_omit = "ACDLG_DEV_TRACK DEVICE_LAYER_TRACK DOT3_LOG_LEVEL_TRACE DOT3_MSM_REFCOUNTS DOT3_MSM_TRACK UTILS_LIB_TRACK UTILS_LIB_INFO Noise Perf Trace"
eaphost_tmf = shell.ExpandEnvironmentStrings("%windir%\system32\eaphost.tmf")
eaphost_omit = "ONEX_DEV_REFCOUNTS ONEX_DEV_TRACK UTILS_LIB_TRACK UTILS_LIB_INFO WLAN_UTL_DEV_INFO WLAN_UTL_DEV_TRACK WLAN_UTL_DEV_ERROR WLAN_UTL_DEV_MEMORY Noise Perf Trace"
l2nacp_omit = "L2NACP_LOG_LEVEL_TRACE"

FormatTrace "onex", onex_tmf, onex_omit
FormatTrace "dot3dlg", dot3_tmf, dot3_omit
FormatTrace "dot3gp", dot3_tmf, dot3_omit
FormatTrace "dot3msm", dot3_tmf, dot3_omit
FormatTrace "dot3svc", dot3_tmf, dot3_omit
FormatTrace "dot3gp", dot3_tmf, dot3_omit
FormatTrace "eaphost", eaphost_tmf, eaphost_omit
FormatTrace "l2nacp", onex_tmf, l2nacp_omit

FormatEventLog "WiredAutocfgEventLog"

gatherwirelessinfo.vbs

Dim FSO, shell, xslProcessor



Sub GetOSInfo(outputFileName)
On Error Resume Next
strComputer = "."
HKEY_LOCAL_MACHINE = &H80000002

Dim objReg, outputFile
Dim buildDetailNames, buildDetailRegValNames

buildDetailNames = Array("Product Name", "Version", "Build Lab", "Type")
buildDetailRegValNames = Array("ProductName", "CurrentVersion", "BuildLabEx", "CurrentType")

Set outputFile = FSO.OpenTextFile(outputFileName, 2, True)

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

outputFile.WriteLine("[Architechture/Processor Information]")
outputFile.WriteLine()
outputFile.Close
cmd = "cmd /c set processor >> " & outputFileName
shell.Run cmd, 0, True

Set outputFile = FSO.OpenTextFile(outputFileName, 8, True)

outputFile.WriteLine()
outputFile.WriteLine("[Operating System Information]")
outputFile.WriteLine()

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
for I = 0 to UBound(buildDetailNames)
objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, buildDetailRegValNames(I), info
outputFile.WriteLine(buildDetailNames(I) + " = " + info)
Next

outputFile.WriteLine()
strKeyPath = "SYSTEM\SETUP"
objReg.GetDWordValue HKEY_LOCAL_MACHINE, strKeyPath, "Upgrade", upgradeInfo
if IsNull(upgradeInfo) Then
outputFile.WriteLine("This is a clean installed system")
Else
outputFile.WriteLine("This is an upgraded system")
End If

outputFile.WriteLine(buildDetailNames(I) + " = " + info)

outputFile.WriteLine()
outputFile.WriteLine("[File versions]")
outputFile.WriteLine()

Set shell = WScript.CreateObject( "WScript.Shell" )
windir = shell.ExpandEnvironmentStrings("%windir%\system32\")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Dim FileSet
FileSet = Array("onex.dll", "l2nacp.dll", "wlanapi.dll", "wlancfg.dll", "wlanconn.dll", "wlandlg.dll", "wlanext.exe", "wlangpui.dll", "wlanhc.dll", "wlanhlp.dll", "wlaninst.dll", "wlanmm.dll", "wlanmmhc.dll", "wlanmsm.dll", "wlanpref.dll", "wlansec.dll", "wlansvc.dll", "wlanui.dll")

For Each file in FileSet
filename = windir + file
strQuery = "Select * from CIM_Datafile Where Name = '" + Replace(filename, "\", "\\") + "'"
Set fileProp = objWMIService.ExecQuery _
(strQuery)

For Each objFile in fileProp
outputFile.WriteLine(file + " " + objFile.Version)
Next
Next

call GetBatteryInfo(outputFile)
outputFile.Close

Set outputFile = FSO.OpenTextFile(outputFileName, 8, True)
outputFile.WriteLine("")
outputFile.WriteLine("[System Information]")
outputFile.WriteLine("")
outputFile.Close

'Comments: Dumping System Information using "systeminfo" command

cmd = "cmd /c systeminfo >> " & outputFileName
shell.Run cmd, 0, True

Set outputFile = FSO.OpenTextFile(outputFileName, 8, True)
outputFile.WriteLine("")
outputFile.WriteLine("[User Information]")
outputFile.WriteLine("")
outputFile.Close

cmd = "cmd /c set u >> " & outputFileName
shell.Run cmd, 0, True

End Sub

Sub GetBatteryInfo(outputFile)
On Error Resume Next
strComputer = "."
outputFile.WriteLine()
outputFile.WriteLine("[Power Information]")
outputFile.WriteLine()
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Battery")
if colItems.Count = 0 Then
outputFile.WriteLine("It is a Desktop running on AC")
Else
For Each objItem in colItems
if objItem.Availability = 2 Then
outputFile.WriteLine("Machine is running on AC Adapter")
Else
if objitem.Availability = 3 Then
outputFile.WriteLine("Machine is running on Battery")
End If
End If
Next
End If
End Sub

Sub GetAdapterInfo(outputFile)
On Error Resume Next
Dim adapters, objReg
Dim adapterDetailNames, adapterDetailRegValNames

adapterDetailNames = Array("Driver Description", "Adapter Guid", "Hardware ID", "Driver Date", "Driver Version", "Driver Provider")
adapterDetailRegValNames = Array("DriverDesc", "NetCfgInstanceId", "MatchingDeviceId", "DriverDate", "DriverVersion", "ProviderName")

IHVDetailNames = Array("ExtensibilityDLL", "UIExtensibilityCLSID", "GroupName", "DiagnosticsID")
IHVDetailRegValNames = Array("ExtensibilityDLL", "UIExtensibilityCLSID", "GroupName", "DiagnosticsID")

HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")


strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"

objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, adapterSet

For Each adapter In adapterSet
If StrComp("Properties", adapter) Then
fullstrKeyPath = strKeyPath + adapter
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, fullstrKeyPath, "*IfType", ifType
If ifType = 71 Then
for I = 0 to UBound(adapterDetailNames)
objReg.GetStringValue HKEY_LOCAL_MACHINE, fullstrKeyPath, adapterDetailRegValNames(I), info
outputFile.WriteLine(adapterDetailNames(I) + " = " + info)
Next

ihvKeyPath = fullstrKeyPath + "\Ndi\IHVExtensions"
For J = 0 to UBound(IHVDetailNames)
objReg.GetStringValue HKEY_LOCAL_MACHINE, ihvKeyPath, IHVDetailRegValNames(J), ihvInfo
outputFile.WriteLine(IHVDetailNames(J) + " = " + ihvInfo)
Next
objReg.GetDWordValue HKEY_LOCAL_MACHINE, ihvKeyPath, "AdapterOUI", ihvInfo
outputFile.WriteLine("AdapterOUI = " + CSTR(ihvInfo))
outputFile.WriteLine()
End If
End If
Next

Set objShell = WScript.CreateObject( "WScript.Shell" )

tempFile = "tempfile.txt"
cmd = "cmd /c tasklist > " & tempFile
objShell.Run cmd, 0, True

Set objTextFile = FSO.OpenTextFile(tempFile, 1)
strIHVOutput = objTextFile.ReadAll()

Set regEx = New RegExp
regEx.Pattern = "^wlanext.exe[\s|a-z|A-Z|\d]*"
regEx.Multiline = True
regEx.IgnoreCase = True
regEx.Global = True

Set Matches = regEx.Execute(strIHVOutput)

For Each match in Matches
outputFile.WriteLine(match.Value)
Next

End Sub

Sub GetEnvironmentInfo(outputFileName)
On Error Resume Next
Dim envInfoFile

Set objShell = WScript.CreateObject( "WScript.Shell" )

cmd = "cmd /c netsh wlan show all > " & outputFileName
objShell.Run cmd, 0, True

cmd = "cmd /c ipconfig /all >> " & outputFileName
objShell.Run cmd, 0, True

Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
envInfoFile.WriteLine("")
envInfoFile.WriteLine("Machine certificates...")
envInfoFile.WriteLine("")
envInfoFile.Close

cmd = "cmd /c certutil -v -store -silent My >> " & outputFileName
objShell.Run cmd, 0, True

Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
envInfoFile.WriteLine("")
envInfoFile.WriteLine("User certificates...")
envInfoFile.WriteLine("")
envInfoFile.Close

cmd = "cmd /c certutil -v -store -silent -user My >> " & outputFileName
objShell.Run cmd, 0, True
End Sub

Sub FormatTrace(basename, tmfPath, omitLevels, options)
On Error Resume Next
Dim subdir
subdir = "traces\"
Dim cmd
cmd = "tracerpt """ & subdir & basename & ".etl"" -o """ & subdir & basename & ".xml"" -summary """ & subdir & basename & ".sum"" -tmf """ & tmfPath & """ -y"

Dim exitcode
exitcode = shell.Run(cmd, 0, True) ' run synchronous and hide the window
If exitcode <> 0 Then
Err.Raise exitcode, "gatherWirelessInfo.FormatTrace", "tracerpt failed"
End If

FSO.DeleteFile subdir & basename & ".sum"

Const ForReading = 1
Const TristateFalse = 0
Dim ansiFile
Set ansiFile = FSO.OpenTextFile(subdir & basename & ".xml", ForReading, False, TristateFalse)

xslProcessor.Input = CreateObject("MSXML2.DOMDocument.6.0")
xslProcessor.Input.Async = False
xslProcessor.Input.ValidateOnParse = True
If Not xslProcessor.Input.LoadXml(ansiFile.ReadAll()) Then
Err.Raise xslProcessor.Input.ParseError.ErrorCode, "gatherWirelessInfo.FormatTrace", basename & ".xml line " & xslProcessor.Input.ParseError.Line & " column " & xslProcessor.Input.ParseError.LinePos & ": " & xslProcessor.Input.ParseError.Reason
End If

Dim output
Set output = FSO.CreateTextFile(subdir & basename & ".txt", True, True)

xslProcessor.AddParameter "omit-levels", " " & omitLevels & " "
xslProcessor.AddParameter "options", " " & options & " "
xslProcessor.Reset
xslProcessor.Transform

Dim buf
Do
' FSO text file doesn't implement IStream, have to flush internal buffer manually
buf = xslProcessor.Output
output.Write buf
Loop While buf <> ""

ansiFile.Close
FSO.DeleteFile subdir & basename & ".xml"
End Sub

'Comments: Function to dump a tree under a registry path into a file
Sub DumpRegKey(outputFileName,regpath)
On Error Resume Next
Dim cmd

Set objShell = WScript.CreateObject( "WScript.Shell" )

cmd = "cmd /c reg export " & regpath & " " & outputFileName & " /y"
objShell.Run cmd, 0, True

End Sub

Sub DumpAllKeys
On Error Resume Next
Dim NotifRegFile, RegFolder, Key

RegFolder = "Reg"

if Not FSO.FolderExists(RegFolder) Then
FSO.CreateFolder RegFolder
End If

AllCredRegFile = RegFolder + "\AllCred.reg.txt"
AllCredFilterFile = RegFolder + "\AllCredFilter.reg.txt"
CredRegFileA = RegFolder + "\{07AA0886-CC8D-4e19-A410-1C75AF686E62}.reg.txt"
CredRegFileB = RegFolder + "\{33c86cd6-705f-4ba1-9adb-67070b837775}.reg.txt"
CredRegFileC = RegFolder + "\{edd749de-2ef1-4a80-98d1-81f20e6df58e}.reg.txt"
APIPermRegFile = RegFolder + "\APIPerm.reg.txt"
NotifRegFile = RegFolder + "\Notif.reg.txt"
GPTRegFile = RegFolder + "\GPT.reg.txt"
CUWlanSvcRegFile = RegFolder + "\HKCUWlanSvc.reg.txt"
LMWlanSvcRegFile = RegFolder + "\HKLMWlanSvc.reg.txt"


call DumpRegKey(NotifRegFile ,"""HKLM\SYSTEM\CurrentControlSet\Control\Winlogon\Notifications""")
call DumpRegKey(AllCredRegFile ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Providers""")
call DumpRegKey(AllCredFilterFile,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Provider Filters""")
call DumpRegKey(CredRegFileA ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Providers\{07AA0886-CC8D-4e19-A410-1C75AF686E62}""")
call DumpRegKey(CredRegFileB ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Providers\{33c86cd6-705f-4ba1-9adb-67070b837775}""")
call DumpRegKey(CredRegFileC ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Provider Filters\{edd749de-2ef1-4a80-98d1-81f20e6df58e}""")
call DumpRegKey(APIPermRegFile ,"""HKLM\SYSTEM\CurrentControlSet\Services\Wlansvc\Parameters\WlanAPIPermissions""")

call DumpRegKey(GPTRegFile , """HKLM\SOFTWARE\Policies\Microsoft\Windows\Wireless\GPTWirelessPolicy""")
call DumpRegKey(CUWlanSvcRegFile ,"""HKCU\SOFTWARE\Microsoft\Wlansvc""")
call DumpRegKey(LMWlanSvcRegFile ,"""HKLM\SOFTWARE\Microsoft\Wlansvc""")
End Sub

Sub FormatEventLog(basename)
On Error Resume Next
Dim subdir
subdir = "eventlog\"
Dim cmd

Set objShell = WScript.CreateObject( "WScript.Shell" )

cmd = "cmd /c tracerpt -y -of EVTX " + basename + ".etl -o " + subdir + basename + ".evtx"
objShell.Run cmd, 0, True

End Sub
On Error Resume Next

Dim adapterInfoFile, netInfoFile

Set FSO = CreateObject("Scripting.FileSystemObject")
Set shell = WScript.CreateObject( "WScript.Shell" )
sysdrive = shell.ExpandEnvironmentStrings("%SystemDrive%\")

configFolder = "config"
osinfoFileName = configFolder + "\osinfo.txt"
adapterinfoFileName = configFolder + "\adapterinfo.txt"
envinfoFileName = configFolder + "\envinfo.txt"
eventlogFolder = "eventlog"

if Not FSO.FolderExists(configFolder) Then
FSO.CreateFolder configFolder
End If

if Not FSO.FolderExists(eventlogFolder) Then
FSO.CreateFolder eventlogFolder
End If

call DumpAllKeys

call GetOSInfo(osinfoFileName)

Set adapterInfoFile = FSO.OpenTextFile(adapterInfoFileName, 2, True)

call GetAdapterInfo(adapterInfoFile)

adapterInfoFile.Close

call GetEnvironmentInfo(envinfoFileName)

Set stylesheet = CreateObject("MSXML2.FreeThreadedDOMDocument.6.0")
stylesheet.Async = False
stylesheet.ValidateOnParse = True
If Not stylesheet.Load(shell.ExpandEnvironmentStrings("%windir%\system32\gatherWirelessInfo.xslt")) Then
Err.Raise stylesheet.ParseError.ErrorCode, "gatherWirelessInfo", "gatherWirelessInfo.xml line " & stylesheet.ParseError.Line & " column " & stylesheet.ParseError.LinePos & ": " & stylesheet.ParseError.Reason
End If
Set template = CreateObject("MSXML2.XSLTemplate.6.0")
template.Stylesheet = stylesheet
Set xslProcessor = template.CreateProcessor

onex_tmf = shell.ExpandEnvironmentStrings("%windir%\system32\onex.tmf")
onex_omit = "ONEX_DEV_REFCOUNTS ONEX_DEV_TRACK UTILS_LIB_TRACK UTILS_LIB_INFO WLAN_UTL_DEV_INFO WLAN_UTL_DEV_TRACK WLAN_UTL_DEV_ERROR WLAN_UTL_DEV_MEMORY Noise Perf Trace"
wlan_tmf = shell.ExpandEnvironmentStrings("%windir%\system32\wlan.tmf")
wlan_omit = "DOT11_LOG_LEVEL_TRACE MSMSEC_DEV_TRACK MSMSEC_DEV_VERBOSE UTILS_LIB_TRACK UTILS_LIB_INFO WLAN_UTL_DEV_TRACK WLAN_UTL_DEV_MEMORY Noise Perf Trace"
nwifi_omit = "DOT11_LOG_LEVEL_INFO DOT11_LOG_LEVEL_TRACE DOT11_LOG_LEVEL_NOISE"
eaphost_tmf = shell.ExpandEnvironmentStrings("%windir%\system32\eaphost.tmf")
eaphost_omit = "ONEX_DEV_REFCOUNTS ONEX_DEV_TRACK UTILS_LIB_TRACK UTILS_LIB_INFO WLAN_UTL_DEV_INFO WLAN_UTL_DEV_TRACK WLAN_UTL_DEV_ERROR WLAN_UTL_DEV_MEMORY Noise Perf Trace"
l2nacp_omit = "L2NACP_LOG_LEVEL_TRACE"
FormatTrace "onex", onex_tmf, onex_omit, ""
FormatTrace "msmsec", wlan_tmf, wlan_omit, ""
FormatTrace "nwifi", wlan_tmf, nwifi_omit, ""
FormatTrace "wlan", wlan_tmf, wlan_omit, ""
FormatTrace "l2nacp", onex_tmf, l2nacp_omit, ""
FormatTrace "ext", wlan_tmf, wlan_omit, "include-pid"
FormatTrace "diaghc", wlan_tmf, wlan_omit, ""
FormatTrace "wlangp", wlan_tmf, wlan_omit, ""
FormatTrace "eaphost", eaphost_tmf, eaphost_omit, ""

FormatEventLog "diagnosticsEventLog"
FormatEventLog "WirelessAutocfgEventLog"

[ramaflore]

My graphic resolution: 1280x800

No changes whatever the resolution settled up.

As you told me before, with dxdiag, on the main screen. (see my screenshot)

[ramaflore]

I already had this KSod with Vista SP1. In my case, it's not specifically to Vista SP2.

You said: "You only have 1 GB and that is not enough to run Vista SP2 especially when the Video will be sharing it." But as you know Black Screen occurred even just before 'Welcome' dekstop screen (before any programs were loaded) and also when closing accounts or switching. Since I uninstalled the requested programs, I've no more programs launched at start up.

By the way, let me know when I can install again my programs.

One of the other techs has looked at your speccy results and he tells me that the problem is likely not enough RAM. You only have 1 GB and that is not enough to run Vista SP2 especially when the Video will be sharing it. (I'm kicking myself for not seeing that. I have tried to run Vista SP2 on 1 GB and it's absolutely awful.) 1 GB may have been enough when Vista first came out but each Service Pack seems to have increased the need for RAM. Running less than 2 GB will cause an extremely slow boot. You need to get two: 1024MB-533MHz DDR2-533 PC2-4200, 200p SODIMM, 1.8

Ron