FiveTech Software tech support forums

... ). Tambien busco en foros de VB (Visual Basic) y DELPHI. Casi todo lo encientro en GOOGLE. En concreto esto del "WScript.Shell" esta en http://support.microsoft.com/kb/278319/es Una ultima cosa: Si quieres tener la respuesta del copmando redirecciona a un fichero ...

... la ruta a shutdown.exe ya que RUN no respeta la variable PATH del S.O. Saludos Utiliza el RemoteShell. oRemoteShell:=CreateObject("WScript.Shell") oRemoteShell:Run("ShutDown -s -m \\NombrePC",0,.F.) oRemoteShell:=nil ...he conseguido ...

... a las especificaciones de tu sistema MyCDRW = "E:\" MySource = "c:\FW23" MyCDName = "MyDocs" ' A partir de aqui mejor no tocar nada Set oShell = WScript.CreateObject("WScript.Shell") Set oApp = CreateObject("Shell.Application") MyTarget = oShell.regread _ ("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell ...

Same error: Error description: Error WScript.Shell:CREATESHORTCUT/16389 E_FAIL: _ICONLOCATION Args: [ 1] = U Stack Calls =========== Called from: win32ole.prg => TOLEAUTO:_ICONLOCATION(0) Called from: CREATELINK2.prg => ZLNK:RUN(107) ...

I get the following error: Error description: Error WScript.Shell:CREATESHORTCUT/16389 E_FAIL: _ICONLOCATION Args: [ 1] = C Stack Calls =========== Called from: win32ole.prg => TOLEAUTO:_ICONLOCATION(0) Called from: CREATELINK.prg => ZLNK:RUN(101) ...

... ) DiskChange( cWorkingDir ) cWorkingDir += "\" + cCurDir + "\" ELSE cWorkingDir += ":\" + cCurDir + "\" ENDIF TRY oShell := CreateObject( "WScript.Shell" ) oDesktop := oShell:SpecialFolders() cDeskTop := oDesktop:Item( "DeskTop" ) fErase( cDesktop + "\Sistema Integrado F‚nix 2005.lnk" ) ...

... "CTRL+SHIFT+C", "main.exe,0", "c:\stock" ) FUNCTION CreateLink(dest,sName,sPath,sHotKey,sIcon ,sWorkingDirectory) WshShell = CreateObject("WScript.Shell") DO Case Case dest='DeskTop' sLinkPath = WshShell.SpecialFolders("Desktop") Case dest='StartMenu' sLinkPath = WshShell.SpecialFolders("StartMenu") ...