23 12 2014

winfaq

Q: Как получить номер терминальной SessionID?
A: Ставим grep+awk:

query session | grep -- ">" | awk "{print $3}" > C:\sess_id.txt

1

query session | grep -- ">" | awk "{print $3}" > C:\sess_id.txt
Q: Как получить цифры IP-адреса через командную строку?
A:

ipconfig | findstr IPv4 | grep -E -o "[0-9][0-9.]+"

1

ipconfig | findstr IPv4 | grep -E -o "[0-9][0-9.]+"

или

for /F "tokens=2 delims=:" %i in ('"ipconfig | findstr IPv4"') do set ipv4=%i mkdir C:\PerfLogs\"%ipv4%"

1
2

for /F "tokens=2 delims=:" %i in ('"ipconfig | findstr IPv4"') do set ipv4=%i
mkdir C:\PerfLogs\"%ipv4%"
Q: Как посмотреть список залогиненных пользователей на удаленном сервере? Как вылогинить пользователя с удаленного сервера?
A:

qwinsta /SERVER:MYTS_SERVERNAME

1

qwinsta /SERVER:MYTS_SERVERNAME

logoff 8 /SERVER:MYTS_SERVERNAME

1

logoff 8 /SERVER:MYTS_SERVERNAME

(где 8-ка – это id сеанса из результата предыдущей команды)
Q: Не отображается ни одна сеть в менеджере беспроводных подключений (wi-fi) Windows XP?
A: Включите службу “Журнал событий” и перезагрузите компьютер.
Q: Не удалялись некоторые пункты в апплете “Установка и удаление программ”. Почистил ветку HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall, однако некоторые старые программы так и остались в appwiz.cpl. Как их убрать?
A: Почистите также ветку HKEY_CURRENT_USER\Software\Microsoft\Installer\Products
Q: Как в Windows быстро примонтировать ISO-образ?
A: Это делает MFC-утилита Virtual CDRom от Microsoft. Не забудьте переместить файл vcdrom.sys в System32/Drivers
Q: Как запустить Outlook 2010, ошибочно настроенный на отсутствующий Exchange сервер?
A: Удалите перед запуском Outlook ветку HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles
Q: How to print SWF to PDF?
A: Install PDF_Creator printer, open SWF-file (even compressed) with Adobe Shockwave Flash Player and print it to the PDF-printer.
Q: Как расширить стандартную оснастку AD “Users and Computers”?
A: Добавьте библиотеку AcctInfo.dll из набора Account Lockout tools) в system32 и выполните команду regsvr32 acctinfo.dll
Q: Как создать в Windows symlink (например, чтобы “обмануть” Google Picasa и заставить хранить ее свою базу в другой папке)?
A: Используйте Sysinternals Junction :

junction -s C:\Documents and Settings\User\Application Data\Google E:\Google

1

junction -s C:\Documents and Settings\User\Application Data\Google E:\Google

(на диске C:\ в момент создания символической ссылки, папки Google быть не должно)

Q: Как массово сменить пароль учетной записи “Администратор”?
A: Используйте утилиту cusrmgr.exe из Resorce Kit либо скрипт на VBScript:

strComputer = "ИмяКомпьютера"
Set objUser = GetObject("WinNT://" &amp; strComputer &amp; "/Administrator, user")
objUser.SetPassword "новый пароль"
objUser.SetInfo

strComputer = "ИмяКомпьютера"

Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")

objUser.SetPassword "новый пароль"

objUser.SetInfo

Q: Как включить RDP на удаленной машине?
A: В редакторе реестра, подключитесь к удаленной машине и в ветке HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server значение fDenyTSConnections установите в 0.
Q: Как, после клонирования SATA -> IDE, удалённо сменить букву системного диска?
A: Если Windows доходит до Ctrl+Alt+Del и после ввода пароля сразу же выполняет выход из системы, то удаленно подключитесь к реестру проблемного копьютера и сотрите ветку HKLM\System\MountedDevices
(Windows перенумерует все разделы/диски в соответствии с их состоянием, т.е. первый primary раздел на первом диске получит букву С и т.д.)

Q: Как делать backup консольным winscp по scp?
A: Батник

echo on
option confirm off
option reconnecttime 3
open scp://uchla@elabu.ga:210/ -privatekey=C:\MyDocs\ga.privkey.ppk
option transfer binary
cd /home/uchla/
get ./uchla/ C:\MyDocs\
get ./www-data/ C:\MyDocs\
close
exit

echo on

option confirm off

option reconnecttime 3

open scp://uchla@elabu.ga:210/ -privatekey=C:\MyDocs\ga.privkey.ppk

option transfer binary

cd /home/uchla/

get ./uchla/ C:\MyDocs\

get ./www-data/ C:\MyDocs\

exit

Q: Windows не сохраняет учетные данные для соединения с принтерами и сетевыми дисками.
A: Можно решить батником в автозагрузку пользователя с командой вида:

net use \\IP-адрес(или netbios-имя) пароль /user:[IP-адрес или имя\]логин

1

net use \\IP-адрес(или netbios-имя) пароль /user:[IP-адрес или имя\]логин
Q: Как побороть ошибку “Вход в систему не произведён: выбранный режим входа для данного пользователя на этом компьютере не предусмотрен”?
A: Проверьте параметры локальной политики безопасности “Доступ к компьютеру из сети” и “Отказ в доступе к компьютеру по сети”
Q: Как узнать uptime в Windows XP?
A: В консоли – net statistics server или systeminfo
Q: Как заставить Windows 7 регистрировать записи PTR на DNS сервере, если IP адрес был получен через DHCP?
A: Поставьте галочку “Use this connection’s DNS suffix in DNS registration” в настройках сети и выполните ipconfig /registerdns
Q: Как увидеть все скрытые общие папки ($-шары) Windows/Samba удаленной машины?
A: Скачайте отсюда smbclient под Windows и дайте команду smbclient.exe -L \\ИМЯ_КОМПЬЮТЕРА
Q: Как сменить папку баз данных IBM DB2?
A: Остановите службы DB2, скопируйте папку DB2, например с диска C на диск D, создайте файл s.cfg такого содержания:

DB_NAME=MY1CBASE DB_PATH=C:\DB2,D:\DB2 INSTANCE=DB2

1
2
3

DB_NAME=MY1CBASE
DB_PATH=C:\DB2,D:\DB2
INSTANCE=DB2

выполните команду

C:\IBM\SQLLIB\bin\db2relocatedb -f s.cfg

1

C:\IBM\SQLLIB\bin\db2relocatedb -f s.cfg

и запустите службы DB2

Q: Как сменить сетевые настройки в Windows через консоль?
A: Используйте:

netsh interface ip set address name=”Подключение по локальной сети” source=static addr=192.168.0.2 mask=255.255.255.0 gateway=192.168.0.1 gwmetric=1
netsh interface ip set dns address name=”Подключение по локальной сети” source=static addr=192.168.1.2

1 2	netsh interface ip set address name=”Подключение по локальной сети” source=static addr=192.168.0.2 mask=255.255.255.0 gateway=192.168.0.1 gwmetric=1 netsh interface ip set dns address name=”Подключение по локальной сети” source=static addr=192.168.1.2

Q: Как научить AutoHotkey запускать программы, открывать папку, сайт, вставлять спецсимволы?
A: Пример ниже с комментариями:

#z::Run "%windir%\system32\SnippingTool.exe"
; Нажатие Win+Z запустит программу
#a::Run "D:\MyDocs\SAP\MM"
; Нажатие Win+A откроет папку
#q::Run "http://translate.google.com"
; Нажатие Win+Q откроет сайт
!;::
{
SendInput {ö}
}
return
; Нажатие Alt+; вставит символ
#IfWinActive ahk_class ConsoleWindowClass
^D::SendInput , {Esc}bye{Enter}
; Нажатие Ctrl+D вставит команду bye и нажмет Enter (например можно выполнить "exit" по Ctrl+D)
#IfWinActive

#z::Run "%windir%\system32\SnippingTool.exe"

; Нажатие Win+Z запустит программу

#a::Run "D:\MyDocs\SAP\MM"

; Нажатие Win+A откроет папку

#q::Run "http://translate.google.com"

; Нажатие Win+Q откроет сайт

!;::

{

SendInput {ö}

}

return

; Нажатие Alt+; вставит символ

#IfWinActive ahk_class ConsoleWindowClass

^D::SendInput , {Esc}bye{Enter}

; Нажатие Ctrl+D вставит команду bye и нажмет Enter (например можно выполнить "exit" по Ctrl+D)

#IfWinActive

Q: Как добавить хранение истории в PowerShell?
A: Дайте первые две команды под администратором
New-Item -path $profile -type file -force
Set-ExecutionPolicy Unrestricted
и в созданном файле профиля добавьте код, приведенный ниже

$MaximumHistoryCount = 10KBif (!(Test-Path ~\WindowsPowerShell -PathType Container))
{ New-Item ~\WindowsPowerShell -ItemType Directory
}function bye
{ Get-History -Count 10KB |Export-CSV ~\WindowsPowerShell\history.csv
exit
}if (Test-path ~\WindowsPowerShell\History.csv)
{ Import-CSV ~\WindowsPowerShell\History.csv |Add-History
}

$MaximumHistoryCount = 10KBif (!(Test-Path ~\WindowsPowerShell -PathType Container))

{ New-Item ~\WindowsPowerShell -ItemType Directory

}function bye

{ Get-History -Count 10KB |Export-CSV ~\WindowsPowerShell\history.csv

exit

}if (Test-path ~\WindowsPowerShell\History.csv)

{ Import-CSV ~\WindowsPowerShell\History.csv |Add-History

}

[collapse]

Q: How to enable Ctrl+Tab on Opera 30 as Opera 29 behaviour, i.e. Ctrl+Tab to switch without a tab preview?
A: Simply remap “Switch left through tabs” and “Switch right through tabs” under “Preferences → Browser → Shortcuts → Configure Shortcuts” to Ctrl+Shift+Tab and Ctrl+Tab respectively.

8 Comments

Uchla
24.12.2014 @ 14:44

При настройке сети через консоль, вместо имён интерфейсов можно использовать индексы.
Получаем индексы интерфейсов:

netsh interface ipv4 show interface

1

netsh interface ipv4 show interface

netsh interface ip set address 11 source=static addr=192.168.150.200 mask=255.255.255.0 gateway=192.168.150.1

1

netsh interface ip set address 11 source=static addr=192.168.150.200 mask=255.255.255.0 gateway=192.168.150.1

настраиваем (под индексом 11 один из сетевых интерфейсов)

Uchla
25.12.2014 @ 11:33
Для приведения внешнего вида Windows 2000 “поближе” к Windows XP:
1. Скачайте WindowBlinds 4.6 (версия только для 9x/2000) и тему LunaXP к нему
2. Скачайте и установите Windows 2000 Revolutions Pack (для отображения 32-битных иконок). Перезагрузитесь.
3. Скачайте ObjectBar 1.65 для Панели задач и скин Luna к нему
4. Скачайте Boot Skin и установите экран загрузки XP Classic
5. Установите IE6, Office 2000 и старый FSViewer
Uchla
25.12.2014 @ 11:58

Массовая обрезка краев изображений – поможет библиотека ImageMagic:
обрезать справа, сверху, слева, снизу:
mogrify.exe -gravity west -crop -100 C:\images\*.jpg
mogrify.exe -gravity south -crop -0+80 C:\images\*.jpg
east… etc…

DISM
25.12.2014 @ 11:39

Здравствуйте, Uchla
У меня выходила ошибка “нет скрытых обновлений для этого компьютера” (не могу установить немецкий MUI для WIndows 7 через Windows Update). Накопал про установку через win7_lp-de_x64.cab, скачал этот файл, но DISM выдает:
Нельзя обслуживать 64-разрядную операционную систему 32-разрядной версией системы DISM
Что можно сделать?

- Uchla
  25.12.2014 @ 11:58
  
  Запускайте так:
  C:\windows\system32\DISM.exe

Uchla
05.02.2015 @ 16:47

Как разблокировать листы Excel?

Sub PasswordBreaker()
    'Breaks worksheet password protection.
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 As Integer
    On Error Resume Next
    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
        Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
        Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    If ActiveSheet.ProtectContents = False Then
        MsgBox "One usable password is " & Chr(i) & Chr(j) & _
            Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
            Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub

Sub PasswordBreaker()

'Breaks worksheet password protection.

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next: Next: Next: Next: Next: Next

End Sub

Uchla
25.08.2016 @ 13:37

Auto BCC on send (Outlook 2010):

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
strBcc = "yhla+bcc@gmail.com"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Could not resolve the Bcc recipient. " & _
"Do you want still to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc Recipient")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim objRecip As Recipient

Dim strMsg As String

Dim res As Integer

Dim strBcc As String

strBcc = "yhla+bcc@gmail.com"

Set objRecip = Item.Recipients.Add(strBcc)

objRecip.Type = olBCC

If Not objRecip.Resolve Then

strMsg = "Could not resolve the Bcc recipient. " & _

"Do you want still to send the message?"

res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _

"Could Not Resolve Bcc Recipient")

If res = vbNo Then

Cancel = True

Set objRecip = Nothing

Uchla
31.08.2016 @ 09:27

Download files:
setuptools_x64fre_cab001.cab
setuptools_x86fre_cab001.cab
setuptools_ia64fre_cab001.cab

winfaq

Related Posts

Decrease LVM size & migrating to normal partition

SFTP server, Debian 7 Wheezy, one directory

Pound proxy под Windows

8 Comments

Leave a Reply Cancel reply