Написать батничек

alekc34

Батники писать не умею.

Хочется сделать файлик, который при запуске создавал текстовый файл со значением определенного ключа реестра...

artimon

reg query /?
reg export /?

C:\>reg query HKCU\Software\Microsoft\Windows\CurrentVersion\ThemeManager

! REG.EXE VERSION 3.0

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager

    WCreatedUser        REG_SZ  1

    ThemeActive REG_SZ  1

    LoadedBefore        REG_SZ  1

    LastUserLangID      REG_SZ  1033

    DllName     REG_EXPAND_SZ   %SystemRoot%\resources\Themes\Thallos\Thallos.msstyles

    ColorName   REG_SZ  ThallosC

    SizeName    REG_SZ  LargeFonts

В каком виде тебе нужен ключ?

viktor954

vbs-ник сойдёт?



Option Explicit

Dim oShell, sCompName,oFile

Set oFile = FileSystem.CreateTextFile("filename.txt", True)

Set oShell	= CreateObject("WScript.Shell")

On Error Resume Next

sCompName =oShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName\ComputerName")

On Error Goto 0

oFile.WriteLine (sCompName)

alekc34

C:\Documents and Settings\e823181>reg query /?
'reg' is not recognized as an internal or external command,
operable program or batch file.

gopnik1994

именно батник?
батник больно извратный будет...
просто на VBS это попроще можно...



@echo off

if exist temp.reg del temp.reg

regedit /ea temp.reg "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"

for /f "tokens=1,2 delims==" %%i in (temp.reg) do if %%i == "Personal" echo %%j >get.out

del temp.reg

как вариант...
но это строки немного отформатированные получаются...

alekc34

Option ExplicitDim oShell, sCompName,oFileSet oFile = FileSystem.CreateTextFile("filename.txt", True)Set oShell = CreateObject("WScript.Shell")On Error Resume NextsCompName =oShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName\ComputerName")On Error Goto 0oFile.WriteLine (sCompName)

gopnik1994

на винде >=2k

alekc34

тоже ошибку выдает
что я делаю не так?

alekc34

2000я

gopnik1994

клева, все облажались!

какую ошибку-то хоть?
может у тебя прав не хватает?

viktor954

У меня работает.



Option Explicit

Dim oShell, sCompName,oFile,FileSystem

Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")

Set oFile = FileSystem.CreateTextFile("filename.txt", True)

Set oShell = CreateObject("WScript.Shell")

On Error Resume Next

sCompName =oShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName\ComputerName")

On Error Goto 0

oFile.WriteLine (sCompName)

alekc34

клева, все облажались!
какую ошибку-то хоть?
может у тебя прав не хватает?

у меня права точно все есть
но нужно, чтобы файл работал на машине без админских прав

alekc34

artimon

То, что написал, это как раз батничек, а не VBS. Сохрани его как test.bat или test.cmd

alekc34

в результате появился файл, который выдал текст, написанный ХеГоатом практически без изменений

gopnik1994

какой текст?

Оставить комментарий