修改HASPLM文件内容

最新推荐文章于 2024-08-02 08:41:39 发布

大吉四海の牛摸王

最新推荐文章于 2024-08-02 08:41:39 发布

阅读量458

点赞数

分类专栏： vba

本文链接：https://blog.youkuaiyun.com/rascal789/article/details/119217551

版权

vba 专栏收录该内容

3 篇文章

订阅专栏

dim wshshell, cname
On Error Resume Next

'**************取得本机计算机名****************
set wshshell=createobject("Wscript.shell")

set EnvVar =wshshell.Environment("Process")

cname=envvar.item("computername")
'msgbox(cname)


'**************取得本机计算机名****************


wshShell.Run "cmd.exe /C \\192.0.0.5\run$\OPEN_PING.BAT"


'WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true 

'**************判断hasp目录 与 hasplm.ini文件 是否存在****************
dim fso, folder_path, file_name
set fso =createobject("scripting.filesystemobject")



strComputer = "."
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) 
 For Each objItem in colItems
		
  If InStr(objItem.SystemType, "64") <> 0 Then
   X86orX64 = "x64"  
  Else
   X86orX64 = "x86"
  End If
 Next
 
 
 If X86orX64 = "x64" Then '64位系统路径

folder_path="C:\PROGRA~2\COMMON~1\ALADDI~1\HASP" '路径

file_name="C:\PROGRA~2\COMMON~1\ALADDI~1\HASP\hasplm.ini" '文件的完整路径

Else 
folder_path="C:\PROGRA~1\COMMON~1\ALADDI~1\HASP"  '32位路径
file_name="C:\PROGRA~1\COMMON~1\ALADDI~1\HASP\hasplm.ini"
End If 



if fso.FileExists(file_name) =true Then '文件存在
    'msgbox "文件存在"

   wshshell.run "echo y|cacls " &file_name& " /C /G Administrators:F"
   fso.CopyFile "\\192.0.0.5\run$\hasplm.ini",file_name  '注意C盘的权限问题
    call replace_pcname()
end if



if Fso.FolderExists(folder_path) = true then '目录存在，文件不存在

    if  fso.FileExists(file_name) = false then
        'msgbox "目录存在，文件不存在 copy，修改hasplm.ini文件"
        
        wshshell.run "echo y|cacls " &folder_path& " /C /G Administrators:F"
        fso.CopyFile "\\192.0.0.5\run$\hasplm.ini",file_name  '注意C盘的权限问题
   
      wshShell.Run "cmd.exe /c copy \\192.0.0.5\run$\hasplm.ini " & folder_path & " /y ",0, False
       call replace_pcname()

    end if 
    else
    msgbox "没有安装NEWTOM NNT软件！，所以运行此脚本没用。" &   X86orX64
end if

'**************判断hasp目录 与 hasplm.ini文件 是否存在****************



'**************查找改写hasplm.ini中的DESKTOP-SC3H7R3****************
sub replace_pcname()
set hasplm_ini =fso.OpenTextFile(file_name) '打开修改的文件

	local_pcname=replace(hasplm_ini.ReadAll,"DESKTOP-SC3H7R3",cname)'找到要替换的字符，以本地计算机名替换DESKTOP-SC3H7R3
    hasplm_ini.Close'关闭文件

'以写的方式打开文件
set write_ini=fso.OpenTextFile(file_name,2,True)
write_ini.write local_pcname
msgbox file_name  & " NEWTOM-NNT重要配置文件已经修改完成！谢谢！" & X86orX64
wshshell.Quit
end sub

'**************查找改写hasplm.ini中的DESKTOP-SC3H7R3****************