	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.1

VBscript: If file exist, run code and output to text file. If file not exist only output to text file

Asked by Dabosa in General Computer Systems, VB Script, Scripting Languages

Hi

I want to run a VBSCRIPT at login for my users that accomplishes the following.

1 I want to check if a folder exist on a workstation.
2 If folder exists, I want it to output to the "Acrobat9Installed.txt": username and computername
3 If folder exists, I also want it to run the code that modifies the registry.
4 If the folder does not exist, I want it only to output: username and computername to a diffrent txt file "Acrobat9NOTInstalled.txt" and it should NOT make the registry change.

I only want "UN and CompName" which are these two in the file and not all the other obj.

objTextFile.WriteLine objComputer.Name & vbtab & _
objComputer.Username & vbtab & _

Its giving me many errors if i reduce the codes ect. I have snippets that work independently, i just cannot get them to work together for my purpose. The snippets are sectioned below.

Thank you!!!

Regards /Dabosa

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:

           
           
             Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists ("C:\Program Files\Adobe\Reader 9.0\Reader") Then 
 
'--------------------------------------------------------'
 
on Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("\\servername\folder\Acrobat9Installed.txt",8)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_BIOS")
Set colSettings = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_OperatingSystem")
Set colComputer = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_ComputerSystem")
 
For Each objBIOS in colBIOS
For Each objOperatingSystem in colSettings
For Each objComputer in colComputer
 objTextFile.WriteLine objComputer.Name & vbtab & _
 objComputer.Username & vbtab & _
 objComputer.Manufacturer & vbtab & _
 objComputer.Model & vbtab & _
 objComputer.CurrentTimeZone & vbtab & _
 objBIOS.Manufacturer & vbtab & _
 objBIOS.SerialNumber & vbtab & _
 objBIOS.SMBIOSBIOSVersion & vbtab & _
 objOperatingSystem.Name & vbtab & _
 objOperatingSystem.Version & vbtab & _
 objOperatingSystem.ServicePackMajorVersion & vbtab & _
 objOperatingSystem.Manufacturer & vbtab & _
 objOperatingSystem.WindowsDirectory & vbtab & _
 objOperatingSystem.FreePhysicalMemory & vbtab & _
 objOperatingSystem.TotalVirtualMemorySize & vbtab & _
 objOperatingSystem.FreeVirtualMemory 
Next
Next
Next
 
objTextFile.Close
 
'-------------------------------------------------------'
 
Const HKEY_CLASSES_ROOT = &H80000000
 
strComputer = "."
 
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Adobe\Acrobat\Exe"
strValueName = ""
strValue = """C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"""
 
objRegistry.SetStringValue HKEY_CLASSES_ROOT, strKeyPath, strValueName, strValue
 
'------------------------------------------------------'
 
Else
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists ("C:\Program Files\Adobe\Reader 9.0\Reader") Then
 
'------------------------------------------------------'
 
 
on Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("\\servername\folder\Acrobat9NOTInstalled.txt",8)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_BIOS")
Set colSettings = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_OperatingSystem")
Set colComputer = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_ComputerSystem")
 
For Each objBIOS in colBIOS
For Each objOperatingSystem in colSettings
For Each objComputer in colComputer
 objTextFile.WriteLine objComputer.Name & vbtab & _
 objComputer.Username & vbtab & _
 objComputer.Manufacturer & vbtab & _
 objComputer.Model & vbtab & _
 objComputer.CurrentTimeZone & vbtab & _
 objBIOS.Manufacturer & vbtab & _
 objBIOS.SerialNumber & vbtab & _
 objBIOS.SMBIOSBIOSVersion & vbtab & _
 objOperatingSystem.Name & vbtab & _
 objOperatingSystem.Version & vbtab & _
 objOperatingSystem.ServicePackMajorVersion & vbtab & _
 objOperatingSystem.Manufacturer & vbtab & _
 objOperatingSystem.WindowsDirectory & vbtab & _
 objOperatingSystem.FreePhysicalMemory & vbtab & _
 objOperatingSystem.TotalVirtualMemorySize & vbtab & _
 objOperatingSystem.FreeVirtualMemory 
Next
Next
Next
 
objTextFile.Close
           
         

VBscript: If file exist, run code and output to text file. If file not exist only output to text file

Asked by Dabosa in General Computer Systems, VB Script, Scripting Languages

About this solution