Hoi tweakertz,
ik heb een probleem:
- ik moet de windows registry uitlezen via een php/java/vbscript om een path op te zoeken van een geinstalleerd programma (voor mijn stagebedrijf). Weten jullie een methode om dit te doen? Ik heb al wat geprobeert, maar helaas werkt het niet.
Dit freet ie iig niet. BTW het moet niet zo zijn dat de gebruiker nog moet klikken dat het mag ofzo, als dit wel zo is dan post het toch maar. THNX!
(dit moet ik doen omdat sommige mensen zo dom zijn dat ze niet weten waar ze het software pakket hebben geinstalleerd. Zo kan ik automatisch updaten).
Oh btw, geen ASP! (webserver ondersteund dit niet, anti MS)
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_CURRENT_USER\"
Sh.RegWrite key & "WSHTest\", "testkeydefault"
Sh.RegWrite key & "WSHTest\string1", "testkeystring1"
Sh.RegWrite key & "WSHTest\string2", "testkeystring2", "REG_SZ"
Sh.RegWrite key & "WSHTest\string3", "testkeystring3", "REG_EXPAND_SZ"
Sh.RegWrite key & "WSHTest\int", 123, "REG_DWORD"
WScript.Echo Sh.RegRead(key & "WSHTest\")
WScript.Echo Sh.RegRead(key & "WSHTest\string1")
WScript.Echo Sh.RegRead(key & "WSHTest\string2")
WScript.Echo Sh.RegRead(key & "WSHTest\string3")
WScript.Echo Sh.RegRead(key & "WSHTest\int")
Sh.RegDelete key & "WSHTest\"
ik heb een probleem:
- ik moet de windows registry uitlezen via een php/java/vbscript om een path op te zoeken van een geinstalleerd programma (voor mijn stagebedrijf). Weten jullie een methode om dit te doen? Ik heb al wat geprobeert, maar helaas werkt het niet.
Dit freet ie iig niet. BTW het moet niet zo zijn dat de gebruiker nog moet klikken dat het mag ofzo, als dit wel zo is dan post het toch maar. THNX!
(dit moet ik doen omdat sommige mensen zo dom zijn dat ze niet weten waar ze het software pakket hebben geinstalleerd. Zo kan ik automatisch updaten).
Oh btw, geen ASP! (webserver ondersteund dit niet, anti MS)
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_CURRENT_USER\"
Sh.RegWrite key & "WSHTest\", "testkeydefault"
Sh.RegWrite key & "WSHTest\string1", "testkeystring1"
Sh.RegWrite key & "WSHTest\string2", "testkeystring2", "REG_SZ"
Sh.RegWrite key & "WSHTest\string3", "testkeystring3", "REG_EXPAND_SZ"
Sh.RegWrite key & "WSHTest\int", 123, "REG_DWORD"
WScript.Echo Sh.RegRead(key & "WSHTest\")
WScript.Echo Sh.RegRead(key & "WSHTest\string1")
WScript.Echo Sh.RegRead(key & "WSHTest\string2")
WScript.Echo Sh.RegRead(key & "WSHTest\string3")
WScript.Echo Sh.RegRead(key & "WSHTest\int")
Sh.RegDelete key & "WSHTest\"
[ Voor 15% gewijzigd door TrasherXL op 16-01-2003 10:12 ]
ASUS Commando | Core2Duo E6600 @ 3Ghz air-cooled | Geforce 8800GTX | Raid-0 | 4 GB DDR2-800