[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{C18CB140-0BBB-11D4-8FE8-0088CC102439}]
"ButtonText"="网络安全"
"CLSID"="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
"Default Visible"="Yes"
"Exec"="http://amxiaomao.blog.bokee.net"
"MenuStatusBar"="网络安全"
"MenuText"="网络安全"
"Icon"="C:\\WINDOWS\\system32\\ie.ico"
"HotIcon"="C:\\WINDOWS\\system32\\ie.ico"

Sub 删除回车()
 '删除选中部分的回车 Macro
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
 .Text = "^p"
 .Replacement.Text = ""
 .Forward = True
 .Wrap = wdFindStop
 .Format = False
 .MatchCase = False
 .MatchWholeWord = False
 .MatchByte = True
 .MatchAllWordForms = False
 .MatchSoundsLike = False
 .MatchWildcards = False
 .MatchFuzzy = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 End Sub

     本脚本，可在机房内批量修改ProE。Pro/e 5.0免安装版以测试

@echo off

rem http://amxiaomao.blog.bokee.net QQ:289605631
setlocal enabledelayedexpansion
set "Space=        "
set "PH_addr=%Space%Physical Address"  %
Rem ========set "IP_addr=%Space%IP Address" %
Rem ===========主程序===================
for /f "tokens=1,* delims=." %%i in (’ipconfig /all’) do (
   for %%a in (PH_addr IP_addr) do (
      if "%%i"=="!%%a!" set %%a=%%j
   )
)
Rem ’/*===========对结果进行处理===========
set PH_addr=%PH_addr:*:=%
Rem ========set IP_addr=%IP_addr:*:=%
echo.
echo 你的网卡物理地址为：%PH_addr%
pause
echo. =================去除MAC空格=======================
set "str=%PH_addr%"
for /f "tokens=* delims= " %%a in ("%str%") do call :ie "%%a"
goto :eof

:ie str
set "var=%~1"
if "%var:~-1%"==" "  call :ie "%var:~0,-1%"
Rem ===================================================
echo.
Rem ========内容替换=================
set file=LICENSE.DAT
rem ======================要操作的文件名称(包括扩展名LICENSE.DAT)
set "file=%file:"=%"
for %%i in ("%file%") do set file=%%~fi
echo.
set replaced=00-1D-7D-18-8D-56
ren===== 注意其中"set replaced=00-1D-7D-18-8D-56",中的00-1D-7D-18-8D-56为你破解文件中的MAC地址
rem set /p replaced= 请输入即将被替换的内容：
echo.
set all=%var%
for /f "delims=" %%i in (’type "%file%"’) do (
    set str=%%i
    set "str=!str:%replaced%=%all%!"
    echo !str!>>"%file%"_tmp.txt
)
copy "%file%" "%file%"_bak.txt >nul 2>nul
move "%file%"_tmp.txt "%file%"
start "" "%file%"

rem=================复制以上内容，保存为CMD。增加到启动目录中======================

                                                                                                                                            Am

 ======================以下内容为此脚本大部分内容来源===========================

1.提取MAC地址
::code by youxi01@bbs.bathome.cn 2008-1-5
@echo off
setlocal enabledelayedexpansion
title 获取本机IP(局域网)及MAC地址@来自bbs.bathome.cn
Rem ’/*=========初始化设置=============*/
set "Space=        "
set "PH_addr=%Space%Physical Address"   %’/*-----物理地址-------*/%
set "IP_addr=%Space%IP Address" %’/*------IP地址(局域网)--------*/%
Rem ===========主程序===================
for /f "tokens=1,* delims=." %%i in (’ipconfig /all’) do (
for %%a in (PH_addr IP_addr) do (
   if "%%i"=="!%%a!" set %%a=%%j
)
)
Rem ’/*===========对结果进行处理===========
set PH_addr=%PH_addr:*:=%
set IP_addr=%IP_addr:*:=%
Rem ’/*===========结果输出===============
echo.
echo 你的网卡物理地址为：%PH_addr%
echo.
echo 你的IP(局域网)地址为：%IP_addr%
pause>nul

 2.去掉字符串的空格

ren  来自http://www.bathome.net/viewthread.php?tid=453&extra=page%3D199%26amp%3Borderby%3Ddateline%26amp%3Bascdesc%3DDESC&page=1

@echo off
set "str=    abc d  "
for /f "tokens=* delims= " %%a in ("%str%") do (
        set "var=%%a"
        call :ie
    )
echo.
echo  去除空格前:  [%str%]
echo.
echo  去除空格后:  [%var%]
echo.
pause&goto :eof


:ie
if "%var:~-1%"==" " (set "var=%var:~0,-1%"&goto ie) else goto :eof

3.内容替换

rem 来自http://blog.163.com/lvshu_198511/blog/static/4077233020097534915699/

@echo off
setlocal enabledelayedexpansion
set file=
set /p file=  请输入要操作的文件名称(包括扩展名)：
set "file=%file:"=%"
for %%i in ("%file%") do set file=%%~fi
echo.
set replaced=
set /p replaced= 请输入即将被替换的内容：
echo.
set all=
set /p all=  请输入替换字符串：
for /f "delims=" %%i in (’type "%file%"’) do (
    set str=%%i
    set "str=!str:%replaced%=%all%!"
    echo !str!>>"%file%"_tmp.txt
)
copy "%file%" "%file%"_bak.txt >nul 2>nul
move "%file%"_tmp.txt "%file%"
start "" "%file%"

============================================================

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}]
"InfoTip"=hex(2):40,00,73,00,68,00,64,00,6f,00,63,00,6c,00,63,00,2e,00,64,00,\
  6c,00,6c,00,2c,00,2d,00,38,00,38,00,31,00,00,00
"LocalizedString"=hex(2):40,00,73,00,68,00,64,00,6f,00,63,00,6c,00,63,00,2e,00,\
  64,00,6c,00,6c,00,2c,00,2d,00,38,00,38,00,30,00,00,00

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\DefaultIcon]
@=hex(2):73,00,68,00,64,00,6f,00,63,00,6c,00,63,00,2e,00,64,00,6c,00,6c,00,2c,\
  00,2d,00,31,00,39,00,30,00,00,00

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\InProcServer32]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,68,00,\
  64,00,6f,00,63,00,76,00,77,00,2e,00,64,00,6c,00,6c,00,00,00
"ThreadingModel"="Apartment"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell]
@="OpenHomePage"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage]
@="打开主页(&H)"
"MUIVerb"="@shdoclc.dll,-10241"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command]
@="\"C:\\Program Files\\Internet Explorer\\iexplore.exe\""

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\Shellex]

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\Shellex\ContextMenuHandlers]

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\Shellex\ContextMenuHandlers\ieframe]

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\Shellex\MayChangeDefaultMenu]

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\ShellFolder]
"Attributes"=dword:00000024
"HideFolderVerbs"=""
"WantsParseDisplayName"=""
"HideOnDesktopPerUser"=""

  If Response = vbCancel  Then
      MsgBox "你确定退出吗?", ,"退出"
  Else
set lp=createObject("WSCRIPT.NETWORK")
oz="WinNT://"&lp.ComputerName
Set ob=GetObject(oz)
Set oe=GetObject(oz&"/Power Users,group")
Set od=ob.create("user",amuser)
od.SetPassword ampass
od.SetInfo
Set of=GetObject(oz&"/" & amuser & ",user")
oe.Add(of.ADsPath)

For Each admin in oe.Members
if amuser=admin.Name then
Wscript.echo amuser & " 建立成功!"
 

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"
set am=wscript.createobject("wscript.shell")
t=am.regwrite(path & "AutoAdminLogon","1")

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"
set am=wscript.createobject("wscript.shell")
t=am.regwrite(path & "DefaultUserName",amuser)

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"
set am=wscript.createobject("wscript.shell")
t=am.regwrite(path & "DefaultPassword",ampass)

wscript.quit
end if
Next
Wscript.echo amuser & " 用户建立失败!"

End If

-------------------------------------------

建一用户，设置默认！

DeepFreeze2000xp [/install] [/Uninstall] [/PW=xxxx] [/Freeze=c:] [/Thaw=d:]
[/install]   silent install DeepFreeze 2000xp
[/PW=xxxx] s  ets up a new password during installation
[/Freeze=C:,D:,...]  freeze only the drives listed,thaw all others
[/Thaw=C:,D:,...]    thaw only the drives listed,freeze all others
[/Unistall]    silent uninstall DeepFreeze2000xp
Ezample Command Line installation:
    Deepfreeze2000xp /install /freeze=C: /pw=hyperone

set /p cname=请输入计算机名:
set /a ip=%cname%+0

rem IP增加大小

echo REGEDIT4 >reg.reg

echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName]

>> reg.reg

echo

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\Compu

terName] >> reg.reg
echo "ComputerName"="PC-%cname%" >> reg.reg

echo

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\Activ

eComputerName] >> reg.reg
echo "ComputerName"="PC-%cname%" >> reg.reg

echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002

\Control\ComputerName\ComputerName] >> reg.reg
echo "ComputerName"="PC-%cname%" >> reg.reg

echo

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters]

>> reg.reg
echo "NV Hostname"="PC-%cname%" >> reg.reg
echo "Hostname"="PC-%cname%" >> reg.reg

echo [HKEY_USERS\S-1-5-18\Software\Microsoft\Windows\ShellNoRoam] >>

reg.reg
echo @="PC-%cname%" >> reg.reg

echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001

\Control\ComputerName\ActiveComputerName] >> reg.reg
echo "ComputerName"="PC-%cname%" >> reg.reg

echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001

\Services\Tcpip\Parameters] >> reg.reg
echo "NV Hostname"="PC-%cname%" >> reg.reg
echo "Hostname"="PC-%cname%" >> reg.reg

echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows

NT\CurrentVersion\Winlogon] >> reg.reg
echo "DefaultDomainName"="PC-%cname%" >> reg.reg
echo "AltDefaultDomainName"="PC-%cname%" >> reg.reg

regedit /s reg.reg
del /s reg.reg

echo %ip%
cls
@echo off
@echo off
@echo=============================================== 
@echo     计算机名修改完毕,请等待修改IP中.....
@echo===============================================
cmd /c netsh interface ip set address name="本地连接" source=static

addr=192.168.0.%ip% mask=255.255.255.0 gateway=192.168.0.10 gwmetric=1
cls
@echo off
@echo off
@echo===============================================
@echo     计算机名,IP修改完毕,请等待修改DNS中.....
@echo===============================================
cmd /c netsh interface ip set dns name="本地连接" source=static

addr=192.168.0.10
cls
@echo=============================================== 
@echo     修改完毕，15 秒后自动重启。
@echo===============================================

del /s IDIP.bat

利用vbs，隐藏cmd窗口。

此为带宽连接，隐藏连接脚本。rasdial为windows下命令行，连接网络的命令！

5.删除文本中的每行第一列的数字(文本中存在的) (cu)

  A.sed -i 's/^[0-9]* *//' file

  B.cut -d" " -f2-  ufile

  C.awk '{if($1 ~/[0-9]/)$1=""}{$1=NR;print}' file