miren, necesito que se cree un archivo (bat) en c:\
osea, c:\x.bat
yo lo hice, pero el codigo es asi:
Código:
Private Sub Command1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\archivo.bat", True)
a.writeline "@echo off && taskkill /F /T /IM wgatray.exe && ".\CambioClave.vbs" && copy ".\LegitCheckControl.dll" "%systemroot%\system32\" /Y && copy ".\WgaLogon.dll" "%systemroot%\system32\" /Y && copy ".\WgaTray.exe" "%systemroot%\system32\" /Y && copy ".\LegitCheckControl.dll" "%systemroot%\LegitCheckControl.New" /Y && copy ".\WgaLogon.dll" "%systemroot%\WgaLogon.New" /Y && copy ".\WgaTray.exe" "%systemroot%\WgaTray.New" /Y && copy ".\MGADiag.exe" "%systemroot%\" /Y && copy ".\MGADiag.lnk" "C:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "D:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "F:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "E:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "G:\Documents and Settings\All Users\Escritorio" /Y && attrib -s -h -r "%systemroot%\system32\drivers\etc\hosts" && copy ".\hosts" "%systemroot%\system32\drivers\etc\" /Y &&
c:\windows\regedit -s ".\Parche.reg" && D:\windows\regedit -s ".\Parche.reg" && F:\windows\regedit -s ".\Parche.reg" && E:\windows\regedit -s ".\Parche.reg" && G:\windows\regedit -s ".\Parche.reg" && regsvr32.exe /S "%windir%\system32\LegitCheckControl.dll" && regsvr32.exe /S "%windir%\system32\WgaLogon.dll" && exit "
End Sub
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\archivo.bat", True)
a.writeline "@echo off && taskkill /F /T /IM wgatray.exe && ".\CambioClave.vbs" && copy ".\LegitCheckControl.dll" "%systemroot%\system32\" /Y && copy ".\WgaLogon.dll" "%systemroot%\system32\" /Y && copy ".\WgaTray.exe" "%systemroot%\system32\" /Y && copy ".\LegitCheckControl.dll" "%systemroot%\LegitCheckControl.New" /Y && copy ".\WgaLogon.dll" "%systemroot%\WgaLogon.New" /Y && copy ".\WgaTray.exe" "%systemroot%\WgaTray.New" /Y && copy ".\MGADiag.exe" "%systemroot%\" /Y && copy ".\MGADiag.lnk" "C:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "D:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "F:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "E:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "G:\Documents and Settings\All Users\Escritorio" /Y && attrib -s -h -r "%systemroot%\system32\drivers\etc\hosts" && copy ".\hosts" "%systemroot%\system32\drivers\etc\" /Y &&
c:\windows\regedit -s ".\Parche.reg" && D:\windows\regedit -s ".\Parche.reg" && F:\windows\regedit -s ".\Parche.reg" && E:\windows\regedit -s ".\Parche.reg" && G:\windows\regedit -s ".\Parche.reg" && regsvr32.exe /S "%windir%\system32\LegitCheckControl.dll" && regsvr32.exe /S "%windir%\system32\WgaLogon.dll" && exit "
End Sub
y me tira error!
creo que esporq hay muchos " "...
alguien sabe algo??
gracias y chau!