Solved

Need VB Script to automate file and registry edit

Posted on 2009-04-01
7
262 Views
Last Modified: 2012-05-06
I need a VB Script to do the below:

Write the following to the file name appsrv.ini within the below directory:

Compress=Off

EncryptionLevelSession=EncRC5-0

C:\Program Files\Citrix\ICA Client\

I would like for it to add those entries to the ini during a startup script I will create.

It also needs to create the following registry entry:

HKLM\Software\Citrix\ICA Client\Engine\Configuration\Advanced\Canonicalization\TCP/IP

Add new REG_SZ

String Value  Name:Compress

Data:Compress  

0
Comment
Question by:bbanis2k
  • 4
  • 3
7 Comments
 
LVL 67

Expert Comment

by:sirbounty
ID: 24040408
Try this...
Const iniName = "appsrv.ini"
Const iniLocation = "C:\Program Files\Citrix\ICA Client\"
Const ForAppending = 8   
Const HKLM = &H80000002
 
'Create/update file
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFile
If Not objFSO.FolderExists(iniLocation) Then wscript.quit
If objFSO.FileExists (iniLocation & iniName) Then
  Set objFile = objFSO.OpenTextFile(iniLocation & iniName, ForAppending)
Else
  Set objFile = objFSO.CreateTextFile(iniLocation & iniName)
End If
 
objFile.WriteLine "Compress=Off"
objFile.WriteLine "EncryptionLevelSession=EncRC5-0"
objFile.Close
Set objFile = Nothing
 
'Create registry entry
Dim oReg : Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "Software\Citrix\ICA Client\Engine\Configuration\Advanced\Canonicalization\TCP/IP"
strValueName = "Compress"
strValue = "Compress"
oReg.SetStringValue HKLM,strKeyPath,strValueName,strValue
 
Set oReg = Nothing
 

Open in new window

0
 

Author Comment

by:bbanis2k
ID: 24040727
Can you configure it to resume on error and then exit without output to the client computer?

0
 
LVL 67

Expert Comment

by:sirbounty
ID: 24040954
I don't follow?
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:bbanis2k
ID: 24040975
What happens if it does not see that directory or has an issue reading the registry?
0
 
LVL 67

Accepted Solution

by:
sirbounty earned 500 total points
ID: 24041002
If the folder doesn't exist, it quits:

If Not objFSO.FolderExists(iniLocation) Then wscript.quit

The following will continue on registry update error...
Const iniName = "appsrv.ini"
Const iniLocation = "C:\Program Files\Citrix\ICA Client\"
Const ForAppending = 8   
Const HKLM = &H80000002
 
'Create/update file
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFile
If Not objFSO.FolderExists(iniLocation) Then wscript.quit
If objFSO.FileExists (iniLocation & iniName) Then
  Set objFile = objFSO.OpenTextFile(iniLocation & iniName, ForAppending)
Else
  Set objFile = objFSO.CreateTextFile(iniLocation & iniName)
End If
 
objFile.WriteLine "Compress=Off"
objFile.WriteLine "EncryptionLevelSession=EncRC5-0"
objFile.Close
Set objFile = Nothing
 
'Create registry entry
On Error Resume Next
Dim oReg : Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "Software\Citrix\ICA Client\Engine\Configuration\Advanced\Canonicalization\TCP/IP"
strValueName = "Compress"
strValue = "Compress"
oReg.SetStringValue HKLM,strKeyPath,strValueName,strValue
 
Set oReg = Nothing
 

Open in new window

0
 

Author Closing Comment

by:bbanis2k
ID: 31565356
This works great!
0
 
LVL 67

Expert Comment

by:sirbounty
ID: 24041253
Glad I could help - thanx for the grade! :^)
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I met Paul Devereux (@pdevereux) today when I responded to his tweet asking “Anybody know how to automate adding files from disk to a folder in #outlook  ?”.  I replied back and told Paul that using automation, in this case scripting, to add files t…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.

713 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question