Mensajes

Acavo de dejar el mensaje... aver si ellos conosen la respuesta que me tiene loco de la cabeza.
No consigo informacion al respecto.

Hola gente.
Estoy usando ese codigo para un pequeño proyecto personal....
alomejor ustedes saveis a que se deve este problema.

Me tira el error de que falta el objeto wscript

Tengo un codigo vbs y lo estoy ejecutando desde vb 2005 express con

MSScriptControl.ScriptControlClass

Me tira el error de que falta el objeto wscript

pero si lo ejecuto el vbs sin vb.net si funciona asi que creo que es cosa del vb 2005

Saveis que es lo que pasa?.
Por que no reconose a wscript?

Nada.
Lo solucione al final guardando los cambios que se producen en el regedit al activar javascript a pulso y luego agregue esas entradas en vb.net

Ya esta todo solucionado. y si deja escribir en el disco , pero hay que darle permiso al servidor que quiere escribir en tu disco.

Muchas gracias

Se da por cerrado. Gracias a todos.

Tengo este codigo y lo estoy ejecutando desde vb 2005 express.

Me tirava el error de que faltaba el objeto wscript asi que agregue esta linea:

Código [Seleccionar] Expandir

Set Wscript = CreateObject("WScript.SHELL")

Pero ahora me tira otro error en esta linea

Código [Seleccionar] Expandir


wscript.scriptfullname


Al pareser no es miembro de wscript, Saveis que es lo que pasa?.
Por que no reconose a wscript?
Que tipo de objeto debo crear?

Código [Seleccionar] Expandir

'RunAs Admin!
Set Wscript = CreateObject("WScript.SHELL")

If IsAdmin() = False Then

 Set objShell = CreateObject("Shell.Application")
 objShell.ShellExecute "wscript.exe", Chr(34) & _
 Wscript.ScriptFullName & Chr(34), "", "runas", 1
 Wscript.Quit 0
msgbox()
End If


'Remove any previous instances and install a fresh version
'Run("cscript uninstall_tap.vbs uac")
driver = ScriptPath() & "Windows_" & GetOSArchitecture()
driverhelper = Chr(34) & driver & "/driverhelper.exe" & Chr(34)
inf = Chr(34) & driver & "/IpopTap.inf" & Chr(34)
Run(driverhelper & " Install " & inf & " IpopTap")

res = Run(driverhelper & " Status IpopTap")
'Make sure the device is installed and that it has the correct name!
If ChangeNetworkName(res, "tapipop") = 0 Then
 Wscript.Echo "Installation Successful!"
Else
 Wscript.Echo "Installation Failed!  Please uninstall and then reinstall again."
End If

'Changes the Network Name given a PnpInstanceID
'Note:  Windows does a poor job of cleanup and often times, uninstalled devices will have
'  the PnpInstanceID of running devices.  Because of this, all devices with a given
'  PnpInstanceId will be renamed
Function ChangeNetworkName(pnpInstanceID, name)
 Const HKEY_LOCAL_MACHINE = &H80000002
 Const NETWORK_CONNECTIONS = "SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"
 Dim oReg, path
 Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
 oReg.EnumKey HKEY_LOCAL_MACHINE, NETWORK_CONNECTIONS, arrSubKeys
 Set WshShell = WScript.CreateObject("WScript.Shell")
 ChangeNetworkName = 1
 For Each subkey In arrSubKeys
   path = "HKLM\" & NETWORK_CONNECTIONS & "\" & subkey & "\Connection\"
   'Turn error reporting off
   On Error Goto 0
   On Error Resume Next
   id = wshShell.RegRead(path & "PnpInstanceID")
   If id = pnpInstanceID Then
     wshShell.RegWrite path & "Name", name
     ChangeNetworkName = 0
     Exit For
   End If
 Next
End Function

'Executes the app and returns the first line from StdOut
Function Run(app)
 Dim oExec, WshShell
 Set WshShell = CreateObject("Wscript.Shell")
 Set oExec = WshShell.Exec(app)

 Do While oExec.Status = 0
 Loop
 Run = OExec.StdOut.ReadLine()
End Function

'Returns 32 or 64 for the OS Architecture
Function GetOSArchitecture()
 GetOSArchitecture = "64"
 On Error Goto 0
 On Error Resume Next
 Set WshShell = WScript.CreateObject("WScript.Shell")
 Const KEY = "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE"
 arch =  WshShell.RegRead(KEY)
 If arch = "x86" Then
   GetOSArchitecture = "32"
 End If
End Function

Function ScriptPath()
 ScriptPath = Left(WScript.ScriptFullName, _
   Len(WScript.ScriptFullName) - Len(WScript.ScriptName))
End Function

Function IsAdmin()
 IF Instr(1, "XP", Run("%comspec% /c ver | findstr XP"), 0) = 0 Then
   IsAdmin = True
   Exit Function
 End If

 'Check for elevated
 IsAdmin = RunCleanExit("%comspec% /c whoami /all | findstr /I /C:""S-1-16-12288""")
End Function

Function RunCleanExit(app)
 RunCleanExit = False
 Set oShell = CreateObject("WScript.Shell")
 Set oExec = oShell.Exec(app)

 Do While oExec.Status = 0
 Loop
 If oExec.ExitCode = 0 Then
   RunCleanExit = True
 End If
End Function


Alguien save como activar javascript mediante codigo?.
O agregar mi pagina a sitios de confianza? o otra forma de crear un archivo en el cliente sin que pida permiso?.

Sugerencias...

Al final lo solucione con un

Código [Seleccionar] Expandir


my.setting.textbox1 = textbox1.text
my.settings.save()

Hola gente.
Estoy intentando guardar en la configuracion de la aplicacion un textbox, pero nada de nada.
Con el checkbox si lo consegui de esta forma.

Código [Seleccionar] Expandir


my.settings.checkbox = my.checkbox1.checked


y lo cargo en el load del formulario asi

Código [Seleccionar] Expandir


my.checkbox1.checked = my.settings.checkbox

Todo esto declarando my.settings.checkbox como boolean.

El problema ahora es el textbox, lo declaro como string y guardo la configuracion asi:

Código [Seleccionar] Expandir


my.settings.textbox1 = my.textbox1.text


Y lo cargo al inicio asi:

Código [Seleccionar] Expandir


my.textbox1.text = my.settings.textbox1


Pero nada de nada. Alguien save que puede estar pasando?.