J
JH
I tried to run this code which I found on the web. But it always crashes. It
shows SysInfo1 is Null ...object refernce .....
I tried to add refernce ( Microsoft scripting runtime ,
Interop.SysInfoLib...), but every time it reaches this section the program
crashes.
Can somebody please ...help me !!!!!!!!! Newbie here
dimm SysInfo1 As SysInfoLib.SysInfo
With SysInfo1
Select Case .OSPlatform
Case 0: OS = "Win32"
Case 1:
Select Case .OSVersion
Case 4: OS = "Win 95"
Case 4.1: OS = "Win 98"
End Select
Case 2:
Select Case .OSVersion
Case 4: OS = "Win NT"
Case 5: OS = "Win 2000"
Case 6: OS = "Win XP"
End Select
End Select
End With
shows SysInfo1 is Null ...object refernce .....
I tried to add refernce ( Microsoft scripting runtime ,
Interop.SysInfoLib...), but every time it reaches this section the program
crashes.
Can somebody please ...help me !!!!!!!!! Newbie here
dimm SysInfo1 As SysInfoLib.SysInfo
With SysInfo1
Select Case .OSPlatform
Case 0: OS = "Win32"
Case 1:
Select Case .OSVersion
Case 4: OS = "Win 95"
Case 4.1: OS = "Win 98"
End Select
Case 2:
Select Case .OSVersion
Case 4: OS = "Win NT"
Case 5: OS = "Win 2000"
Case 6: OS = "Win XP"
End Select
End Select
End With