BUG M$ ? can you help me for this script ? 
Author Message
 BUG M$ ? can you help me for this script ?

Hi,
(sorry for my english langage...)

 I have a problem...


differents users
with a script.

This is my vbs script for all modify in a registry base ; It's OK but NOT
FOR A OUTLOOK SIGNATURE !!!

****************************************************************************
**********************************
Err.Clear
On Error Resume Next

Sub Acceptation

' ========================================================================
' =     sauvegarde complete de la base de registre (format Unicode)      =
' =      permet une restauration eventuelle de la base d'origine         =
' ========================================================================

Dim regkey , regtmp
Regkey = ""
Regtmp = ws.environment ("process") ("temp") & "\sauvegarde.tmp "
'ws.run "regedit /e " & Regtmp & Regkey,,true

'
============================================================================
===========
' =             creation des fichiers temporaires (format ASCII compatible
NT4/2000/XP) =
'
============================================================================
===========

dim Reg1 , Regtmp1 , Regtmp1bis
dim Reg2 , Regtmp2 , Regtmp2bis

regkey = "HKEY_CURRENT_USER"
regtmp1 = ws.environment ("process") ("temp") & "\reg1.tmp "
regtmp1bis = ws.environment ("process") ("temp") & "\reg1bis.tmp "
ws.run "regedit /e:a " & regtmp1 & regkey,,true

regkey = "HKEY_USERS"
regtmp2 = ws.environment ("process") ("temp") & "\reg2.tmp "
regtmp2bis = ws.environment ("process") ("temp") & "\reg2bis.tmp "
ws.run "regedit /e:a " & regtmp2 & regkey,,true

' ================================================================
' =            modifications dans les fichiers :                 =
' =     les adresses contenant .wanadoo.fr seront renomes        =
' =               en .xxxxx                                       =
' ================================================================

Dim RegFile,RegLine,ValList

' ========================================
' = Modification dans le premier fichier =
' ========================================

' fichier ouvert en lecture
Set ObjFileRead = objFSO.OpenTextFile(regtmp1)
' fichier ouvert en criture
Set ObjFileWrite = objFSO.OpenTextFile(regtmp1bis,2,1,0)

'test si les fichiers sont prets tre utilises :
If Err.Number Then
 msgbox("les fichiers ne sont pas prets tre utiliss")
 Exit Sub
End If

' ****************ici
Dim indice , tableau(4000) , nbmodif , t , premier
'indice 'indice du tableau
'tableau 'tableau contenant les informations d'une seule cl
'nbmodif ' nombre de modifications effectues dans une cl
't ' indice de boucle
'premier = 0 'premier enregistrement dans le fichier
premier = 0
Do While Not ObjFileRead.AtEndOfStream

RegLine=ObjFileRead.ReadLine

If left(RegLine,19)="[HKEY_CURRENT_USER\" Then
indice = 0
nbmodif = 0

 Do While RegLine <> ""
  indice = indice + 1

  If InStr(1,RegLine,".wanadoo.fr",1) <> 0 Then
   'msgbox ("modif!")
   nbmodif = nbmodif + 1
   RegLine = Replace(RegLine,".wanadoo.fr",".xxxxx")
  End If
  tableau(indice) = RegLine

  RegLine=ObjFileRead.ReadLine

 Loop

 If nbmodif <> 0 Then 'enregistrement du tableau
  If premier = 0 Then
   ObjFileWrite.WriteLine "REGEDIT4"
   ObjFileWrite.WriteLine ""
   premier = 1
  End If
  for t = 1 to indice
   ObjFileWrite.Write tableau(t)
  Next
  ObjFileWrite.WriteLine ""
 End If
End If
Loop

objFileRead.Close
objFileWrite.Close
' ===============================================
' = Fin de modification dans le premier fichier =
' ===============================================

' ======================================================
' = importation dans le registre des elements modifis =
' ======================================================
'ws.run "regedit /e:a " & regtmp1 & regkey,,true

Set Ws = Nothing

End Sub

Set Ws = WScript.CreateObject("WScript.Shell")
Set objfso = CreateObject ("Scripting.FileSystemObject")

Dim accept
Accept = MsgBox ("Passage .xxxxx ... Ce programme permet de modifier les
adresses intranet de cette machine.

Seront modifier les adresses des comptes de messagerie, les liens des sites
web, les adresses du (ou des) compte(s) de groupes de discussions.
Continuer? ", 65, "Confirmation")

If Accept = 1 Then
 Acceptation
End If

If Err.Number <> 0 Then
      wscript.echo "Attention : erreur(s) dtecte(s), les modifications
devront tre faites manuellement !"
End If
****************************************************************************
************************************

As that does not function, I tested manually and i found something of bizard
 (bug de M$ ?) :
in  registry editor, we export signature in a reg file :

begin file reg*************************************************
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Identities\{1FC1A605-2F82-4496-AD73-2778AF64BF9C}\Softwar
e\Microsoft\Outlook

Express\5.0\signatures]
"Default Signature"="00000000"

[HKEY_CURRENT_USER\Identities\{1FC1A605-2F82-4496-AD73-2778AF64BF9C}\Softwar
e\Microsoft\Outlook

Express\5.0\signatures\00000000]
"name"="Signature #1"
"type"=dword:00000001
"text"="=====ceci
est
ma
espace
en fin signature====="
"file"=""
End file reg **************************************************

If I modify manually this file and I import this with registry editor, not
function !!!
perhaps because there are several lines. (you can test !)
(I understand now why i have problem with my script !!! Grrrrrr!!!)

Can you help me  ?



Sat, 16 Jul 2005 23:27:13 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. .toFixed() bug in MS JScript script engine

2. Bug in Remote Scripting Caused by Javascript bug?

3. Help with MS Script Editor

4. Help - VB Script call MS Access

5. Script MS-Access Import of MS-Excel?

6. Help on scripting with MS Word 2000!?!

7. Help installing MS Scripting encoder

8. Beta bug (to MS team)

9. Bug in MS download package?

10. bug in the MS JScript engine?

11. MS System Administration Scripting Guide and Script Repository

12. Cannot Start debugging .vbs-Script in MS Script Debugger

 

 
Powered by phpBB® Forum Software