← All posts tagged Windows

Повершеловский пакетменеджер
C:\Users\god>chocolatey Install nircmd
Chocolatey (v0.9.8.20) is installing nircmd and dependencies. By installing you accept the license for nircmd and each dependency you are installing.
______ nircmd v2.75 ______

Mode                LastWriteTime     Length Name
----                -------------     ------ ----
d----        10/29/2013     08:44            nircmd
Downloading nircmd 64 bit (http://www.nirsoft.net/utils/nircmd-x64.zip) to C:\Users\god\AppData\Local\Temp\chocolatey\nircmd\nircmdInstall.zip.
Extracting C:\Users\god\AppData\Local\Temp\chocolatey\nircmd\nircmdInstall.zip to C:\Chocolatey\lib\nircmd.2.75\tools...
C:\Chocolatey\lib\nircmd.2.75\tools
nircmd has finished succesfully! The chocolatey gods have answered your request!
Adding C:\Chocolatey\bin\nircmd.bat and pointing to '%DIR%..\lib\nircmd.2.75\tools\nircmd.exe'.
Adding C:\Chocolatey\bin\nircmdc.bat and pointing to '%DIR%..\lib\nircmd.2.75\tools\nircmdc.exe'.
Finished installing 'nircmd' and dependencies - if errors not shown in console, none detected. Check log for errors if unsure.

Eсли при запуске виртуалки указать параметр -usbdevice tablet, windows обнаружит новое указывающее устройство, поставит драйвера и о чудо! – мышь в окне виртуалки и в хост-системе нашей синхронизируются.

Где я накосячил ?
Dim oFSO, oApp, oFolderCopy, oShell
Dim strFontsPath, strScriptPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
Set oApp = CreateObject("Shell.Application")
WinDir = oShell.ExpandEnvironmentStrings ("%windir%")
Const HKEY_LOCAL_MACHINE = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
Set oFolderCopy = oApp.Namespace("\\server\path_to_ront")
If oFSO.FileExists(WinDir & "\Fonts\fontname.ttf") = True Then
oFSO.DeleteFile WinDir & "\fonts\fontname.ttf",True
strValueName = "FontName (TrueType)"
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName
End If
For Each oFont In oFolderCopy.Items
oApp.Namespace(20).CopyHere oFont
Next
Set oFolderCopy = Nothing
Set oApp = Nothing
Set oShell = Nothing

c:\PDFs\fonts.vbs(10, 1) (null): Неопознанная ошибка

Нужен скрипт для WinXP
1. удаления всех принтеров и портов и драйверов
2 установки умолчательного принтера (или подсказка как сделать это средствами AD)
Устанавливаю принтеры с помощью PushPrinterConnections.exe и политики MS AD
Пробовал это admin.vlady.ru
не совсем то и не сработало :-(